diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-31 12:26:53 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-31 12:26:53 +0200 |
commit | 87e9099e2ec148b83da98592ecb3a342c223702c (patch) | |
tree | bb63798227f3a54d9cff768b715d6639c530e884 /examples/apps | |
parent | 6af41b7b7bf5a1c8a112523c49a1cb962da8e732 (diff) | |
download | fpGUI-87e9099e2ec148b83da98592ecb3a342c223702c.tar.xz |
ide: named two checkboxes in the Find dialog.
Diffstat (limited to 'examples/apps')
-rw-r--r-- | examples/apps/ide/src/frm_find.pas | 24 |
1 files changed, 12 insertions, 12 deletions
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); |