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

lcl: send CM_COLORCHANGED on control color change

Browse Source 
git-svn-id: trunk@27935 -
This commit is contained in:
paul 2010-10-29 06:13:36 +00:00
parent b385553fb5
commit 4b114b6eb4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/control.inc
View File

@ -1204,7 +1204,7 @@ begin
{$IFDEF VerboseDrag}
DebugLn('TControl.DragDrop ',Name,':',ClassName,' XY=',IntToStr(X),',',IntToStr(Y));
{$ENDIF}
If Assigned(FOnDragDrop) then FOnDragDrop(Self, Source,X,Y);
if Assigned(FOnDragDrop) then FOnDragDrop(Self, Source,X,Y);
end;
{------------------------------------------------------------------------------
@ -1216,6 +1216,7 @@ begin
begin
FColor := Value;
FParentColor := False;
Perform(CM_COLORCHANGED, 0, 0);
Invalidate;
end;
end;
@ -1223,7 +1224,7 @@ end;
{------------------------------------------------------------------------------
TControl CanAutoSize
------------------------------------------------------------------------------}
function TControl.CanAutoSize(Var NewWidth, NewHeight : Integer): Boolean;
function TControl.CanAutoSize(var NewWidth, NewHeight : Integer): Boolean;
begin
Result := True;
end;