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

fixed SetColor

Browse Source 
git-svn-id: trunk@2235 -
This commit is contained in:
mattias 2002-08-17 23:41:09 +00:00
parent 806dff6651
commit 97ab031183
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/include/control.inc
View File

@ -403,6 +403,14 @@ begin
Application.DoBeforeMouseMessage(Self);
end;
{------------------------------------------------------------------------------
function TControl.ColorIsStored: boolean;
------------------------------------------------------------------------------}
function TControl.ColorIsStored: boolean;
begin
Result:=(Color=clBtnFace);
end;
{------------------------------------------------------------------------------
TControl.DoConstrainedResize
------------------------------------------------------------------------------}
@ -694,7 +702,6 @@ begin
begin
FColor := Value;
FParentColor := False;
CNSendMessage(LM_SETCOLOR, Self, nil);
end;
end;
@ -1904,7 +1911,7 @@ begin
FAnchors := [akLeft,akTop];
FAlign := alNone;
FColor := clWindow;
FColor := clBtnFace;
FVisible := true;
FParentShowHint := True;
FWindowProc := @WndProc;
@ -2048,6 +2055,9 @@ end;
{ =============================================================================
$Log$
Revision 1.111 2002/12/27 17:46:04 mattias
fixed SetColor
Revision 1.110 2002/12/27 17:12:37 mattias
added more Delphi win32 compatibility functions