diff options
author | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2006-11-22 18:39:03 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2006-11-22 18:39:03 +0000 |
commit | 05d252d951f2e998ce2e7a84a531cbe9c473f8ec (patch) | |
tree | 6f33ce7ef65dfea742239020ad811ef2a2a9ac35 /prototypes/multihandle | |
parent | 3f33bf70066d8577d06146a0e1d672a2f03f728e (diff) | |
download | fpGUI-05d252d951f2e998ce2e7a84a531cbe9c473f8ec.tar.xz |
Added more details when the TButtons and which ones get painted.
Diffstat (limited to 'prototypes/multihandle')
-rw-r--r-- | prototypes/multihandle/gui2Base.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/prototypes/multihandle/gui2Base.pas b/prototypes/multihandle/gui2Base.pas index dc52de51..45a6b09c 100644 --- a/prototypes/multihandle/gui2Base.pas +++ b/prototypes/multihandle/gui2Base.pas @@ -50,6 +50,7 @@ type TButton = class(TWidget) private FCaption: string; + procedure EvOnPaint(Sender: TObject; const Rect: TRect); override; procedure SetCaption(const AValue: string); protected procedure Paint; override; @@ -126,6 +127,12 @@ end; { TButton } +procedure TButton.EvOnPaint(Sender: TObject; const Rect: TRect); +begin + inherited EvOnPaint(Sender, Rect); + {$IFDEF DEBUG} Writeln(' - Painting ' + Caption); {$ENDIF} +end; + procedure TButton.SetCaption(const AValue: string); begin if FCaption=AValue then exit; |