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

fixed ColorIsStored

Browse Source 
git-svn-id: trunk@4611 -
This commit is contained in:
mattias 2003-09-13 10:06:53 +00:00
parent 3d6f3dcdb9
commit f776299788
5 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/comctrls.pp
View File

@ -113,6 +113,8 @@ type
Procedure WMPaint(var Msg: TLMPaint); message LM_PAINT;
Procedure DrawDivider(X : Integer);
Procedure DrawBevel(xLeft, PanelNum : Integer);
protected
function ColorIsStored: boolean; override;
public
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
@ -2037,6 +2039,9 @@ end.
{ =============================================================================
$Log$
Revision 1.86 2003/09/13 10:06:53 mattias
fixed ColorIsStored
Revision 1.85 2003/08/30 18:53:07 mattias
using default colors, when theme does not define them

1
lcl/forms.pp
View File

@ -418,6 +418,7 @@ type
procedure VisibleChanging; override;
procedure WndProc(var TheMessage : TLMessage); override;
function VisibleIsStored: boolean;
function ColorIsStored: boolean; override;
public
// properties
public

5
lcl/include/control.inc
View File

@ -654,7 +654,7 @@ end;
------------------------------------------------------------------------------}
function TControl.ColorIsStored: boolean;
begin
Result:=(Color<>clBtnFace);
Result:=(Color<>clWindow);
end;
{------------------------------------------------------------------------------
@ -2561,6 +2561,9 @@ end;
{ =============================================================================
$Log$
Revision 1.154 2003/09/13 10:04:35 mattias
fixed ColorIsStored
Revision 1.153 2003/09/13 10:02:18 mattias
set default color to clWindow

8
lcl/include/customform.inc
View File

@ -803,6 +803,11 @@ begin
Result:=Visible;
end;
function TCustomForm.ColorIsStored: boolean;
begin
Result:=(Color<>clBtnFace);
end;
{------------------------------------------------------------------------------}
{ TCustomForm SetMenu }
@ -1430,6 +1435,9 @@ end;
{ =============================================================================
$Log$
Revision 1.114 2003/09/13 10:04:35 mattias
fixed ColorIsStored
Revision 1.113 2003/09/06 18:38:06 mattias
fixed recreating handle after showmodal

5
lcl/include/statusbar.inc
View File

@ -168,6 +168,11 @@ Begin
end;
End;
function TStatusBar.ColorIsStored: boolean;
begin
Result:=(Color<>clBtnFace);
end;
Procedure TStatusBar.DrawDivider(X : Integer);
Begin
Canvas.Pen.Width:=1;