Зертханалық жұмыс №1 «Delphi интерфейсінің элементтері»

if PrintDialog1.Execute then begin

жүктеу 2,2 Mb.

бет	99/118
Дата	04.01.2022
өлшемі	2,2 Mb.
	#36255

1 ... 95 96 97 98 99 100 101 102 ... 118

Зертханалы ж мыс №1 «Delphi интерфейсіні элементтері»

Unit1
Қадам 17

if PrintDialog1.Execute then begin

AssignPrn(FileOut);

Rewrite(FileOut);

Printer.Canvas.Font:=Memo1.Font;

for k:=0 to Memo1.Lines.Count-1 do

Writeln(FileOut,Memo1.Lines[k]);

CloseFile(FileOut)

end;

end;

Принтермен жұмыс істеу процедурасы Printers модулінде орналасқан. Оның атын Unit1 модулінің interface бөлімінің uses тізімінде белгілеңіздер.

Қадам 16. Панелге Fi&nd атпен батырманы орналастырыңыздар және OnClick оқиғасының өңдеуішін жазыңыздар:

FindDialog1.Execute;

Қадам 17. Панелге &Replace атпен батырманы орналастырыңыздар және OnClick оқиғасының өңдеуішін жазыңыздар:

ReplaceDialog1.Execute;

Қадам 18. Пішінге FindDialog1 және ReplaceDialog1 құрауыштарын орнатыңыздар және Options тобының жалпы қасиеттеріне TRUE мәнін орнатыңыздар

frHideMachCase - “С учетом регистра” қосқышын тығып қояды,

frHideWholeWord - “Только слово целиком” қосқышын тығып қояды,

frHideUpDown - іздеу бағытын таңдау батырмаларын тығып қояды.

жүктеу 2,2 Mb.

Достарыңызбен бөлісу:

1 ... 95 96 97 98 99 100 101 102 ... 118