paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 07:30: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); Application.DoBeforeMouseMessage(Self);
end; end;
{------------------------------------------------------------------------------
function TControl.ColorIsStored: boolean;
------------------------------------------------------------------------------}
function TControl.ColorIsStored: boolean;
begin
Result:=(Color=clBtnFace);
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
TControl.DoConstrainedResize TControl.DoConstrainedResize
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
@ -694,7 +702,6 @@ begin
begin begin
FColor := Value; FColor := Value;
FParentColor := False; FParentColor := False;
CNSendMessage(LM_SETCOLOR, Self, nil);
end; end;
end; end;
@ -1904,7 +1911,7 @@ begin
FAnchors := [akLeft,akTop]; FAnchors := [akLeft,akTop];
FAlign := alNone; FAlign := alNone;
FColor := clWindow; FColor := clBtnFace;
FVisible := true; FVisible := true;
FParentShowHint := True; FParentShowHint := True;
FWindowProc := @WndProc; FWindowProc := @WndProc;
@ -2048,6 +2055,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.111 2002/12/27 17:46:04 mattias
fixed SetColor
Revision 1.110 2002/12/27 17:12:37 mattias Revision 1.110 2002/12/27 17:12:37 mattias
added more Delphi win32 compatibility functions added more Delphi win32 compatibility functions