diff options
author | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2006-11-22 21:31:48 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2006-11-22 21:31:48 +0000 |
commit | cc5ac395fd9445e73b53e0a6881e127322ed28e3 (patch) | |
tree | bb89ebeb806f992bfe485112615af319b5b2541a /prototypes/multihandle/gui2Base.pas | |
parent | 7b0fbef832bc8782f231ecb2663650b73ec98dab (diff) | |
download | fpGUI-cc5ac395fd9445e73b53e0a6881e127322ed28e3.tar.xz |
Prototypes TLabel didn't paint background correctly under Windows.
Diffstat (limited to 'prototypes/multihandle/gui2Base.pas')
-rw-r--r-- | prototypes/multihandle/gui2Base.pas | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/prototypes/multihandle/gui2Base.pas b/prototypes/multihandle/gui2Base.pas index 19b2ffb3..4b294e2c 100644 --- a/prototypes/multihandle/gui2Base.pas +++ b/prototypes/multihandle/gui2Base.pas @@ -201,8 +201,10 @@ end; procedure TLabel.Paint; begin - Color := FParent.Canvas.GetColor; - inherited Paint; +// Color := FParent.Canvas.GetColor; +// inherited Paint; + Canvas.SetColor(colWhite); + Canvas.FillRect(Rect(0,0,Width,Height)); Canvas.SetColor(colBlack); Canvas.TextOut(Point(0, 0), FCaption); end; |