forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ce_controls.pas
View File

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

8
src/ce_projgroup.lfm
View File

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