paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 13:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix opaque brush

Browse Source 
git-svn-id: trunk@4710 -
This commit is contained in:
ajgenius 2003-10-16 16:43:57 +00:00
parent cba186a6dd
commit 39102c2ba9
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/promptdialog.inc
View File

@ -146,8 +146,7 @@ end;
procedure TPromptDialog.Paint;
begin
Inherited Paint;
Canvas.Brush.Color := clForm;
Canvas.Brush.Style := bsSolid;
Canvas.Brush := Self.Brush;
Canvas.TextRect(TextBox, 0, 0, MSG, TextStyle);
if assigned (FBitmap) then
Canvas.CopyRect(Bounds(cBitmapX, cBitmapY,FBitmap.Width,FBitmap.Height),
@ -378,6 +377,9 @@ end;
{
$Log$
Revision 1.10 2003/10/16 16:43:57 ajgenius
fix opaque brush
Revision 1.9 2003/10/15 20:33:37 ajgenius
add csForm, start fixing Style matching for syscolors and fonts