(v) Tmainform의 이벤트 및 기능 및 Tprinter 인쇄 응용 프로그램
///////////////////printing knowledge
[메뉴 항목 파일/인쇄] 이벤트 :
절차 tmainform.fileprintitemClick (sender : tobject);
시작하다
{kh1} print; {kh2}
screen.cursor : = crhourglass;
노력하다
MdichildCount <> 0이면
tmdichild로 ActiveMdichild를 사용하여 시작됩니다
프린터가 시작됩니다
BEGINDOC; /인쇄 시작
canvas.draw (0,0, image1.picture.graphic);
enddoc; /끝 인쇄
끝;
끝;
마지막으로
screen.cursor : = crdefault;
끝;
끝;
[메뉴 항목 파일/인쇄 설정] 이벤트 :
프로 시저 tmainform.fileprintsetclick (sender : tobject);
시작하다
screen.cursor : = crhourglass;
PrintersetUpdialog1.Execute;
screen.cursor : = crdefault;
끝;
[메뉴 항목 편집/환경 설정/도구 모음] 이벤트 :
절차 tmainform.toolbaritemClick (sender : tobject);
시작하다
도구 모음. 점검 : = 도구 모음이 아님;
Toolbar2.Visible : = Toolbaritem.Checked;
끝;
[MainMenu1.onchange] 이벤트
절차 tmainform.MainMenu1change (...);
시작하다
fileprintitem.enabled : = mdichildCount> 0;
drawitem.enabled : = mdichildCount> 0;
끝;
[tmainform.formcreate] 이벤트
절차 tmainform.formcreate (sender : tobject);
시작하다
capturenum : = 0;
DefaultDirectory : = ExtractFilePath (Application.Exename);
끝;
[tmainform.fileopen] 이벤트
절차 tmainform.opendialogExecute (sender : tobject);
시작하다
opendialog.initialdir : = DefaultDirectory;
OpenDialog.Execute 인 경우
시작하다
defaultDirectory : = ExtractFilename (opendialog.filename);
CreatemDichild (opendialog.filename, false);
끝;;
끝;
[tmainform.filesave, tmainform.filesaveas] 이벤트
절차 tmainform.filesave1Execute (sender : tobject);
시작하다
tmdichild로 ActiveMdichild를 사용하여 시작됩니다
filename : = ExtractFilename (캡션);
filename : = DefaultDirectory+filename;
savedialog.filename : = filename;
Savedialog.Execute가 아닌 경우 종료하십시오.
filename : = savedialog.filename;
defaultDirectory : = ExtractFilename (filename);
FileExists (filename) 인 경우 시작하십시오
MessagedLg (filename+'가 이미 존재하고 대체합니까?', mtinformation, [mbyes, mbno], 0) = mryes
삭제 (파일 이름)
다른 출구;
끝;
image1.picture.savetofile (filename);
캡션 : = 파일 이름;
statusbar.simpletext : = filename;
끝;
끝;