From 87e9099e2ec148b83da98592ecb3a342c223702c Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Wed, 31 Aug 2011 12:26:53 +0200 Subject: ide: named two checkboxes in the Find dialog. --- examples/apps/ide/src/frm_find.pas | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'examples/apps') diff --git a/examples/apps/ide/src/frm_find.pas b/examples/apps/ide/src/frm_find.pas index 54a03237..20919e53 100644 --- a/examples/apps/ide/src/frm_find.pas +++ b/examples/apps/ide/src/frm_find.pas @@ -26,8 +26,8 @@ type Label2: TfpgLabel; chkCaseSensitive: TfpgCheckBox; chkWholeWord: TfpgCheckBox; - CheckBox3: TfpgCheckBox; - CheckBox4: TfpgCheckBox; + chkGlobalScope: TfpgCheckBox; + chkSearchBackwards: TfpgCheckBox; btnCancel: TfpgButton; btnFind: TfpgButton; btnHelp: TfpgButton; @@ -147,26 +147,26 @@ begin Text := 'Whole Words Only'; end; - CheckBox3 := TfpgCheckBox.Create(self); - with CheckBox3 do + chkGlobalScope := TfpgCheckBox.Create(self); + with chkGlobalScope do begin - Name := 'CheckBox3'; + Name := 'chkGlobalScope'; SetPosition(16, 160, 160, 20); FontDesc := '#Label1'; Hint := ''; TabOrder := 8; - Text := 'CheckBox'; + Text := 'Global Scope'; end; - CheckBox4 := TfpgCheckBox.Create(self); - with CheckBox4 do + chkSearchBackwards := TfpgCheckBox.Create(self); + with chkSearchBackwards do begin - Name := 'CheckBox4'; + Name := 'chkSearchBackwards'; SetPosition(16, 180, 160, 20); FontDesc := '#Label1'; Hint := ''; TabOrder := 9; - Text := 'CheckBox'; + Text := 'Search backwards'; end; btnCancel := TfpgButton.Create(self); @@ -179,8 +179,8 @@ begin FontDesc := '#Label1'; Hint := ''; ImageName := ''; - TabOrder := 10; ModalResult := mrCancel; + TabOrder := 10; end; btnFind := TfpgButton.Create(self); @@ -193,8 +193,8 @@ begin FontDesc := '#Label1'; Hint := ''; ImageName := ''; - TabOrder := 11; ModalResult := mrOK; + TabOrder := 11; end; btnHelp := TfpgButton.Create(self); -- cgit v1.2.3-70-g09d2