From 1c50f4279f89d41dd1d85964645217860f5c0b9c Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Thu, 25 Sep 2008 14:52:36 +0000
Subject: * Updated the Hint Window example to show the default values of
 fpgApplication.ShowHint and Form.ShowHint and the behaviour they reflect.

---
 examples/gui/hintwindow/edittest.lpr | 32 +++++++++++++++-----------------
 1 file changed, 15 insertions(+), 17 deletions(-)

(limited to 'examples')

diff --git a/examples/gui/hintwindow/edittest.lpr b/examples/gui/hintwindow/edittest.lpr
index b0309792..3ed9aa24 100644
--- a/examples/gui/hintwindow/edittest.lpr
+++ b/examples/gui/hintwindow/edittest.lpr
@@ -26,6 +26,7 @@ type
     procedure chbSpaceChange(Sender: TObject);
     procedure chbFloatDecChange(Sender: TObject);
     procedure chbShowHintChange(Sender: TObject);
+    procedure chbAppShowHintChange(Sender: TObject);
     procedure rb_border_1Change(Sender: TObject);
     procedure rb_border_2Change(Sender: TObject);
     procedure rb_border_3Change(Sender: TObject);
@@ -98,6 +99,7 @@ type
     rb_shadowcolor_gray: TfpgRadioButton;
     rb_shadowcolor_black: TfpgRadioButton;
     chbShowHint: TfpgCheckBox;
+    chbAppShowHint: TfpgCheckBox;
     {@VFD_HEAD_END: MainForm}
     procedure AfterCreate; override;
   end;
@@ -209,20 +211,12 @@ end;
 
 procedure TMainForm.chbShowHintChange(Sender: TObject);
 begin
-  if chbShowHint.Checked then
-  begin
-    edtText.ShowHint := True;
-    edtInteger.ShowHint := True;
-    edtFloat.ShowHint := True;
-    edtCurrency.ShowHint := True;
-  end
-  else
-  begin
-    edtText.ShowHint := False;
-    edtInteger.ShowHint := False;
-    edtFloat.ShowHint := False;
-    edtCurrency.ShowHint := False;
-  end;
+  self.ShowHint := chbShowHint.Checked;
+end;
+
+procedure TMainForm.chbAppShowHintChange(Sender: TObject);
+begin
+  fpgApplication.ShowHint := chbAppShowHint.Checked;
 end;
 
 procedure TMainForm.rb_border_1Change(Sender: TObject);
@@ -361,7 +355,7 @@ procedure TMainForm.AfterCreate;
 begin
   {@VFD_BODY_BEGIN: MainForm}
   Name := 'MainForm';
-  SetPosition(376, 202, 392, 550);
+  SetPosition(376, 202, 392, 570);
   WindowTitle := 'Edit components';
   WindowPosition := wpScreenCenter;
 
@@ -489,7 +483,7 @@ begin
   with btnQuit do
   begin
     Name := 'btnQuit';
-    SetPosition(296, 520, 75, 24);
+    SetPosition(296, 540, 75, 24);
     Anchors := [anRight,anBottom];
     Text := 'Quit';
     FontDesc := '#Label1';
@@ -695,9 +689,13 @@ begin
   rb_shadowcolor_black := CreateRadioButton(p_shadowcolor,80,25,'Black');
   rb_shadowcolor_black.OnChange:= @rb_shadowcolor_blackChange;
 
-  chbShowHint := CreateCheckBox(Self,200,500,'Show hint');
+  chbShowHint := CreateCheckBox(Self,200,495,'Form.ShowHint');
+  chbShowHint.Checked := self.ShowHint;
   chbShowhint.OnChange:= @chbShowHintChange;
 
+  chbAppShowHint := CreateCheckBox(Self,200,515,'Application.ShowHint');
+  chbAppShowHint.Checked := fpgApplication.ShowHint;
+  chbAppShowhint.OnChange:= @chbAppShowHintChange;
 
   {@VFD_BODY_END: MainForm}
   
-- 
cgit v1.2.3-70-g09d2