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

lcl: set ParentFont = True by default (delphi compatible and #0012046)

Browse Source 
git-svn-id: trunk@16536 -
This commit is contained in:
paul 2008-09-11 02:55:31 +00:00
parent d6593ebca1
commit 1fa9302245
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/controls.pp
View File

@ -1092,8 +1092,8 @@ type
property DragKind: TDragKind read FDragKind write FDragKind default dkDrag;
property DragMode: TDragMode read fDragMode write SetDragMode default dmManual;
property MouseCapture: Boolean read GetMouseCapture write SetMouseCapture;
property ParentColor: Boolean read FParentColor write SetParentColor default true;
property ParentFont: Boolean read FParentFont write SetParentFont;
property ParentColor: Boolean read FParentColor write SetParentColor default True;
property ParentFont: Boolean read FParentFont write SetParentFont default True;
property ParentShowHint: Boolean read FParentShowHint write SetParentShowHint default True;
property SessionProperties: string read FSessionProperties write FSessionProperties;
property Text: TCaption read GetText write SetText;

9
lcl/include/control.inc
View File

@ -843,9 +843,9 @@ end;
------------------------------------------------------------------------------}
function TControl.ColorIsStored: boolean;
begin
Result:=(Color<>clWindow);
if Result and ParentColor and (Parent<>nil) then
Result:=false;
Result := (Color <> clWindow);
if Result and ParentColor and (Parent <> nil) then
Result := False;
end;
{------------------------------------------------------------------------------
@ -3845,8 +3845,9 @@ begin
FCaptureMouseButtons := [mbLeft];
FColor := clWindow;
FVisible := true;
FParentShowHint := True;
FParentColor := True;
FParentFont := True;
FParentShowHint := True;
FWindowProc := @WndProc;
FCursor := crDefault;
FFont := TFont.Create;