(V) Evento e Função do TMAIMFORM e APLICAÇÃO DE IMPRESSÃO TRINTER
///////////////////////Tive ao conhecimento
[Arquivo do item do menu/impressão] Evento:
procedimento tmainform.FilePrintItemClick (remetente: tabjas);
Começar
{kh1} print; {kh2}
Screen.cursor: = CRHOURGLASS;
tentar
Se mdichildCount <> 0 então
Com o ActiveMdichild como tmdichild
com a impressora começar
BEGINDOC; // Comece a imprimir
Canvas.draw (0,0, image1.picture.graphic);
Enddoc; // impressão final
fim;
fim;
Finalmente
Screen.cursor: = crDefault;
fim;
fim;
[Arquivo do item do menu/configurações de impressão] Evento:
procedimento tmainform.FilePrintSetClick (remetente: tabjas);
Começar
Screen.cursor: = CRHOURGLASS;
PrinterSetUpdialog1.execute;
Screen.cursor: = crDefault;
fim;
[Menu Item Editar/Preferências/Barra de Ferramentas] Evento:
procedimento tmainform.toolbaritemClick (remetente: tabjas);
Começar
ToolBariTem.CHECKED: = Não ToolBariTem.Checked;
ToolBar2.Visible: = ToolBaritem.Checked;
fim;
[Mainmenu1.onchange] Evento
procedimento tmainform.MainMenu1Change (...);
Começar
filePrintItem.enabled: = mdichildCount> 0;
DrawItem.enabled: = mdichildCount> 0;
fim;
[Tmainform.formCreate] Evento
procedimento tmainform.formCreate (remetente: tobject);
Começar
Captenum: = 0;
DefaultDirectory: = ExtractFilePath (Application.Exename);
fim;
[Tmainform.fileopen] Evento
procedimento tmainform.opendialogexecute (remetente: tobject);
Começar
Opendialog.initialDir: = defaultDirectory;
Se opendialog.execute então
Começar
DefaultDirectory: = ExtractFilename (opendialog.filename);
CreateMdichild (Opendialog.FileName, false);
fim;;
fim;
[Tmainform.fileSave, tmainform.fileSaveas] Eventos
procedimento tmainform.FileSave1Execute (remetente: TObject);
Começar
Com o ActiveMdichild como tmdichild
Nome do arquivo: = extractFilename (legenda);
Nome do arquivo: = defaultDirectory+nome do arquivo;
Savedialog.Filename: = FileName;
se não for savedialog.execute, saia;
Nome do arquivo: = savedialog.filename;
DefaultDirectory: = ExtractFilename (nome do arquivo);
Se fileExists (nome do arquivo) começar
Se Messagedlg (nome do arquivo+'já existe, substitua -o?', mtinformation, [mbyes, mbno], 0) = mryes então
Deletefile (nome do arquivo)
else sair;
fim;
Image1.picture.savetofile (nome do arquivo);
Legenda: = nome do arquivo;
StatusBar.simpletext: = nome do arquivo;
fim;
fim;