paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 15:10:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: set TToolBar.Flat = True by default - flat toolbars are generally looks better on all platforms (they have more native look). Moreover it is delphi compatible.

Browse Source 
git-svn-id: trunk@17436 -
This commit is contained in:
paul 2008-11-19 03:58:02 +00:00
parent 91fc0f6297
commit c18f0e2a56
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/comctrls.pp
View File

@ -1589,7 +1589,7 @@ type
property EdgeInner;
property EdgeOuter;
property Enabled;
property Flat: Boolean read FFlat write SetFlat default False;
property Flat: Boolean read FFlat write SetFlat default True;
property Font;
property Height default 32;
//property HideClippedButtons: Boolean read FHideClippedButtons write SetHideClippedButtons default False;

5
lcl/include/toolbar.inc
View File

@ -72,6 +72,7 @@ begin
inherited Create(TheOwner);
ControlStyle := [csAcceptsControls, csCaptureMouse, csClickEvents,
csDoubleClicks, csMenuEvents, csSetCaption];
FFlat := True;
FButtonWidth := 23;
FButtonHeight := 22;
FDropDownWidth := 12;
@ -79,7 +80,7 @@ begin
FWrapable := True;
FButtons := TList.Create;
FIndent := 1;
FList:=false;
FList := False;
FImageChangeLink := TChangeLink.Create;
FImageChangeLink.OnChange := @ImageListChange;
FDisabledImageChangeLink := TChangeLink.Create;
@ -87,7 +88,7 @@ begin
FHotImageChangeLink := TChangeLink.Create;
FHotImageChangeLink.OnChange := @HotImageListChange;
EdgeBorders := [ebTop];
SetInitialBounds(0,0,GetControlClassDefaultSize.X,GetControlClassDefaultSize.Y);
SetInitialBounds(0, 0, GetControlClassDefaultSize.X, GetControlClassDefaultSize.Y);
Align := alTop;
end;