improve the page control under win, close #51

This commit is contained in:
Basile Burg 2016-06-25 17:32:28 +02:00
parent 15630dcab8
commit ec50bdede7
2 changed files with 8 additions and 5 deletions

View File

@ -5,7 +5,7 @@ unit ce_controls;
interface
uses
Classes, SysUtils, Forms, Controls, ComCtrls, ExtCtrls, buttons;
Classes, SysUtils, Forms, Controls, ComCtrls, ExtCtrls, buttons, Graphics;
type
TCEPageControlButton = (pbClose, pbMoveLeft, pbMoveRight, pbAdd, pbSplit);
@ -166,6 +166,9 @@ begin
fTabs.Options:=[];
fTabs.OnChange:=@tabsChanged;
fTabs.OnChanging:=@tabsChanging;
{$IFDEF WINDOWS}
fTabs.BorderSpacing.Top:= 8;
{$ENDIF}
fMoveLeftBtn:= TSpeedButton.Create(self);
fMoveLeftBtn.Parent := fHeader;

View File

@ -1,7 +1,7 @@
inherited CEProjectGroupWidget: TCEProjectGroupWidget
Left = 866
Left = 862
Height = 195
Top = 277
Top = 273
Width = 328
Caption = 'Project group'
ClientHeight = 195
@ -33,12 +33,12 @@ inherited CEProjectGroupWidget: TCEProjectGroupWidget
item
AutoSize = True
Caption = 'Type'
Width = 38
Width = 36
end
item
AutoSize = True
Caption = 'Configuration'
Width = 86
Width = 77
end>
GridLines = True
ReadOnly = True