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

var SelPos: Integer; begin

жүктеу 2,2 Mb.

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

1 ... 91 92 93 94 95 96 97 98 ... 118

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

Мысал 3.5.10

var

SelPos: Integer;

begin

WITH TReplaceDialog(Sender) DO

BEGIN

{ Memo1 – дегі FindText регистірін есепке алғандағы ауқымды іздеу}

SelPos := Pos(FindText, Memo1.Lines.Text);

{Pos функциясы Memo1құрауышының мәтінінің шегіне дейін FindText – ті іздейді және осы мәтіннің шегіндегі FindText - тің бірінші символын бүтін санды мәнді қайтарады. Егер FindText табылмаса, онда Pos нөлді қайтарады}

IF SelPos > 0 THEN

BEGIN

Memo1.SelStart := SelPos - 1;

Memo1.SelLength := Length(FindText);

Memo1.SelText := ReplaceText; {Таңдап алынған мәтінді ReplaceText – ке ауыстыру}

END

ELSE

MessageDlg(Concat('Could not find "', FindText, '" in Memo1.'),

mtError, [mbOk], 0);

END;

end;

Open Picture Dialog – графикалық файлды ашу диалог терезесі.

Иерархиясы:

TObject – TPersistent – TComponent – TCommonDialog – TOpenDialog.

Графикалық файлды ашу диалог терезесі TOpenDialog класынан туындаған және оның барлық сипаттамаларына ие болатын TOpenPictureDialog класының данасы болып табылады.

Ол графикалық кескіні бар файлды таңдауға тағайындалған. Диалог терезесіне қарау терезесі қосылған, онда сол сәтте ерекшеленген графикалық файл бейнеленеді.

property Filter: String – Windows стандартты графикалық файлдары үшін сүзгілер жиынынан тұрады.

Мысал 3.5.9 Button1 құрауышы үшін OnClick оқиға өңдеуіші ашылатын графикалық файлдың атын таңдауға арналған диалог терезесін ашады және оны Image1 құрауышына орналастырады.

procedure TForm1.Button1Click(Sender: TObject);

begin

IF OpenPictureDialog1.Execute THEN

Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

Save Picture Dialog – графикалық файлды сақтау диалог терезесі.

Иерархиясы:

TObject – TPersistent – TComponent – TCommonDialog – TOpenDialog – TOpenPictureDialog.

Графикалық файлды сақтау диалог терезесі тікелей TSavePictureDialog класының туындамасы және оның барлық сипаттамаларына ие болатын TSavePictureDialog класының данасы болып табылады.

Ол графикалық кескінді файлға сақтауға арналған.

Мысал 3.5.10 Button2 батырмасына шерткенде сақталатын графикалық файлдың атын таңдауға арналған диалог терезесі ашылады және Image1 құрауышындағы кескін осы файлға жазылады.

procedure TForm1.Button2Click(Sender: TObject);

begin

IF SavePictureDialog1.Execute THEN

Image1.Picture.SaveToFile(SavePictureDialog1.FileName);

end;

жүктеу 2,2 Mb.

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

1 ... 91 92 93 94 95 96 97 98 ... 118