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

Better support for high DPI monitors #151

This commit is contained in:
Basile Burg 2018-01-15 05:20:19 +01:00
parent 9b3478aa42
commit 9a247f3815
31 changed files with 711 additions and 471 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/ce_ceprojeditor.lfm
View File

@ -1,35 +1,38 @@
inherited CEProjectConfigurationWidget: TCEProjectConfigurationWidget inherited CEProjectConfigurationWidget: TCEProjectConfigurationWidget
Left = 1467 Left = 1467
Height = 273 Height = 315
Top = 349 Top = 349
Width = 445 Width = 445
Caption = 'CE project editor' Caption = 'CE project editor'
ClientHeight = 273 ClientHeight = 315
ClientWidth = 445 ClientWidth = 445
inherited Back: TPanel inherited Back: TPanel
Height = 273 Height = 315
Width = 445 Width = 445
ClientHeight = 273 AutoSize = True
ClientHeight = 315
ClientWidth = 445 ClientWidth = 445
inherited Content: TPanel inherited Content: TPanel
Height = 237 Height = 281
Top = 34
Width = 445 Width = 445
ClientHeight = 237 ClientHeight = 281
ClientWidth = 445 ClientWidth = 445
object Panel2: TPanel[0] object Panel2: TPanel[0]
Left = 4 Left = 4
Height = 229 Height = 273
Top = 4 Top = 4
Width = 437 Width = 437
Align = alClient Align = alClient
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 229 ClientHeight = 273
ClientWidth = 437 ClientWidth = 437
TabOrder = 0 TabOrder = 0
object Tree: TTreeView object Tree: TTreeView
Left = 0 Left = 0
Height = 229 Height = 273
Hint = 'filter configuration elements' Hint = 'filter configuration elements'
Top = 0 Top = 0
Width = 160 Width = 160
@ -63,14 +66,14 @@ inherited CEProjectConfigurationWidget: TCEProjectConfigurationWidget
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 160 Left = 160
Height = 229 Height = 273
Top = 0 Top = 0
Width = 5 Width = 5
AutoSnap = False AutoSnap = False
end end
object inspector: TTIPropertyGrid object inspector: TTIPropertyGrid
Left = 165 Left = 165
Height = 229 Height = 273
Top = 0 Top = 0
Width = 272 Width = 272
Align = alClient Align = alClient
@ -87,11 +90,13 @@ inherited CEProjectConfigurationWidget: TCEProjectConfigurationWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Height = 28
Width = 437 Width = 437
object btnSyncEdit: TCEToolButton[0] object btnSyncEdit: TCEToolButton[0]
Left = 85 Left = 85
Hint = 'activate or deactivate the synchronized edition' Hint = 'activate or deactivate the synchronized edition'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnSyncEdit' Caption = 'btnSyncEdit'
OnClick = btnSyncEditClick OnClick = btnSyncEditClick
resourceName = 'LINK_BREAK' resourceName = 'LINK_BREAK'
@ -101,6 +106,7 @@ inherited CEProjectConfigurationWidget: TCEProjectConfigurationWidget
Left = 57 Left = 57
Hint = 'clone the selected configuration' Hint = 'clone the selected configuration'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnCloneConf' Caption = 'btnCloneConf'
OnClick = btnCloneCurrClick OnClick = btnCloneCurrClick
resourceName = 'COG_GO' resourceName = 'COG_GO'
@ -110,6 +116,7 @@ inherited CEProjectConfigurationWidget: TCEProjectConfigurationWidget
Left = 29 Left = 29
Hint = 'delete selected configuration' Hint = 'delete selected configuration'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnDelConf' Caption = 'btnDelConf'
OnClick = btnDelConfClick OnClick = btnDelConfClick
resourceName = 'COG_DELETE' resourceName = 'COG_DELETE'
@ -119,6 +126,7 @@ inherited CEProjectConfigurationWidget: TCEProjectConfigurationWidget
Left = 1 Left = 1
Hint = 'add a new configuration' Hint = 'add a new configuration'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnAddConf' Caption = 'btnAddConf'
OnClick = btnAddConfClick OnClick = btnAddConfClick
resourceName = 'COG_ADD' resourceName = 'COG_ADD'
@ -126,7 +134,7 @@ inherited CEProjectConfigurationWidget: TCEProjectConfigurationWidget
end end
object selConf: TComboBox[4] object selConf: TComboBox[4]
Left = 116 Left = 116
Height = 28 Height = 26
Hint = 'select a configuration' Hint = 'select a configuration'
Top = 1 Top = 1
Width = 320 Width = 320

1
src/ce_ceprojeditor.pas
View File

@ -72,6 +72,7 @@ begin
inspector.OnEditorFilter := @GridFilter; inspector.OnEditorFilter := @GridFilter;
inspector.CheckboxForBoolean := true; inspector.CheckboxForBoolean := true;
inspector.PropertyEditorHook.AddHandlerModified(@inspectorModified); inspector.PropertyEditorHook.AddHandlerModified(@inspectorModified);
inspector.DefaultItemHeight:= scaleY(22, 96);
// //
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
end; end;

290
src/ce_compilers.lfm
View File

@ -1,39 +1,41 @@
object CompilersPathsEditor: TCompilersPathsEditor object CompilersPathsEditor: TCompilersPathsEditor
Left = 749 Left = 1347
Height = 869 Height = 900
Top = 128
Width = 460
Caption = 'CompilersPathsEditor'
ClientHeight = 869
ClientWidth = 460
LCLVersion = '1.6.4.0'
object ScrollBox1: TScrollBox
Left = 0
Height = 869
Top = 0 Top = 0
Width = 460 Width = 460
HorzScrollBar.Page = 111 Caption = 'CompilersPathsEditor'
VertScrollBar.Page = 864 ClientHeight = 900
ClientWidth = 460
LCLVersion = '1.8.0.6'
object ScrollBox1: TScrollBox
Left = 0
Height = 900
Top = 0
Width = 460
HorzScrollBar.Page = 116
VertScrollBar.Page = 897
Align = alClient Align = alClient
ClientHeight = 865 AutoSize = True
ClientWidth = 456 ClientHeight = 898
ClientWidth = 458
TabOrder = 0 TabOrder = 0
object grpDMD: TGroupBox object grpDMD: TGroupBox
Left = 0 Left = 0
Height = 160 Height = 169
Top = 64 Top = 52
Width = 456 Width = 458
Align = alTop Align = alTop
AutoSize = True
Caption = 'DMD' Caption = 'DMD'
ClientHeight = 130 ClientHeight = 150
ClientWidth = 452 ClientWidth = 454
TabOrder = 0 TabOrder = 0
object selDMDexe: TFileNameEdit object selDMDexe: TFileNameEdit
Left = 2 Left = 2
Height = 20 Height = 25
Hint = 'select the compiler' Hint = 'select the compiler'
Top = 19 Top = 23
Width = 448 Width = 450
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
@ -47,10 +49,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selDMDrt: TDirectoryEdit object selDMDrt: TDirectoryEdit
Left = 2 Left = 2
Height = 20 Height = 25
Hint = 'select the root of druntime sources' Hint = 'select the root of druntime sources'
Top = 60 Top = 73
Width = 448 Width = 450
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -63,10 +65,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selDMDstd: TDirectoryEdit object selDMDstd: TDirectoryEdit
Left = 2 Left = 2
Height = 20 Height = 25
Hint = 'select the root of phobos sources' Hint = 'select the root of phobos sources'
Top = 101 Top = 123
Width = 448 Width = 450
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -79,51 +81,55 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText1: TStaticText object StaticText1: TStaticText
Left = 0 Left = 0
Height = 17 Height = 21
Top = 0 Top = 0
Width = 452 Width = 454
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True
Caption = 'compiler' Caption = 'compiler'
TabOrder = 3 TabOrder = 3
end end
object StaticText2: TStaticText object StaticText2: TStaticText
Left = 0 Left = 0
Height = 17 Height = 21
Top = 41 Top = 50
Width = 452 Width = 454
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True
Caption = 'Runtime sources' Caption = 'Runtime sources'
TabOrder = 4 TabOrder = 4
end end
object StaticText3: TStaticText object StaticText3: TStaticText
Left = 0 Left = 0
Height = 17 Height = 21
Top = 82 Top = 100
Width = 452 Width = 454
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True
Caption = 'Phobos sources' Caption = 'Phobos sources'
TabOrder = 5 TabOrder = 5
end end
end end
object grpGDC: TGroupBox object grpGDC: TGroupBox
Left = 0 Left = 0
Height = 160 Height = 169
Top = 224 Top = 221
Width = 456 Width = 458
Align = alTop Align = alTop
AutoSize = True
Caption = 'GDC' Caption = 'GDC'
ClientHeight = 130 ClientHeight = 150
ClientWidth = 452 ClientWidth = 454
TabOrder = 1 TabOrder = 1
object selGDCexe: TFileNameEdit object selGDCexe: TFileNameEdit
Left = 2 Left = 2
Height = 20 Height = 25
Hint = 'select the compiler' Hint = 'select the compiler'
Top = 19 Top = 23
Width = 448 Width = 450
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
@ -137,10 +143,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selGDCrt: TDirectoryEdit object selGDCrt: TDirectoryEdit
Left = 2 Left = 2
Height = 20 Height = 25
Hint = 'select the root of druntime sources' Hint = 'select the root of druntime sources'
Top = 60 Top = 73
Width = 448 Width = 450
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -153,10 +159,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selGDCstd: TDirectoryEdit object selGDCstd: TDirectoryEdit
Left = 2 Left = 2
Height = 20 Height = 25
Hint = 'select the root of phobos sources' Hint = 'select the root of phobos sources'
Top = 101 Top = 123
Width = 448 Width = 450
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -169,51 +175,55 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText4: TStaticText object StaticText4: TStaticText
Left = 0 Left = 0
Height = 17 Height = 21
Top = 0 Top = 0
Width = 452 Width = 454
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True
Caption = 'compiler' Caption = 'compiler'
TabOrder = 3 TabOrder = 3
end end
object StaticText5: TStaticText object StaticText5: TStaticText
Left = 0 Left = 0
Height = 17 Height = 21
Top = 41 Top = 50
Width = 452 Width = 454
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True
Caption = 'Runtime sources' Caption = 'Runtime sources'
TabOrder = 4 TabOrder = 4
end end
object StaticText6: TStaticText object StaticText6: TStaticText
Left = 0 Left = 0
Height = 17 Height = 21
Top = 82 Top = 100
Width = 452 Width = 454
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True
Caption = 'Phobos sources' Caption = 'Phobos sources'
TabOrder = 5 TabOrder = 5
end end
end end
object grpLDC: TGroupBox object grpLDC: TGroupBox
Left = 0 Left = 0
Height = 160 Height = 169
Top = 384 Top = 390
Width = 456 Width = 458
Align = alTop Align = alTop
AutoSize = True
Caption = 'LDC' Caption = 'LDC'
ClientHeight = 130 ClientHeight = 150
ClientWidth = 452 ClientWidth = 454
TabOrder = 2 TabOrder = 2
object selLDCexe: TFileNameEdit object selLDCexe: TFileNameEdit
Left = 2 Left = 2
Height = 20 Height = 25
Hint = 'select the compiler' Hint = 'select the compiler'
Top = 19 Top = 23
Width = 448 Width = 450
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
@ -227,10 +237,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selLDCrt: TDirectoryEdit object selLDCrt: TDirectoryEdit
Left = 2 Left = 2
Height = 20 Height = 25
Hint = 'select the root of LDC runtime & phobos sources (can be a common folder)' Hint = 'select the root of LDC runtime & phobos sources (can be a common folder)'
Top = 60 Top = 73
Width = 448 Width = 450
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -243,10 +253,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selLDCstd: TDirectoryEdit object selLDCstd: TDirectoryEdit
Left = 2 Left = 2
Height = 20 Height = 25
Hint = 'select the root of phobos sources (can be empty)' Hint = 'select the root of phobos sources (can be empty)'
Top = 101 Top = 123
Width = 448 Width = 450
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -259,51 +269,55 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText7: TStaticText object StaticText7: TStaticText
Left = 0 Left = 0
Height = 17 Height = 21
Top = 0 Top = 0
Width = 452 Width = 454
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True
Caption = 'compiler' Caption = 'compiler'
TabOrder = 3 TabOrder = 3
end end
object StaticText8: TStaticText object StaticText8: TStaticText
Left = 0 Left = 0
Height = 17 Height = 21
Top = 41 Top = 50
Width = 452 Width = 454
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True
Caption = 'Runtime sources' Caption = 'Runtime sources'
TabOrder = 4 TabOrder = 4
end end
object StaticText9: TStaticText object StaticText9: TStaticText
Left = 0 Left = 0
Height = 17 Height = 21
Top = 82 Top = 100
Width = 452 Width = 454
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True
Caption = 'Phobos sources' Caption = 'Phobos sources'
TabOrder = 5 TabOrder = 5
end end
end end
object grpUSER1: TGroupBox object grpUSER1: TGroupBox
Left = 0 Left = 0
Height = 160 Height = 169
Top = 544 Top = 559
Width = 456 Width = 458
Align = alTop Align = alTop
AutoSize = True
Caption = 'User 1' Caption = 'User 1'
ClientHeight = 130 ClientHeight = 150
ClientWidth = 452 ClientWidth = 454
TabOrder = 3 TabOrder = 3
object selUSER1exe: TFileNameEdit object selUSER1exe: TFileNameEdit
Left = 2 Left = 2
Height = 20 Height = 25
Hint = 'select the compiler' Hint = 'select the compiler'
Top = 19 Top = 23
Width = 448 Width = 450
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
@ -317,10 +331,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selUSER1rt: TDirectoryEdit object selUSER1rt: TDirectoryEdit
Left = 2 Left = 2
Height = 20 Height = 25
Hint = 'select the root of druntime sources' Hint = 'select the root of druntime sources'
Top = 60 Top = 73
Width = 448 Width = 450
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -333,10 +347,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selUSER1std: TDirectoryEdit object selUSER1std: TDirectoryEdit
Left = 2 Left = 2
Height = 20 Height = 25
Hint = 'select the root of phobos sources' Hint = 'select the root of phobos sources'
Top = 101 Top = 123
Width = 448 Width = 450
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -349,51 +363,55 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText10: TStaticText object StaticText10: TStaticText
Left = 0 Left = 0
Height = 17 Height = 21
Top = 0 Top = 0
Width = 452 Width = 454
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True
Caption = 'compiler' Caption = 'compiler'
TabOrder = 3 TabOrder = 3
end end
object StaticText11: TStaticText object StaticText11: TStaticText
Left = 0 Left = 0
Height = 17 Height = 21
Top = 41 Top = 50
Width = 452 Width = 454
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True
Caption = 'Runtime sources' Caption = 'Runtime sources'
TabOrder = 4 TabOrder = 4
end end
object StaticText12: TStaticText object StaticText12: TStaticText
Left = 0 Left = 0
Height = 17 Height = 21
Top = 82 Top = 100
Width = 452 Width = 454
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True
Caption = 'Phobos sources' Caption = 'Phobos sources'
TabOrder = 5 TabOrder = 5
end end
end end
object grpUSER2: TGroupBox object grpUSER2: TGroupBox
Left = 0 Left = 0
Height = 160 Height = 169
Top = 704 Top = 728
Width = 456 Width = 458
Align = alTop Align = alTop
AutoSize = True
Caption = 'User 2' Caption = 'User 2'
ClientHeight = 130 ClientHeight = 150
ClientWidth = 452 ClientWidth = 454
TabOrder = 4 TabOrder = 4
object selUSER2exe: TFileNameEdit object selUSER2exe: TFileNameEdit
Left = 2 Left = 2
Height = 20 Height = 25
Hint = 'select the compiler' Hint = 'select the compiler'
Top = 19 Top = 23
Width = 448 Width = 450
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
@ -407,10 +425,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selUSER2rt: TDirectoryEdit object selUSER2rt: TDirectoryEdit
Left = 2 Left = 2
Height = 20 Height = 25
Hint = 'select the root of druntime sources' Hint = 'select the root of druntime sources'
Top = 60 Top = 73
Width = 448 Width = 450
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -423,10 +441,10 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object selUSER2std: TDirectoryEdit object selUSER2std: TDirectoryEdit
Left = 2 Left = 2
Height = 20 Height = 25
Hint = 'select the root of phobos sources' Hint = 'select the root of phobos sources'
Top = 101 Top = 123
Width = 448 Width = 450
ShowHidden = False ShowHidden = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -439,53 +457,57 @@ object CompilersPathsEditor: TCompilersPathsEditor
end end
object StaticText13: TStaticText object StaticText13: TStaticText
Left = 0 Left = 0
Height = 17 Height = 21
Top = 0 Top = 0
Width = 452 Width = 454
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True
Caption = 'compiler' Caption = 'compiler'
TabOrder = 3 TabOrder = 3
end end
object StaticText14: TStaticText object StaticText14: TStaticText
Left = 0 Left = 0
Height = 17 Height = 21
Top = 41 Top = 50
Width = 452 Width = 454
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True
Caption = 'Runtime sources' Caption = 'Runtime sources'
TabOrder = 4 TabOrder = 4
end end
object StaticText15: TStaticText object StaticText15: TStaticText
Left = 0 Left = 0
Height = 17 Height = 21
Top = 82 Top = 100
Width = 452 Width = 454
Align = alTop Align = alTop
Alignment = taCenter Alignment = taCenter
AutoSize = True
Caption = 'Phobos sources' Caption = 'Phobos sources'
TabOrder = 5 TabOrder = 5
end end
end end
object GroupBox6: TGroupBox object GroupBox6: TGroupBox
Left = 0 Left = 0
Height = 64 Height = 52
Top = 0 Top = 0
Width = 456 Width = 458
Align = alTop Align = alTop
AutoSize = True
Caption = 'Default compiler for completion' Caption = 'Default compiler for completion'
ClientHeight = 34 ClientHeight = 33
ClientWidth = 452 ClientWidth = 454
TabOrder = 5 TabOrder = 5
object selDefault: TComboBox object selDefault: TComboBox
Left = 2 Left = 4
Height = 30 Height = 25
Hint = 'select which the compiler for which the library paths are used by the completion daemon' Hint = 'select which the compiler for which the library paths are used by the completion daemon'
Top = 2 Top = 4
Width = 448 Width = 446
Align = alClient Align = alClient
BorderSpacing.Around = 2 BorderSpacing.Around = 4
ItemHeight = 0 ItemHeight = 0
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (

8
src/ce_controls.pas
View File

@ -186,7 +186,7 @@ begin
fHeader := TWinControl.Create(self); fHeader := TWinControl.Create(self);
fHeader.Parent:= self; fHeader.Parent:= self;
fHeader.Align := alTop; fHeader.Align := alTop;
fHeader.Height:= 32; fHeader.Height:= ScaleY(32, 96);
fSplittedPageIndex:=-1; fSplittedPageIndex:=-1;
@ -208,6 +208,7 @@ begin
fMoveLeftBtn.ShowCaption:=false; fMoveLeftBtn.ShowCaption:=false;
fMoveLeftBtn.OnClick:=@btnMoveLeftClick; fMoveLeftBtn.OnClick:=@btnMoveLeftClick;
fMoveLeftBtn.Hint:='move current page to the left'; fMoveLeftBtn.Hint:='move current page to the left';
fMoveLeftBtn.AutoSize:=true;
fMoveRightBtn:= TSpeedButton.Create(self); fMoveRightBtn:= TSpeedButton.Create(self);
fMoveRightBtn.Parent := fHeader; fMoveRightBtn.Parent := fHeader;
@ -217,6 +218,7 @@ begin
fMoveRightBtn.ShowCaption:=false; fMoveRightBtn.ShowCaption:=false;
fMoveRightBtn.OnClick:=@btnMoveRightClick; fMoveRightBtn.OnClick:=@btnMoveRightClick;
fMoveRightBtn.Hint:='move current page to the right'; fMoveRightBtn.Hint:='move current page to the right';
fMoveRightBtn.AutoSize:=true;
fAddBtn:= TSpeedButton.Create(self); fAddBtn:= TSpeedButton.Create(self);
fAddBtn.Parent := fHeader; fAddBtn.Parent := fHeader;
@ -226,6 +228,7 @@ begin
fAddBtn.ShowCaption:=false; fAddBtn.ShowCaption:=false;
fAddBtn.OnClick:=@btnAddClick; fAddBtn.OnClick:=@btnAddClick;
fAddBtn.Hint:='add a new page'; fAddBtn.Hint:='add a new page';
fAddBtn.AutoSize:=true;
fCloseBtn := TSpeedButton.Create(self); fCloseBtn := TSpeedButton.Create(self);
fCloseBtn.Parent := fHeader; fCloseBtn.Parent := fHeader;
@ -235,6 +238,7 @@ begin
fCloseBtn.ShowCaption:=false; fCloseBtn.ShowCaption:=false;
fCloseBtn.OnClick:=@btnCloseClick; fCloseBtn.OnClick:=@btnCloseClick;
fCloseBtn.Hint:='close current page'; fCloseBtn.Hint:='close current page';
fCloseBtn.AutoSize:=true;
fSplitBtn := TSpeedButton.Create(self); fSplitBtn := TSpeedButton.Create(self);
fSplitBtn.Parent := fHeader; fSplitBtn.Parent := fHeader;
@ -244,6 +248,7 @@ begin
fSplitBtn.ShowCaption:=false; fSplitBtn.ShowCaption:=false;
fSplitBtn.OnClick:=@btnSplitClick; fSplitBtn.OnClick:=@btnSplitClick;
fSplitBtn.Hint:= 'pin or un-pin the page to the right'; fSplitBtn.Hint:= 'pin or un-pin the page to the right';
fSplitBtn.AutoSize:=true;
fContent := TPanel.Create(self); fContent := TPanel.Create(self);
fContent.Parent := self; fContent.Parent := self;
@ -252,6 +257,7 @@ begin
fContent.BevelOuter:= bvNone; fContent.BevelOuter:= bvNone;
fContent.BorderStyle:=bsNone; fContent.BorderStyle:=bsNone;
fContent.BorderSpacing.Top:=3; fContent.BorderSpacing.Top:=3;
fContent.AutoSize:=true;
fSplitter := TSplitter.Create(self); fSplitter := TSplitter.Create(self);
fSplitter.Parent := fContent; fSplitter.Parent := fContent;

6
src/ce_d2synpresets.pas
View File

@ -280,6 +280,7 @@ var
firstTime: boolean; firstTime: boolean;
begin begin
inherited; inherited;
fPropEd.DefaultItemHeight:= scaleY(22, 96);
// extracted from the ctor : lazarus 1.8 regression // extracted from the ctor : lazarus 1.8 regression
firstTime := fList.ItemIndex = -1; firstTime := fList.ItemIndex = -1;
if value and (firstTime or (fList.Items.Count >= 0)) then if value and (firstTime or (fList.Items.Count >= 0)) then
@ -536,6 +537,7 @@ begin
fEditor.lines.Add('}'); fEditor.lines.Add('}');
pnl := TPanel.Create(self); pnl := TPanel.Create(self);
pnl.Parent := self; pnl.Parent := self;
pnl.AutoSize := true;
pnl.BevelOuter:= bvNone; pnl.BevelOuter:= bvNone;
pnl.BevelInner:= bvNone; pnl.BevelInner:= bvNone;
pnl.Align:=alTop; pnl.Align:=alTop;
@ -548,10 +550,12 @@ begin
fList.Parent := pnl; fList.Parent := pnl;
fList.ReadOnly:=true; fList.ReadOnly:=true;
fList.OnSelect:= @lstBoxSelChange; fList.OnSelect:= @lstBoxSelChange;
fList.AutoSize := true;
updateList; updateList;
// //
btn := TBitBtn.Create(self); btn := TBitBtn.Create(self);
btn.Parent := pnl; btn.Parent := pnl;
btn.AutoSize := true;
btn.Width:= 28; btn.Width:= 28;
btn.Align:= alRight; btn.Align:= alRight;
btn.OnClick:=@btnAddClick; btn.OnClick:=@btnAddClick;
@ -560,6 +564,7 @@ begin
// //
btn := TBitBtn.Create(self); btn := TBitBtn.Create(self);
btn.Parent := pnl; btn.Parent := pnl;
btn.AutoSize := true;
btn.Width:= 28; btn.Width:= 28;
btn.Align:= alRight; btn.Align:= alRight;
btn.OnClick:=@btnDelClick; btn.OnClick:=@btnDelClick;
@ -568,6 +573,7 @@ begin
// //
btn := TBitBtn.Create(self); btn := TBitBtn.Create(self);
btn.Parent := pnl; btn.Parent := pnl;
btn.AutoSize := true;
btn.Width:= 28; btn.Width:= 28;
btn.Align:= alRight; btn.Align:= alRight;
btn.OnClick:=@btnCloneClick; btn.OnClick:=@btnCloneClick;

30
src/ce_dfmt.lfm
View File

@ -11,17 +11,18 @@ inherited CEDfmtWidget: TCEDfmtWidget
Height = 357 Height = 357
Top = 4 Top = 4
Width = 450 Width = 450
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
ClientHeight = 357 ClientHeight = 357
ClientWidth = 450 ClientWidth = 450
inherited Content: TPanel inherited Content: TPanel
Height = 323 Height = 321
Width = 450 Width = 450
ClientHeight = 323 ClientHeight = 321
ClientWidth = 450 ClientWidth = 450
object dfmtOptionEditor: TTIPropertyGrid[0] object dfmtOptionEditor: TTIPropertyGrid[0]
Left = 4 Left = 4
Height = 279 Height = 299
Top = 4 Top = 4
Width = 442 Width = 442
Align = alClient Align = alClient
@ -38,39 +39,42 @@ inherited CEDfmtWidget: TCEDfmtWidget
end end
object pnlFooter: TPanel[1] object pnlFooter: TPanel[1]
Left = 4 Left = 4
Height = 32 Height = 10
Top = 287 Top = 307
Width = 442 Width = 442
Align = alBottom Align = alBottom
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 32 ClientHeight = 10
ClientWidth = 442 ClientWidth = 442
TabOrder = 1 TabOrder = 1
object btnCancel: TSpeedButton object btnCancel: TSpeedButton
Left = 375 Left = 427
Height = 26 Height = 4
Hint = 'restore previous format' Hint = 'restore previous format'
Top = 3 Top = 3
Width = 30 Width = 4
Align = alRight Align = alRight
AutoSize = True
BorderSpacing.Left = 2 BorderSpacing.Left = 2
BorderSpacing.Around = 2 BorderSpacing.Around = 2
end end
object btnApply: TSpeedButton object btnApply: TSpeedButton
Left = 409 Left = 435
Height = 26 Height = 4
Hint = 'apply formating' Hint = 'apply formating'
Top = 3 Top = 3
Width = 30 Width = 4
Align = alRight Align = alRight
AutoSize = True
BorderSpacing.Left = 2 BorderSpacing.Left = 2
BorderSpacing.Around = 2 BorderSpacing.Around = 2
end end
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Width = 446 Width = 442
end end
end end
end end

41
src/ce_diff.lfm
View File

@ -6,11 +6,11 @@ object CEDiffViewer: TCEDiffViewer
Caption = 'External file modification' Caption = 'External file modification'
ClientHeight = 441 ClientHeight = 441
ClientWidth = 516 ClientWidth = 516
LCLVersion = '1.6.4.0' LCLVersion = '1.8.0.6'
inline editor: TSynEdit inline editor: TSynEdit
Left = 4 Left = 4
Height = 323 Height = 387
Top = 76 Top = 15
Width = 508 Width = 508
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
@ -112,22 +112,24 @@ object CEDiffViewer: TCEDiffViewer
end end
object Panel1: TPanel object Panel1: TPanel
Left = 4 Left = 4
Height = 34 Height = 31
Top = 403 Top = 406
Width = 508 Width = 508
Align = alBottom Align = alBottom
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 34 ClientHeight = 31
ClientWidth = 508 ClientWidth = 508
TabOrder = 1 TabOrder = 1
object btnIgnore: TBitBtn object btnIgnore: TBitBtn
Left = 110 Left = 168
Height = 30 Height = 27
Hint = 'Don''t show this dialog until more modifications are detected' Hint = 'Don''t show this dialog until more modifications are detected'
Top = 2 Top = 2
Width = 130 Width = 116
Align = alRight Align = alRight
AutoSize = True
BorderSpacing.Left = 2 BorderSpacing.Left = 2
BorderSpacing.Around = 1 BorderSpacing.Around = 1
Caption = 'Never ask again' Caption = 'Never ask again'
@ -137,12 +139,13 @@ object CEDiffViewer: TCEDiffViewer
TabOrder = 0 TabOrder = 0
end end
object btnAccept: TBitBtn object btnAccept: TBitBtn
Left = 243 Left = 287
Height = 30 Height = 27
Hint = 'Load the new version' Hint = 'Load the new version'
Top = 2 Top = 2
Width = 130 Width = 124
Align = alRight Align = alRight
AutoSize = True
BorderSpacing.Left = 2 BorderSpacing.Left = 2
BorderSpacing.Around = 1 BorderSpacing.Around = 1
Caption = 'Load new version' Caption = 'Load new version'
@ -152,12 +155,13 @@ object CEDiffViewer: TCEDiffViewer
TabOrder = 1 TabOrder = 1
end end
object btnCancel: TBitBtn object btnCancel: TBitBtn
Left = 376 Left = 414
Height = 30 Height = 27
Hint = 'Don''t reload the modifications for now' Hint = 'Don''t reload the modifications for now'
Top = 2 Top = 2
Width = 130 Width = 92
Align = alRight Align = alRight
AutoSize = True
BorderSpacing.Left = 2 BorderSpacing.Left = 2
BorderSpacing.Around = 1 BorderSpacing.Around = 1
Caption = 'Keep current' Caption = 'Keep current'
@ -169,18 +173,19 @@ object CEDiffViewer: TCEDiffViewer
end end
object Panel2: TPanel object Panel2: TPanel
Left = 4 Left = 4
Height = 68 Height = 7
Top = 4 Top = 4
Width = 508 Width = 508
Align = alTop Align = alTop
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvLowered BevelOuter = bvLowered
ClientHeight = 68 ClientHeight = 7
ClientWidth = 508 ClientWidth = 508
TabOrder = 2 TabOrder = 2
object lbl: TLabel object lbl: TLabel
Left = 3 Left = 3
Height = 62 Height = 1
Top = 3 Top = 3
Width = 502 Width = 502
Align = alClient Align = alClient

2
src/ce_dsgncontrols.pas
View File

@ -65,6 +65,7 @@ begin
inherited; inherited;
fPng := TPortableNetworkGraphic.Create; fPng := TPortableNetworkGraphic.Create;
fDPng := TPortableNetworkGraphic.Create; fDPng := TPortableNetworkGraphic.Create;
AutoSize := true;
end; end;
destructor TCEToolButton.Destroy; destructor TCEToolButton.Destroy;
@ -201,6 +202,7 @@ begin
EdgeOuter:= esNone; EdgeOuter:= esNone;
Flat := false; Flat := false;
Transparent := true; Transparent := true;
AutoSize := true;
end; end;
destructor TCEToolBar.Destroy; destructor TCEToolBar.Destroy;

35
src/ce_dubprojeditor.lfm
View File

@ -9,16 +9,18 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
inherited Back: TPanel inherited Back: TPanel
Height = 424 Height = 424
Width = 407 Width = 407
AutoSize = True
ClientHeight = 424 ClientHeight = 424
ClientWidth = 407 ClientWidth = 407
inherited Content: TPanel inherited Content: TPanel
Height = 388 Height = 390
Top = 34
Width = 407 Width = 407
ClientHeight = 388 ClientHeight = 390
ClientWidth = 407 ClientWidth = 407
object propTree: TTreeView[0] object propTree: TTreeView[0]
Left = 4 Left = 4
Height = 352 Height = 351
Top = 4 Top = 4
Width = 399 Width = 399
Align = alClient Align = alClient
@ -35,31 +37,33 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
end end
object Panel1: TPanel[1] object Panel1: TPanel[1]
Left = 2 Left = 2
Height = 26 Height = 29
Top = 360 Top = 359
Width = 403 Width = 403
Align = alBottom Align = alBottom
AutoSize = True
BorderSpacing.Around = 2 BorderSpacing.Around = 2
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 26 ClientHeight = 29
ClientWidth = 403 ClientWidth = 403
TabOrder = 1 TabOrder = 1
object edProp: TEdit object edProp: TEdit
Left = 2 Left = 2
Height = 22 Height = 25
Top = 2 Top = 2
Width = 371 Width = 395
Align = alClient Align = alClient
BorderSpacing.Around = 2 BorderSpacing.Around = 2
TabOrder = 0 TabOrder = 0
end end
object btnAcceptProp: TSpeedButton object btnAcceptProp: TSpeedButton
Left = 375 Left = 399
Height = 26 Height = 29
Hint = 'accept property value' Hint = 'accept property value'
Top = 0 Top = 0
Width = 28 Width = 4
Align = alRight Align = alRight
AutoSize = True
Layout = blGlyphBottom Layout = blGlyphBottom
OnClick = btnAcceptPropClick OnClick = btnAcceptPropClick
ShowCaption = False ShowCaption = False
@ -67,11 +71,13 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Height = 28
Width = 399 Width = 399
object btnUpdate: TCEToolButton[0] object btnUpdate: TCEToolButton[0]
Left = 85 Left = 85
Hint = 'reload project' Hint = 'reload project'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnUpdate' Caption = 'btnUpdate'
OnClick = btnRefreshClick OnClick = btnRefreshClick
resourceName = 'ARROW_UPDATE' resourceName = 'ARROW_UPDATE'
@ -81,6 +87,7 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
Left = 29 Left = 29
Hint = 'delete property' Hint = 'delete property'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnDelProp' Caption = 'btnDelProp'
OnClick = btnDelPropClick OnClick = btnDelPropClick
resourceName = 'TEXTFIELD_DELETE' resourceName = 'TEXTFIELD_DELETE'
@ -90,6 +97,7 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
Left = 1 Left = 1
Hint = 'add a property' Hint = 'add a property'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnAddProp' Caption = 'btnAddProp'
OnClick = btnAddPropClick OnClick = btnAddPropClick
resourceName = 'TEXTFIELD_ADD' resourceName = 'TEXTFIELD_ADD'
@ -97,7 +105,7 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
end end
object fltEdit: TTreeFilterEdit[3] object fltEdit: TTreeFilterEdit[3]
Left = 128 Left = 128
Height = 26 Height = 24
Hint = 'filter properties' Hint = 'filter properties'
Top = 2 Top = 2
Width = 269 Width = 269
@ -114,6 +122,7 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
Left = 57 Left = 57
Hint = 'clone selected object' Hint = 'clone selected object'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnCloneObject' Caption = 'btnCloneObject'
OnClick = btnCloneObjectClick OnClick = btnCloneObjectClick
resourceName = 'COPY' resourceName = 'COPY'
@ -123,7 +132,7 @@ inherited CEDubProjectEditorWidget: TCEDubProjectEditorWidget
Left = 113 Left = 113
Height = 28 Height = 28
Top = 0 Top = 0
Width = 15 AutoSize = True
Caption = 'button1' Caption = 'button1'
Style = tbsDivider Style = tbsDivider
scaledSeparator = False scaledSeparator = False

5
src/ce_editor.lfm
View File

@ -18,10 +18,9 @@ inherited CEEditorWidget: TCEEditorWidget
ClientWidth = 465 ClientWidth = 465
object editorStatus: TStatusBar[0] object editorStatus: TStatusBar[0]
Left = 0 Left = 0
Height = 20 Height = 21
Top = 376 Top = 375
Width = 465 Width = 465
AutoSize = False
BorderSpacing.Bottom = 2 BorderSpacing.Bottom = 2
Panels = < Panels = <
item item

71
src/ce_gdb.lfm
View File

@ -1,7 +1,7 @@
inherited CEGdbWidget: TCEGdbWidget inherited CEGdbWidget: TCEGdbWidget
Left = 1383 Left = 840
Height = 668 Height = 668
Top = 333 Top = 219
Width = 517 Width = 517
Caption = 'GDB commander' Caption = 'GDB commander'
ClientHeight = 668 ClientHeight = 668
@ -10,36 +10,39 @@ inherited CEGdbWidget: TCEGdbWidget
Height = 662 Height = 662
Top = 6 Top = 6
Width = 517 Width = 517
AutoSize = True
ClientHeight = 662 ClientHeight = 662
ClientWidth = 517 ClientWidth = 517
inherited Content: TPanel inherited Content: TPanel
Height = 626 Height = 628
Top = 34
Width = 517 Width = 517
ClientHeight = 626 ClientHeight = 628
ClientWidth = 517 ClientWidth = 517
object Panel1: TPanel[0] object Panel1: TPanel[0]
Left = 0 Left = 0
Height = 385 Height = 388
Top = 205 Top = 205
Width = 517 Width = 517
Align = alClient Align = alClient
AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 385 ClientHeight = 388
ClientWidth = 517 ClientWidth = 517
TabOrder = 0 TabOrder = 0
object GroupBox3: TGroupBox object GroupBox3: TGroupBox
Left = 0 Left = 0
Height = 179 Height = 182
Top = 206 Top = 206
Width = 517 Width = 517
Align = alClient Align = alClient
Caption = 'CPU' Caption = 'CPU'
ClientHeight = 160 ClientHeight = 163
ClientWidth = 513 ClientWidth = 513
TabOrder = 0 TabOrder = 0
object cpuViewer: TTIPropertyGrid object cpuViewer: TTIPropertyGrid
Left = 0 Left = 0
Height = 160 Height = 163
Hint = 'cpu registers' Hint = 'cpu registers'
Top = 0 Top = 0
Width = 513 Width = 513
@ -155,30 +158,32 @@ inherited CEGdbWidget: TCEGdbWidget
end end
object Panel3: TPanel[1] object Panel3: TPanel[1]
Left = 4 Left = 4
Height = 28 Height = 27
Top = 594 Top = 597
Width = 509 Width = 509
Align = alBottom Align = alBottom
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 28 ClientHeight = 27
ClientWidth = 509 ClientWidth = 509
TabOrder = 1 TabOrder = 1
object btnSendCom: TSpeedButton object btnSendCom: TSpeedButton
Left = 480 Left = 504
Height = 26 Height = 25
Top = 1 Top = 1
Width = 28 Width = 4
Align = alRight Align = alRight
AutoSize = True
BorderSpacing.Around = 1 BorderSpacing.Around = 1
OnClick = btnSendComClick OnClick = btnSendComClick
end end
object Edit1: TComboBox object Edit1: TComboBox
Left = 0 Left = 0
Height = 28 Height = 27
Hint = 'enter a custom GDB command or the program input with ">"' Hint = 'enter a custom GDB command or the program input with ">"'
Top = 0 Top = 0
Width = 479 Width = 503
Align = alClient Align = alClient
AutoComplete = True AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
@ -250,10 +255,10 @@ inherited CEGdbWidget: TCEGdbWidget
ClientWidth = 513 ClientWidth = 513
object lstThreads: TListView object lstThreads: TListView
Left = 0 Left = 0
Height = 164 Height = 169
Hint = 'call stack' Hint = 'call stack'
Top = 0 Top = 0
Width = 509 Width = 513
Align = alClient Align = alClient
AutoSort = False AutoSort = False
AutoWidthLastColumn = True AutoWidthLastColumn = True
@ -306,9 +311,9 @@ inherited CEGdbWidget: TCEGdbWidget
ClientWidth = 513 ClientWidth = 513
object dbgeeOptsEd: TTIPropertyGrid object dbgeeOptsEd: TTIPropertyGrid
Left = 2 Left = 2
Height = 160 Height = 165
Top = 2 Top = 2
Width = 505 Width = 509
Align = alClient Align = alClient
BorderSpacing.Around = 2 BorderSpacing.Around = 2
CheckboxForBoolean = True CheckboxForBoolean = True
@ -325,20 +330,23 @@ inherited CEGdbWidget: TCEGdbWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Height = 28
Width = 509 Width = 509
object btnStack: TCEToolButton[0] object btnStack: TCEToolButton[0]
Left = 249 Left = 238
Hint = 'view call stack' Hint = 'view call stack'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnStack' Caption = 'btnStack'
OnClick = btnStackClick OnClick = btnStackClick
resourceName = 'LIST' resourceName = 'LIST'
scaledSeparator = False scaledSeparator = False
end end
object btnReg: TCEToolButton[1] object btnReg: TCEToolButton[1]
Left = 221 Left = 210
Hint = 'update CPU registers values' Hint = 'update CPU registers values'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnReg' Caption = 'btnReg'
OnClick = btnRegClick OnClick = btnRegClick
resourceName = 'PROCESSOR' resourceName = 'PROCESSOR'
@ -348,7 +356,7 @@ inherited CEGdbWidget: TCEGdbWidget
Left = 205 Left = 205
Height = 28 Height = 28
Top = 0 Top = 0
Width = 16 AutoSize = True
Caption = 'button4' Caption = 'button4'
Style = tbsDivider Style = tbsDivider
scaledSeparator = False scaledSeparator = False
@ -357,6 +365,7 @@ inherited CEGdbWidget: TCEGdbWidget
Left = 97 Left = 97
Hint = 'pause debugging' Hint = 'pause debugging'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnPause' Caption = 'btnPause'
OnClick = btnPauseClick OnClick = btnPauseClick
resourceName = 'PAUSE' resourceName = 'PAUSE'
@ -366,6 +375,7 @@ inherited CEGdbWidget: TCEGdbWidget
Left = 41 Left = 41
Hint = 'stop debugging' Hint = 'stop debugging'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnStop' Caption = 'btnStop'
OnClick = btnStopClick OnClick = btnStopClick
resourceName = 'STOP' resourceName = 'STOP'
@ -375,6 +385,7 @@ inherited CEGdbWidget: TCEGdbWidget
Left = 69 Left = 69
Hint = 'continue debugging' Hint = 'continue debugging'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnContinue' Caption = 'btnContinue'
OnClick = btnContClick OnClick = btnContClick
resourceName = 'PLAY' resourceName = 'PLAY'
@ -384,6 +395,7 @@ inherited CEGdbWidget: TCEGdbWidget
Left = 125 Left = 125
Hint = 'step to next instruction, including in calls' Hint = 'step to next instruction, including in calls'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnNext' Caption = 'btnNext'
DropdownMenu = mnuNext DropdownMenu = mnuNext
OnClick = btnNextClick OnClick = btnNextClick
@ -395,6 +407,7 @@ inherited CEGdbWidget: TCEGdbWidget
Left = 165 Left = 165
Hint = 'step to the next instruction, excluding calls' Hint = 'step to the next instruction, excluding calls'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnOver' Caption = 'btnOver'
DropdownMenu = mnuStep DropdownMenu = mnuStep
OnClick = btnOverClick OnClick = btnOverClick
@ -403,9 +416,10 @@ inherited CEGdbWidget: TCEGdbWidget
scaledSeparator = False scaledSeparator = False
end end
object btnVariables: TCEToolButton[8] object btnVariables: TCEToolButton[8]
Left = 277 Left = 266
Hint = 'update variables list' Hint = 'update variables list'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnVariables' Caption = 'btnVariables'
OnClick = btnVariablesClick OnClick = btnVariablesClick
resourceName = 'WATCH_WINDOW' resourceName = 'WATCH_WINDOW'
@ -415,6 +429,7 @@ inherited CEGdbWidget: TCEGdbWidget
Left = 1 Left = 1
Hint = 'start debugging' Hint = 'start debugging'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnStart' Caption = 'btnStart'
DropdownMenu = mnuProjRunnable DropdownMenu = mnuProjRunnable
OnClick = btnStartClick OnClick = btnStartClick
@ -423,9 +438,10 @@ inherited CEGdbWidget: TCEGdbWidget
scaledSeparator = False scaledSeparator = False
end end
object btnWatch: TCEToolButton[10] object btnWatch: TCEToolButton[10]
Left = 305 Left = 294
Hint = 'add a watchpoint for the variable selected in the list' Hint = 'add a watchpoint for the variable selected in the list'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnWatch' Caption = 'btnWatch'
DropdownMenu = mnuWatch DropdownMenu = mnuWatch
OnClick = btnWatchClick OnClick = btnWatchClick
@ -434,9 +450,10 @@ inherited CEGdbWidget: TCEGdbWidget
scaledSeparator = False scaledSeparator = False
end end
object btnEval: TCEToolButton[11] object btnEval: TCEToolButton[11]
Left = 345 Left = 334
Hint = 'evaluate either a variable from the list or a custom expression' Hint = 'evaluate either a variable from the list or a custom expression'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnEval' Caption = 'btnEval'
DropdownMenu = mnuEval DropdownMenu = mnuEval
OnClick = btnEvalClick OnClick = btnEvalClick

2
src/ce_gdb.pas
View File

@ -1194,6 +1194,8 @@ begin
TCEListViewCopyMenu.create(lstVariables); TCEListViewCopyMenu.create(lstVariables);
TCEListViewCopyMenu.create(lstThreads); TCEListViewCopyMenu.create(lstThreads);
cpuViewer.DefaultItemHeight := scaleY(22, 96);
updateMenu; updateMenu;
AssignPng(btnSendCom, 'ACCEPT'); AssignPng(btnSendCom, 'ACCEPT');
updateButtonsState; updateButtonsState;

26
src/ce_infos.lfm
View File

@ -10,6 +10,7 @@ inherited CEInfoWidget: TCEInfoWidget
inherited Back: TPanel inherited Back: TPanel
Height = 496 Height = 496
Width = 411 Width = 411
AutoSize = True
ClientHeight = 496 ClientHeight = 496
ClientWidth = 411 ClientWidth = 411
inherited Content: TPanel inherited Content: TPanel
@ -19,23 +20,24 @@ inherited CEInfoWidget: TCEInfoWidget
ClientWidth = 411 ClientWidth = 411
object GroupBox1: TGroupBox[0] object GroupBox1: TGroupBox[0]
Left = 4 Left = 4
Height = 105 Height = 36
Top = 4 Top = 4
Width = 403 Width = 403
Align = alTop Align = alTop
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'about' Caption = 'about'
ClientHeight = 75 ClientHeight = 17
ClientWidth = 399 ClientWidth = 399
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
Left = 0 Left = 8
Height = 75 Height = 1
Top = 0 Top = 8
Width = 399 Width = 383
Align = alClient Align = alClient
Alignment = taCenter Alignment = taCenter
AutoSize = False BorderSpacing.Around = 8
Font.Height = -16 Font.Height = -16
Font.Style = [fsBold] Font.Style = [fsBold]
Layout = tlCenter Layout = tlCenter
@ -45,23 +47,25 @@ inherited CEInfoWidget: TCEInfoWidget
end end
object GroupBox2: TGroupBox[1] object GroupBox2: TGroupBox[1]
Left = 4 Left = 4
Height = 343 Height = 412
Top = 113 Top = 44
Width = 403 Width = 403
Align = alClient Align = alClient
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'tools status' Caption = 'tools status'
ClientHeight = 313 ClientHeight = 393
ClientWidth = 399 ClientWidth = 399
TabOrder = 1 TabOrder = 1
object boxTools: TScrollBox object boxTools: TScrollBox
Left = 4 Left = 4
Height = 305 Height = 385
Top = 4 Top = 4
Width = 391 Width = 391
HorzScrollBar.Page = 1 HorzScrollBar.Page = 1
VertScrollBar.Page = 1 VertScrollBar.Page = 1
Align = alClient Align = alClient
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BorderStyle = bsNone BorderStyle = bsNone
TabOrder = 0 TabOrder = 0

12
src/ce_infos.pas
View File

@ -60,14 +60,14 @@ constructor TToolInfo.Construct(TheOwner: TComponent; kind: TToolInfoKind;
begin begin
Inherited create(TheOwner); Inherited create(TheOwner);
Align := alTop; Align := alTop;
height := 26; height := ScaleY(26, 96);
width := 200; width := ScaleX(200, 96);
// //
fLabel := TLabel.Create(self); fLabel := TLabel.Create(self);
fLabel.AutoSize:=false; fLabel.AutoSize:=false;
fLabel.Parent := self; fLabel.Parent := self;
fLabel.Align:= alLeft; fLabel.Align:= alLeft;
fLabel.Width:= 70; fLabel.Width:= ScaleX(70, 96);
fLabel.BorderSpacing.Around := 2; fLabel.BorderSpacing.Around := 2;
fLabel.Hint:= description; fLabel.Hint:= description;
fLabel.ShowHint:=true; fLabel.ShowHint:=true;
@ -75,7 +75,7 @@ begin
fIco := TSpeedButton.Create(self); fIco := TSpeedButton.Create(self);
fIco.Parent := self; fIco.Parent := self;
fIco.Align:= alLeft; fIco.Align:= alLeft;
fIco.Width:= 22; fIco.Width:= ScaleX(22, 96);
fIco.Flat:=true; fIco.Flat:=true;
fIco.BorderSpacing.Around := 2; fIco.BorderSpacing.Around := 2;
fIco.OnClick:= @buttonClick; fIco.OnClick:= @buttonClick;
@ -88,7 +88,7 @@ begin
fStatus.BorderSpacing.Around := 2; fStatus.BorderSpacing.Around := 2;
fStatus.BorderStyle := sbsSunken; fStatus.BorderStyle := sbsSunken;
fStatus.AutoSize:=false; fStatus.AutoSize:=false;
fStatus.Width:= 800; fStatus.Width:= ScaleX(800, 96);
fStatus.Hint:=description; fStatus.Hint:=description;
fStatus.ShowHint:=true; fStatus.ShowHint:=true;
// //
@ -251,7 +251,7 @@ begin
itm.Parent := boxTools; itm.Parent := boxTools;
itm.ReAlign; itm.ReAlign;
// //
Height := boxTools.ControlCount * 30 + 150; Height := boxTools.ControlCount * ScaleY(30, 96) + GroupBox1.Height + ScaleY(12, 96);
Realign; Realign;
end; end;

34
src/ce_libmaneditor.lfm
View File

@ -9,16 +9,18 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
inherited Back: TPanel inherited Back: TPanel
Height = 297 Height = 297
Width = 641 Width = 641
AutoSize = True
ClientHeight = 297 ClientHeight = 297
ClientWidth = 641 ClientWidth = 641
inherited Content: TPanel inherited Content: TPanel
Height = 261 Height = 263
Top = 34
Width = 641 Width = 641
ClientHeight = 261 ClientHeight = 263
ClientWidth = 641 ClientWidth = 641
object List: TListView[0] object List: TListView[0]
Left = 4 Left = 4
Height = 253 Height = 255
Top = 4 Top = 4
Width = 633 Width = 633
Align = alClient Align = alClient
@ -56,47 +58,53 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Height = 28
Width = 633 Width = 633
object btnSelProj: TCEToolButton[0] object btnSelProj: TCEToolButton[0]
Left = 353 Left = 342
Hint = 'set the project that compiles the selected entry' Hint = 'set the project that compiles the selected entry'
Top = 0 Top = 0
AutoSize = True
Caption = 'button3' Caption = 'button3'
OnClick = btnSelProjClick OnClick = btnSelProjClick
resourceName = 'SCRIPT_BRICKS' resourceName = 'SCRIPT_BRICKS'
scaledSeparator = False scaledSeparator = False
end end
object btnSelRoot: TCEToolButton[1] object btnSelRoot: TCEToolButton[1]
Left = 325 Left = 314
Hint = 'set the root of the library sources' Hint = 'set the root of the library sources'
Top = 0 Top = 0
AutoSize = True
Caption = 'button4' Caption = 'button4'
OnClick = btnSelRootClick OnClick = btnSelRootClick
resourceName = 'FOLDER_ADD' resourceName = 'FOLDER_ADD'
scaledSeparator = False scaledSeparator = False
end end
object btnSelfoldOfFiles: TCEToolButton[2] object btnSelfoldOfFiles: TCEToolButton[2]
Left = 297 Left = 286
Hint = 'select a folder containing several d sources (optional trick)' Hint = 'select a folder containing several d sources (optional trick)'
Top = 0 Top = 0
AutoSize = True
Caption = 'button5' Caption = 'button5'
OnClick = btnSelfoldOfFilesClick OnClick = btnSelfoldOfFilesClick
resourceName = 'BRICKS' resourceName = 'BRICKS'
scaledSeparator = False scaledSeparator = False
end end
object btnSelFile: TCEToolButton[3] object btnSelFile: TCEToolButton[3]
Left = 269 Left = 258
Hint = 'selected the static library file' Hint = 'selected the static library file'
Top = 0 Top = 0
AutoSize = True
Caption = 'button6' Caption = 'button6'
OnClick = btnSelFileClick OnClick = btnSelFileClick
resourceName = 'FOLDER_BRICK' resourceName = 'FOLDER_BRICK'
scaledSeparator = False scaledSeparator = False
end end
object btnEditAlias: TCEToolButton[4] object btnEditAlias: TCEToolButton[4]
Left = 241 Left = 230
Hint = 'set the entry alias' Hint = 'set the entry alias'
Top = 0 Top = 0
AutoSize = True
Caption = 'button7' Caption = 'button7'
OnClick = btnEditAliasClick OnClick = btnEditAliasClick
resourceName = 'BOOK_EDIT' resourceName = 'BOOK_EDIT'
@ -106,7 +114,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
Left = 225 Left = 225
Height = 28 Height = 28
Top = 0 Top = 0
Width = 16 AutoSize = True
Caption = 'button8' Caption = 'button8'
Style = tbsDivider Style = tbsDivider
scaledSeparator = False scaledSeparator = False
@ -115,6 +123,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
Left = 197 Left = 197
Hint = 'activate or dactivate the selected entry' Hint = 'activate or dactivate the selected entry'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnEnabled' Caption = 'btnEnabled'
OnClick = btnEnabledClick OnClick = btnEnabledClick
resourceName = 'BOOK' resourceName = 'BOOK'
@ -124,6 +133,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
Left = 169 Left = 169
Hint = 'setup a new entry using an online DUB package' Hint = 'setup a new entry using an online DUB package'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnDubFetch' Caption = 'btnDubFetch'
OnClick = btnDubFetchClick OnClick = btnDubFetchClick
resourceName = 'DUB' resourceName = 'DUB'
@ -133,6 +143,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
Left = 141 Left = 141
Hint = 'open the project that matches to the selected entry' Hint = 'open the project that matches to the selected entry'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnOpenProj' Caption = 'btnOpenProj'
OnClick = btnOpenProjClick OnClick = btnOpenProjClick
resourceName = 'BOOK_OPEN' resourceName = 'BOOK_OPEN'
@ -142,6 +153,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
Left = 113 Left = 113
Hint = 'register a new entry using the active project' Hint = 'register a new entry using the active project'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnReg' Caption = 'btnReg'
OnClick = btnRegClick OnClick = btnRegClick
resourceName = 'BOOK_LINK' resourceName = 'BOOK_LINK'
@ -151,6 +163,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
Left = 85 Left = 85
Hint = 'move entry up' Hint = 'move entry up'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnMoveUp' Caption = 'btnMoveUp'
OnClick = btnMoveUpClick OnClick = btnMoveUpClick
resourceName = 'ARROW_UP' resourceName = 'ARROW_UP'
@ -160,6 +173,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
Left = 57 Left = 57
Hint = 'move entry down' Hint = 'move entry down'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnMoveDown' Caption = 'btnMoveDown'
OnClick = btnMoveDownClick OnClick = btnMoveDownClick
resourceName = 'ARROW_DOWN' resourceName = 'ARROW_DOWN'
@ -169,6 +183,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
Left = 29 Left = 29
Hint = 'remove selected entry' Hint = 'remove selected entry'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnRemLib' Caption = 'btnRemLib'
OnClick = btnRemLibClick OnClick = btnRemLibClick
resourceName = 'BOOK_DELETE' resourceName = 'BOOK_DELETE'
@ -178,6 +193,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget
Left = 1 Left = 1
Hint = 'add a new empty entry' Hint = 'add a new empty entry'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnAddLib' Caption = 'btnAddLib'
OnClick = btnAddLibClick OnClick = btnAddLibClick
resourceName = 'BOOK_ADD' resourceName = 'BOOK_ADD'

47
src/ce_messages.lfm
View File

@ -9,6 +9,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
inherited Back: TPanel inherited Back: TPanel
Height = 159 Height = 159
Width = 844 Width = 844
AutoSize = True
ClientHeight = 159 ClientHeight = 159
ClientWidth = 844 ClientWidth = 844
inherited Content: TPanel inherited Content: TPanel
@ -49,101 +50,106 @@ inherited CEMessagesWidget: TCEMessagesWidget
ShowCaptions = True ShowCaptions = True
Wrapable = False Wrapable = False
object button0: TCEToolButton[0] object button0: TCEToolButton[0]
Left = 554 Left = 530
Height = 28 Height = 28
Top = 0 Top = 0
Width = 5 AutoSize = True
Caption = 'button0' Caption = 'button0'
Style = tbsDivider Style = tbsDivider
scaledSeparator = False scaledSeparator = False
end end
object btnSelMisc: TCEToolButton[1] object btnSelMisc: TCEToolButton[1]
Left = 454 Left = 430
Hint = 'filter the other messages' Hint = 'filter the other messages'
Top = 0 Top = 0
AutoSize = True
Caption = 'Misc' Caption = 'Misc'
scaledSeparator = False scaledSeparator = False
end end
object button2: TCEToolButton[2] object button2: TCEToolButton[2]
Left = 449 Left = 425
Height = 28 Height = 28
Top = 0 Top = 0
Width = 5 AutoSize = True
Caption = 'button2' Caption = 'button2'
Style = tbsDivider Style = tbsDivider
scaledSeparator = False scaledSeparator = False
end end
object btnSelApp: TCEToolButton[3] object btnSelApp: TCEToolButton[3]
Left = 349 Left = 325
Hint = 'filter the messages related to Coedit' Hint = 'filter the messages related to Coedit'
Top = 0 Top = 0
AutoSize = True
Caption = 'Application' Caption = 'Application'
scaledSeparator = False scaledSeparator = False
end end
object button4: TCEToolButton[4] object button4: TCEToolButton[4]
Left = 344 Left = 320
Height = 28 Height = 28
Top = 0 Top = 0
Width = 5 AutoSize = True
Caption = 'button4' Caption = 'button4'
Style = tbsDivider Style = tbsDivider
scaledSeparator = False scaledSeparator = False
end end
object btnSelProj: TCEToolButton[5] object btnSelProj: TCEToolButton[5]
Left = 244 Left = 220
Hint = 'filter the messages related to the active project' Hint = 'filter the messages related to the active project'
Top = 0 Top = 0
AutoSize = True
Caption = 'Project' Caption = 'Project'
scaledSeparator = False scaledSeparator = False
end end
object button6: TCEToolButton[6] object button6: TCEToolButton[6]
Left = 239 Left = 215
Height = 28 Height = 28
Top = 0 Top = 0
Width = 5 AutoSize = True
Caption = 'button6' Caption = 'button6'
Style = tbsDivider Style = tbsDivider
scaledSeparator = False scaledSeparator = False
end end
object btnSelEdit: TCEToolButton[7] object btnSelEdit: TCEToolButton[7]
Left = 139 Left = 115
Hint = 'filter the messages related to the active editor' Hint = 'filter the messages related to the active editor'
Top = 0 Top = 0
AutoSize = True
Caption = 'Editor' Caption = 'Editor'
scaledSeparator = False scaledSeparator = False
end end
object button8: TCEToolButton[8] object button8: TCEToolButton[8]
Left = 134 Left = 110
Height = 28 Height = 28
Top = 0 Top = 0
Width = 5 AutoSize = True
Caption = 'button8' Caption = 'button8'
Style = tbsDivider Style = tbsDivider
scaledSeparator = False scaledSeparator = False
end end
object btnSelAll: TCEToolButton[9] object btnSelAll: TCEToolButton[9]
Left = 34 Left = 10
Hint = 'don''t filter the messages' Hint = 'don''t filter the messages'
Top = 0 Top = 0
AutoSize = True
Caption = 'All' Caption = 'All'
Down = True Down = True
scaledSeparator = False scaledSeparator = False
end end
object button10: TCEToolButton[10] object button10: TCEToolButton[10]
Left = 29 Left = 5
Height = 28 Height = 28
Top = 0 Top = 0
Width = 5 AutoSize = True
Caption = 'button10' Caption = 'button10'
Style = tbsDivider Style = tbsDivider
scaledSeparator = False scaledSeparator = False
end end
object TreeFilterEdit1: TTreeFilterEdit[11] object TreeFilterEdit1: TTreeFilterEdit[11]
Left = 560 Left = 536
Height = 26 Height = 26
Hint = 'in the selected category, filter the messages that contain the text typed here' Hint = 'in the selected category, filter the messages that contain the text typed here'
Top = 1 Top = 1
Width = 275 Width = 299
OnAfterFilter = TreeFilterEdit1AfterFilter OnAfterFilter = TreeFilterEdit1AfterFilter
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
@ -159,8 +165,9 @@ inherited CEMessagesWidget: TCEMessagesWidget
Height = 28 Height = 28
Hint = 'clear the messages that match to the selected category' Hint = 'clear the messages that match to the selected category'
Top = 0 Top = 0
Width = 28 Width = 4
Align = alLeft Align = alLeft
AutoSize = True
end end
end end
end end

20
src/ce_miniexplorer.lfm
View File

@ -10,15 +10,15 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
inherited Back: TPanel inherited Back: TPanel
Height = 598 Height = 598
Width = 343 Width = 343
AutoSize = True
ClientHeight = 598 ClientHeight = 598
ClientWidth = 343 ClientWidth = 343
inherited Content: TPanel inherited Content: TPanel
Left = 4 Left = 4
Height = 556 Height = 558
Top = 38
Width = 335 Width = 335
BorderSpacing.Around = 4 BorderSpacing.Around = 4
ClientHeight = 556 ClientHeight = 558
ClientWidth = 335 ClientWidth = 335
object lstFav: TListView[0] object lstFav: TListView[0]
Left = 0 Left = 0
@ -49,12 +49,13 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
end end
object Panel2: TPanel[2] object Panel2: TPanel[2]
Left = 0 Left = 0
Height = 419 Height = 421
Top = 137 Top = 137
Width = 335 Width = 335
Align = alClient Align = alClient
AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 419 ClientHeight = 421
ClientWidth = 335 ClientWidth = 335
TabOrder = 2 TabOrder = 2
object Tree: TTreeView object Tree: TTreeView
@ -82,7 +83,7 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
end end
object lstFiles: TListView object lstFiles: TListView
Left = 0 Left = 0
Height = 242 Height = 244
Top = 177 Top = 177
Width = 335 Width = 335
Align = alClient Align = alClient
@ -105,11 +106,13 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Height = 28
Width = 335 Width = 335
object btnEdit: TCEToolButton[0] object btnEdit: TCEToolButton[0]
Left = 85 Left = 85
Hint = 'open the selected file in an editor or as a new project' Hint = 'open the selected file in an editor or as a new project'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnEdit' Caption = 'btnEdit'
OnClick = btnEditClick OnClick = btnEditClick
resourceName = 'PENCIL' resourceName = 'PENCIL'
@ -119,6 +122,7 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
Left = 57 Left = 57
Hint = 'open the selected folder or the selected file using the shell' Hint = 'open the selected folder or the selected file using the shell'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnShellOpen' Caption = 'btnShellOpen'
OnClick = btnShellOpenClick OnClick = btnShellOpenClick
resourceName = 'FLASH' resourceName = 'FLASH'
@ -128,6 +132,7 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
Left = 29 Left = 29
Hint = 'remove selected favorite folder' Hint = 'remove selected favorite folder'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnRemFav' Caption = 'btnRemFav'
OnClick = btnRemFavClick OnClick = btnRemFavClick
resourceName = 'FOLDER_DELETE' resourceName = 'FOLDER_DELETE'
@ -137,6 +142,7 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
Left = 1 Left = 1
Hint = 'add selected folder to the favorites' Hint = 'add selected folder to the favorites'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnAddFav' Caption = 'btnAddFav'
OnClick = btnAddFavClick OnClick = btnAddFavClick
resourceName = 'FOLDER_ADD' resourceName = 'FOLDER_ADD'
@ -144,7 +150,7 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
end end
object lstFilter: TListFilterEdit[4] object lstFilter: TListFilterEdit[4]
Left = 119 Left = 119
Height = 26 Height = 24
Hint = 'filter the file names that contain the text typed here' Hint = 'filter the file names that contain the text typed here'
Top = 2 Top = 2
Width = 214 Width = 214

1
src/ce_optionseditor.pas
View File

@ -73,6 +73,7 @@ begin
fEdOptsSubj := TCEEditableOptionsSubject.create; fEdOptsSubj := TCEEditableOptionsSubject.create;
inspector.CheckboxForBoolean := true; inspector.CheckboxForBoolean := true;
inspector.PropertyEditorHook.AddHandlerModified(@inspectorModified); inspector.PropertyEditorHook.AddHandlerModified(@inspectorModified);
inspector.DefaultItemHeight:= scaleY(22, 96);
// //
AssignPng(btnCancel, 'CANCEL'); AssignPng(btnCancel, 'CANCEL');
AssignPng(btnAccept, 'ACCEPT'); AssignPng(btnAccept, 'ACCEPT');

39
src/ce_procinput.lfm
View File

@ -1,7 +1,7 @@
inherited CEProcInputWidget: TCEProcInputWidget inherited CEProcInputWidget: TCEProcInputWidget
Left = 863 Left = 837
Height = 107 Height = 107
Top = 397 Top = 298
Width = 558 Width = 558
Caption = 'Process input' Caption = 'Process input'
ClientHeight = 107 ClientHeight = 107
@ -18,10 +18,11 @@ inherited CEProcInputWidget: TCEProcInputWidget
ClientWidth = 558 ClientWidth = 558
object txtExeName: TStaticText[0] object txtExeName: TStaticText[0]
Left = 4 Left = 4
Height = 24 Height = 21
Top = 4 Top = 4
Width = 550 Width = 550
Align = alTop Align = alTop
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BorderStyle = sbsSunken BorderStyle = sbsSunken
Caption = 'no process' Caption = 'no process'
@ -30,21 +31,22 @@ inherited CEProcInputWidget: TCEProcInputWidget
end end
object Panel1: TPanel[1] object Panel1: TPanel[1]
Left = 4 Left = 4
Height = 32 Height = 31
Top = 32 Top = 29
Width = 550 Width = 550
Align = alTop Align = alTop
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 32 ClientHeight = 31
ClientWidth = 550 ClientWidth = 550
Enabled = False Enabled = False
TabOrder = 1 TabOrder = 1
object txtInp: TEdit object txtInp: TEdit
Left = 0 Left = 0
Height = 26 Height = 25
Top = 3 Top = 3
Width = 449 Width = 530
Align = alClient Align = alClient
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Bottom = 3 BorderSpacing.Bottom = 3
@ -52,32 +54,35 @@ inherited CEProcInputWidget: TCEProcInputWidget
TabOrder = 0 TabOrder = 0
end end
object btnClose: TSpeedButton object btnClose: TSpeedButton
Left = 484 Left = 538
Height = 28 Height = 27
Hint = 'close standard input' Hint = 'close standard input'
Top = 2 Top = 2
Width = 31 Width = 4
Align = alRight Align = alRight
AutoSize = True
BorderSpacing.Around = 2 BorderSpacing.Around = 2
OnClick = btnCloseClick OnClick = btnCloseClick
end end
object btnKill: TSpeedButton object btnKill: TSpeedButton
Left = 517 Left = 544
Height = 28 Height = 27
Hint = 'kill process' Hint = 'kill process'
Top = 2 Top = 2
Width = 31 Width = 4
Align = alRight Align = alRight
AutoSize = True
BorderSpacing.Around = 2 BorderSpacing.Around = 2
OnClick = btnKillClick OnClick = btnKillClick
end end
object btnSend: TSpeedButton object btnSend: TSpeedButton
Left = 451 Left = 532
Height = 28 Height = 27
Hint = 'write content to standard input' Hint = 'write content to standard input'
Top = 2 Top = 2
Width = 31 Width = 4
Align = alRight Align = alRight
AutoSize = True
BorderSpacing.Around = 2 BorderSpacing.Around = 2
OnClick = btnSendClick OnClick = btnSendClick
end end

27
src/ce_profileviewer.lfm
View File

@ -9,16 +9,18 @@ inherited CEProfileViewerWidget: TCEProfileViewerWidget
inherited Back: TPanel inherited Back: TPanel
Height = 537 Height = 537
Width = 551 Width = 551
AutoSize = True
ClientHeight = 537 ClientHeight = 537
ClientWidth = 551 ClientWidth = 551
inherited Content: TPanel inherited Content: TPanel
Height = 501 Height = 500
Top = 37
Width = 551 Width = 551
ClientHeight = 501 ClientHeight = 500
ClientWidth = 551 ClientWidth = 551
object list: TListView[0] object list: TListView[0]
Left = 4 Left = 4
Height = 283 Height = 282
Top = 214 Top = 214
Width = 543 Width = 543
Align = alClient Align = alClient
@ -33,17 +35,17 @@ inherited CEProfileViewerWidget: TCEProfileViewerWidget
item item
AutoSize = True AutoSize = True
Caption = 'Num calls' Caption = 'Num calls'
Width = 74 Width = 75
end end
item item
AutoSize = True AutoSize = True
Caption = 'Tree time' Caption = 'Tree time'
Width = 72 Width = 71
end end
item item
AutoSize = True AutoSize = True
Caption = 'Func time' Caption = 'Func time'
Width = 75 Width = 73
end end
item item
AutoSize = True AutoSize = True
@ -53,7 +55,7 @@ inherited CEProfileViewerWidget: TCEProfileViewerWidget
item item
AutoSize = True AutoSize = True
Caption = 'function' Caption = 'function'
Width = 244 Width = 246
end> end>
HideSelection = False HideSelection = False
ReadOnly = True ReadOnly = True
@ -127,11 +129,13 @@ inherited CEProfileViewerWidget: TCEProfileViewerWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Height = 31
Width = 543 Width = 543
object btnRefresh: TCEToolButton[0] object btnRefresh: TCEToolButton[0]
Left = 57 Left = 57
Hint = 'reload current trace log file or auto load from the current directory' Hint = 'reload current trace log file or auto load from the current directory'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnRefresh' Caption = 'btnRefresh'
OnClick = btnRefreshClick OnClick = btnRefreshClick
resourceName = 'ARROW_UPDATE' resourceName = 'ARROW_UPDATE'
@ -141,6 +145,7 @@ inherited CEProfileViewerWidget: TCEProfileViewerWidget
Left = 29 Left = 29
Hint = 'open a trace log file' Hint = 'open a trace log file'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnOpen' Caption = 'btnOpen'
OnClick = btnOpenClick OnClick = btnOpenClick
resourceName = 'FOLDER' resourceName = 'FOLDER'
@ -150,14 +155,14 @@ inherited CEProfileViewerWidget: TCEProfileViewerWidget
Left = 113 Left = 113
Height = 28 Height = 28
Top = 0 Top = 0
Width = 13 AutoSize = True
Caption = 'button0' Caption = 'button0'
Style = tbsDivider Style = tbsDivider
scaledSeparator = False scaledSeparator = False
end end
object selPieSource: TComboBox[3] object selPieSource: TComboBox[3]
Left = 126 Left = 118
Height = 36 Height = 31
Hint = 'select the pie representation' Hint = 'select the pie representation'
Top = 0 Top = 0
Width = 154 Width = 154
@ -179,6 +184,7 @@ inherited CEProfileViewerWidget: TCEProfileViewerWidget
Left = 85 Left = 85
Hint = 'edit profile viewer options' Hint = 'edit profile viewer options'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnOpts' Caption = 'btnOpts'
OnClick = btnOptsClick OnClick = btnOptsClick
resourceName = 'WRENCH' resourceName = 'WRENCH'
@ -188,6 +194,7 @@ inherited CEProfileViewerWidget: TCEProfileViewerWidget
Left = 1 Left = 1
Hint = 'Try to load using the project output path' Hint = 'Try to load using the project output path'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnProj' Caption = 'btnProj'
OnClick = btnProjClick OnClick = btnProjClick
resourceName = 'LIST' resourceName = 'LIST'

51
src/ce_projgroup.lfm
View File

@ -12,13 +12,14 @@ inherited CEProjectGroupWidget: TCEProjectGroupWidget
ClientHeight = 195 ClientHeight = 195
ClientWidth = 328 ClientWidth = 328
inherited Content: TPanel inherited Content: TPanel
Height = 159 Height = 161
Top = 34
Width = 328 Width = 328
ClientHeight = 159 ClientHeight = 161
ClientWidth = 328 ClientWidth = 328
object lstProj: TListView[0] object lstProj: TListView[0]
Left = 4 Left = 4
Height = 121 Height = 124
Top = 4 Top = 4
Width = 320 Width = 320
Align = alClient Align = alClient
@ -28,22 +29,22 @@ inherited CEProjectGroupWidget: TCEProjectGroupWidget
item item
AutoSize = True AutoSize = True
Caption = 'Name' Caption = 'Name'
Width = 47 Width = 49
end end
item item
AutoSize = True AutoSize = True
Caption = 'Type' Caption = 'Type'
Width = 39 Width = 40
end end
item item
AutoSize = True AutoSize = True
Caption = 'Async' Caption = 'Async'
Width = 48 Width = 49
end end
item item
AutoSize = True AutoSize = True
Caption = 'Configuration' Caption = 'Configuration'
Width = 182 Width = 180
end> end>
GridLines = True GridLines = True
ReadOnly = True ReadOnly = True
@ -55,43 +56,47 @@ inherited CEProjectGroupWidget: TCEProjectGroupWidget
end end
object Panel2: TPanel[1] object Panel2: TPanel[1]
Left = 4 Left = 4
Height = 26 Height = 25
Top = 129 Top = 132
Width = 320 Width = 320
Align = alBottom Align = alBottom
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 26 ClientHeight = 25
ClientWidth = 320 ClientWidth = 320
TabOrder = 1 TabOrder = 1
object btnFreeFocus: TSpeedButton object btnFreeFocus: TSpeedButton
Left = 264 Left = 312
Height = 26 Height = 25
Hint = 'Put the focus on the ungrouped project' Hint = 'Put the focus on the ungrouped project'
Top = 0 Top = 0
Width = 28 Width = 4
Align = alRight Align = alRight
AutoSize = True
Layout = blGlyphBottom Layout = blGlyphBottom
Spacing = 0 Spacing = 0
OnClick = btnFreeFocusClick OnClick = btnFreeFocusClick
end end
object StaticText1: TStaticText object StaticText1: TStaticText
Left = 2 Left = 2
Height = 22 Height = 21
Top = 2 Top = 2
Width = 260 Width = 308
Align = alClient Align = alClient
AutoSize = True
BorderSpacing.Around = 2 BorderSpacing.Around = 2
BorderStyle = sbsSunken BorderStyle = sbsSunken
TabOrder = 0 TabOrder = 0
end end
object btnAddUnfocused: TSpeedButton object btnAddUnfocused: TSpeedButton
Left = 292 Left = 316
Height = 26 Height = 25
Hint = 'Put the ungrouped project in the group' Hint = 'Put the ungrouped project in the group'
Top = 0 Top = 0
Width = 28 Width = 4
Align = alRight Align = alRight
AutoSize = True
Layout = blGlyphBottom Layout = blGlyphBottom
Spacing = 0 Spacing = 0
OnClick = btnAddUnfocusedClick OnClick = btnAddUnfocusedClick
@ -99,11 +104,13 @@ inherited CEProjectGroupWidget: TCEProjectGroupWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Height = 28
Width = 320 Width = 320
object BtnAddProj: TCEToolButton[0] object BtnAddProj: TCEToolButton[0]
Left = 1 Left = 1
Hint = 'add a project to the group' Hint = 'add a project to the group'
Top = 0 Top = 0
AutoSize = True
Caption = 'BtnAddProj' Caption = 'BtnAddProj'
OnClick = BtnAddProjClick OnClick = BtnAddProjClick
resourceName = 'DOCUMENT_ADD' resourceName = 'DOCUMENT_ADD'
@ -113,6 +120,7 @@ inherited CEProjectGroupWidget: TCEProjectGroupWidget
Left = 29 Left = 29
Hint = 'remove the selected project from the group' Hint = 'remove the selected project from the group'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnRemProj' Caption = 'btnRemProj'
OnClick = btnRemProjClick OnClick = btnRemProjClick
resourceName = 'DOCUMENT_DELETE' resourceName = 'DOCUMENT_DELETE'
@ -122,6 +130,7 @@ inherited CEProjectGroupWidget: TCEProjectGroupWidget
Left = 57 Left = 57
Hint = 'move the selected project down' Hint = 'move the selected project down'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnMoveDown' Caption = 'btnMoveDown'
OnClick = btnMoveDownClick OnClick = btnMoveDownClick
resourceName = 'ARROW_DOWN' resourceName = 'ARROW_DOWN'
@ -131,15 +140,17 @@ inherited CEProjectGroupWidget: TCEProjectGroupWidget
Left = 85 Left = 85
Hint = 'move the selected project up' Hint = 'move the selected project up'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnMoveUp' Caption = 'btnMoveUp'
OnClick = btnMoveUpClick OnClick = btnMoveUpClick
resourceName = 'ARROW_UP' resourceName = 'ARROW_UP'
scaledSeparator = False scaledSeparator = False
end end
object btnAsync: TCEToolButton[4] object btnAsync: TCEToolButton[4]
Left = 129 Left = 118
Hint = 'async compilation mode' Hint = 'async compilation mode'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnAsync' Caption = 'btnAsync'
OnClick = btnAsyncClick OnClick = btnAsyncClick
resourceName = 'ARROW_DIVIDE' resourceName = 'ARROW_DIVIDE'
@ -149,7 +160,7 @@ inherited CEProjectGroupWidget: TCEProjectGroupWidget
Left = 113 Left = 113
Height = 28 Height = 28
Top = 0 Top = 0
Width = 16 AutoSize = True
Caption = 'button0' Caption = 'button0'
Style = tbsDivider Style = tbsDivider
scaledSeparator = False scaledSeparator = False

16
src/ce_projinspect.lfm
View File

@ -12,23 +12,24 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
inherited Back: TPanel inherited Back: TPanel
Height = 258 Height = 258
Width = 341 Width = 341
AutoSize = True
ClientHeight = 258 ClientHeight = 258
ClientWidth = 341 ClientWidth = 341
inherited Content: TPanel inherited Content: TPanel
Height = 222 Height = 224
Top = 34
Width = 341 Width = 341
ClientHeight = 222 ClientHeight = 224
ClientWidth = 341 ClientWidth = 341
PopupMenu = nil PopupMenu = nil
object Tree: TTreeView[0] object Tree: TTreeView[0]
Left = 2 Left = 2
Height = 218 Height = 220
Top = 2 Top = 2
Width = 337 Width = 337
Align = alClient Align = alClient
AutoExpand = True AutoExpand = True
BorderSpacing.Around = 2 BorderSpacing.Around = 2
DefaultItemHeight = 16
DragMode = dmAutomatic DragMode = dmAutomatic
HideSelection = False HideSelection = False
Images = imgList Images = imgList
@ -51,11 +52,13 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Height = 28
Width = 333 Width = 333
object btnRemFold: TCEToolButton[0] object btnRemFold: TCEToolButton[0]
Left = 85 Left = 85
Hint = 'remove the selected source parent folder from the project' Hint = 'remove the selected source parent folder from the project'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnRemFold' Caption = 'btnRemFold'
OnClick = btnRemFoldClick OnClick = btnRemFoldClick
resourceName = 'FOLDER_DELETE' resourceName = 'FOLDER_DELETE'
@ -65,6 +68,7 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
Left = 57 Left = 57
Hint = 'add a folder of sources to the project' Hint = 'add a folder of sources to the project'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnAddFold' Caption = 'btnAddFold'
OnClick = btnAddFoldClick OnClick = btnAddFoldClick
resourceName = 'FOLDER_ADD' resourceName = 'FOLDER_ADD'
@ -74,6 +78,7 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
Left = 29 Left = 29
Hint = 'remove selected source from the project' Hint = 'remove selected source from the project'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnRemFile' Caption = 'btnRemFile'
OnClick = btnRemFileClick OnClick = btnRemFileClick
resourceName = 'DOCUMENT_DELETE' resourceName = 'DOCUMENT_DELETE'
@ -83,6 +88,7 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
Left = 1 Left = 1
Hint = 'add a source to the project' Hint = 'add a source to the project'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnAddFile' Caption = 'btnAddFile'
OnClick = btnAddFileClick OnClick = btnAddFileClick
resourceName = 'DOCUMENT_ADD' resourceName = 'DOCUMENT_ADD'
@ -90,7 +96,7 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
end end
object TreeFilterEdit1: TTreeFilterEdit[4] object TreeFilterEdit1: TTreeFilterEdit[4]
Left = 117 Left = 117
Height = 26 Height = 24
Hint = 'filter the source names that contain the text typed here' Hint = 'filter the source names that contain the text typed here'
Top = 2 Top = 2
Width = 214 Width = 214

219
src/ce_search.lfm
View File

@ -1,30 +1,29 @@
inherited CESearchWidget: TCESearchWidget inherited CESearchWidget: TCESearchWidget
Left = 742 Left = 1428
Height = 309 Height = 329
Top = 278 Top = 91
Width = 399 Width = 422
Caption = 'Search & replace' Caption = 'Search & replace'
ClientHeight = 309 ClientHeight = 329
ClientWidth = 399 ClientWidth = 422
inherited Back: TPanel inherited Back: TPanel
Height = 309 Height = 329
Width = 399 Width = 422
ClientHeight = 309 ClientHeight = 329
ClientWidth = 399 ClientWidth = 422
inherited Content: TPanel inherited Content: TPanel
Height = 273 Height = 293
Width = 399 Width = 422
ClientHeight = 273 ClientHeight = 293
ClientWidth = 399 ClientWidth = 422
object cbToFind: TComboBox[0] object cbToFind: TComboBox[0]
Left = 4 Left = 4
Height = 23 Height = 27
Top = 4 Top = 4
Width = 391 Width = 414
Align = alTop Align = alTop
AutoComplete = True AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchCaseSensitive, cbactSearchAscending] AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchCaseSensitive, cbactSearchAscending]
AutoSize = False
BorderSpacing.Around = 4 BorderSpacing.Around = 4
ItemHeight = 0 ItemHeight = 0
MaxLength = 128 MaxLength = 128
@ -34,10 +33,11 @@ inherited CESearchWidget: TCESearchWidget
end end
object btnFind: TBitBtn[1] object btnFind: TBitBtn[1]
Left = 4 Left = 4
Height = 24 Height = 27
Top = 161 Top = 169
Width = 391 Width = 414
Align = alBottom Align = alBottom
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'btnFind' Caption = 'btnFind'
Glyph.Data = { Glyph.Data = {
@ -80,10 +80,11 @@ inherited CESearchWidget: TCESearchWidget
end end
object btnReplace: TBitBtn[2] object btnReplace: TBitBtn[2]
Left = 4 Left = 4
Height = 24 Height = 27
Top = 217 Top = 231
Width = 391 Width = 414
Align = alBottom Align = alBottom
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'btnReplace' Caption = 'btnReplace'
Glyph.Data = { Glyph.Data = {
@ -127,75 +128,128 @@ inherited CESearchWidget: TCESearchWidget
object grpOpts: TGroupBox[3] object grpOpts: TGroupBox[3]
Left = 4 Left = 4
Height = 99 Height = 99
Top = 58 Top = 66
Width = 391 Width = 414
Align = alClient Align = alClient
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'Options' Caption = 'Options'
ClientHeight = 80 ClientHeight = 80
ClientWidth = 389 ClientWidth = 410
TabOrder = 4 TabOrder = 4
object chkWWord: TCheckBox object FlowPanel1: TFlowPanel
Left = 8 Left = 0
Height = 80
Top = 0
Width = 410
Align = alClient
AutoSize = True
BevelOuter = bvNone
ControlList = <
item
Control = chkRegex
WrapAfter = waAuto
Index = 0
end
item
Control = chkPrompt
WrapAfter = waAuto
Index = 1
end
item
Control = chkCaseSens
WrapAfter = waAuto
Index = 2
end
item
Control = chkFromCur
WrapAfter = waAuto
Index = 3
end
item
Control = chkBack
WrapAfter = waAuto
Index = 4
end
item
Control = chkWWord
WrapAfter = waAuto
Index = 5
end>
FlowLayout = tlTop
FlowStyle = fsTopBottomLeftRight
TabOrder = 0
object chkRegex: TCheckBox
Left = 0
Height = 21 Height = 21
Top = 0 Top = 0
Width = 94 Width = 99
Caption = 'whole word' Anchors = []
Caption = 'allow regex'
Checked = True Checked = True
State = cbChecked State = cbChecked
TabOrder = 0 TabOrder = 0
end end
object chkBack: TCheckBox object chkPrompt: TCheckBox
Left = 8 Left = 0
Height = 21 Height = 21
Top = 24 Top = 22
Width = 82 Width = 70
Caption = 'backward' Anchors = []
Caption = 'prompt'
TabOrder = 1 TabOrder = 1
end end
object chkFromCur: TCheckBox object chkCaseSens: TCheckBox
Left = 8 Left = 0
Height = 21 Height = 21
Top = 48 Top = 44
Width = 94 Width = 116
Caption = 'from cursor' Anchors = []
Checked = True Caption = 'case sensitive'
State = cbChecked
TabOrder = 2 TabOrder = 2
end end
object chkCaseSens: TCheckBox object chkFromCur: TCheckBox
Left = 128 Left = 116
Height = 21 Height = 21
Top = 0 Top = 0
Width = 105 Width = 98
Caption = 'case sensitive' Anchors = []
Caption = 'from cursor'
Checked = True
OnChange = chkFromCurChange
State = cbChecked
TabOrder = 3 TabOrder = 3
end end
object chkPrompt: TCheckBox object chkBack: TCheckBox
Left = 128 Left = 116
Height = 21 Height = 21
Top = 24 Top = 22
Width = 70 Width = 86
Caption = 'prompt' Anchors = []
Caption = 'backward'
OnChange = chkBackChange
TabOrder = 4 TabOrder = 4
end end
object chkRegex: TCheckBox object chkWWord: TCheckBox
Left = 128 Left = 116
Height = 21 Height = 21
Top = 48 Top = 44
Width = 92 Width = 98
Caption = 'allow regex' Anchors = []
Caption = 'whole word'
Checked = True Checked = True
State = cbChecked State = cbChecked
TabOrder = 5 TabOrder = 5
end end
end end
end
object btnReplaceAll: TBitBtn[4] object btnReplaceAll: TBitBtn[4]
Left = 4 Left = 4
Height = 24 Height = 27
Top = 245 Top = 262
Width = 391 Width = 414
Align = alBottom Align = alBottom
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
Caption = 'btnReplaceAll' Caption = 'btnReplaceAll'
Glyph.Data = { Glyph.Data = {
@ -238,22 +292,22 @@ inherited CESearchWidget: TCESearchWidget
end end
object Panel1: TPanel[5] object Panel1: TPanel[5]
Left = 4 Left = 4
Height = 23 Height = 27
Top = 31 Top = 35
Width = 391 Width = 414
Align = alTop Align = alTop
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 23 ClientHeight = 27
ClientWidth = 391 ClientWidth = 414
TabOrder = 5 TabOrder = 5
object cbReplaceWth: TComboBox object cbReplaceWth: TComboBox
Left = 102 Left = 110
Height = 23 Height = 27
Top = 0 Top = 0
Width = 289 Width = 304
Align = alClient Align = alClient
Anchors = [akTop, akLeft, akBottom]
AutoComplete = True AutoComplete = True
AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchCaseSensitive, cbactSearchAscending] AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchCaseSensitive, cbactSearchAscending]
ItemHeight = 0 ItemHeight = 0
@ -264,9 +318,9 @@ inherited CESearchWidget: TCESearchWidget
end end
object chkEnableRep: TCheckBox object chkEnableRep: TCheckBox
Left = 0 Left = 0
Height = 23 Height = 27
Top = 0 Top = 0
Width = 102 Width = 110
Align = alLeft Align = alLeft
Caption = 'Replace with ' Caption = 'Replace with '
OnChange = chkEnableRepChange OnChange = chkEnableRepChange
@ -275,21 +329,23 @@ inherited CESearchWidget: TCESearchWidget
end end
object Panel2: TPanel[6] object Panel2: TPanel[6]
Left = 4 Left = 4
Height = 24 Height = 27
Top = 189 Top = 200
Width = 391 Width = 414
Align = alBottom Align = alBottom
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 24 ClientHeight = 27
ClientWidth = 391 ClientWidth = 414
TabOrder = 6 TabOrder = 6
object btnFindAll: TBitBtn object btnFindAll: TBitBtn
Left = 0 Left = 0
Height = 24 Height = 27
Top = 0 Top = 0
Width = 360 Width = 402
Align = alClient Align = alClient
AutoSize = True
Caption = 'btnFindAll' Caption = 'btnFindAll'
Glyph.Data = { Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
@ -330,11 +386,12 @@ inherited CESearchWidget: TCESearchWidget
TabOrder = 0 TabOrder = 0
end end
object btnAllScope: TBitBtn object btnAllScope: TBitBtn
Left = 362 Left = 404
Height = 24 Height = 27
Top = 0 Top = 0
Width = 29 Width = 10
Align = alRight Align = alRight
AutoSize = True
BorderSpacing.Left = 2 BorderSpacing.Left = 2
OnClick = btnAllScopeClick OnClick = btnAllScopeClick
TabOrder = 1 TabOrder = 1
@ -342,7 +399,7 @@ inherited CESearchWidget: TCESearchWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Width = 391 Width = 414
end end
end end
inherited contextMenu: TPopupMenu inherited contextMenu: TPopupMenu

16
src/ce_search.pas
View File

@ -8,7 +8,8 @@ uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
Menus, StdCtrls, actnList, Buttons, SynEdit, SynEditSearch, SynEditTypes, Menus, StdCtrls, actnList, Buttons, SynEdit, SynEditSearch, SynEditTypes,
ce_common, ce_mru, ce_widget, ce_synmemo, ce_interfaces, ce_observer, ce_common, ce_mru, ce_widget, ce_synmemo, ce_interfaces, ce_observer,
ce_writableComponent, ce_dialogs, ce_sharedres, SynEditTextBuffer; ce_writableComponent, ce_dialogs, ce_sharedres, ce_dsgncontrols,
SynEditTextBuffer;
type type
@ -61,6 +62,7 @@ type
chkBack: TCheckBox; chkBack: TCheckBox;
chkFromCur: TCheckBox; chkFromCur: TCheckBox;
chkCaseSens: TCheckBox; chkCaseSens: TCheckBox;
FlowPanel1: TFlowPanel;
grpOpts: TGroupBox; grpOpts: TGroupBox;
imgList: TImageList; imgList: TImageList;
Panel1: TPanel; Panel1: TPanel;
@ -68,7 +70,9 @@ type
procedure btnAllScopeClick(Sender: TObject); procedure btnAllScopeClick(Sender: TObject);
procedure cbReplaceWthChange(Sender: TObject); procedure cbReplaceWthChange(Sender: TObject);
procedure cbToFindChange(Sender: TObject); procedure cbToFindChange(Sender: TObject);
procedure chkBackChange(Sender: TObject);
procedure chkEnableRepChange(Sender: TObject); procedure chkEnableRepChange(Sender: TObject);
procedure chkFromCurChange(Sender: TObject);
private private
fDoc: TCESynMemo; fDoc: TCESynMemo;
fToFind: string; fToFind: string;
@ -534,12 +538,22 @@ begin
updateImperative; updateImperative;
end; end;
procedure TCESearchWidget.chkBackChange(Sender: TObject);
begin
end;
procedure TCESearchWidget.chkEnableRepChange(Sender: TObject); procedure TCESearchWidget.chkEnableRepChange(Sender: TObject);
begin begin
if Updating then exit; if Updating then exit;
updateImperative; updateImperative;
end; end;
procedure TCESearchWidget.chkFromCurChange(Sender: TObject);
begin
end;
procedure TCESearchWidget.cbReplaceWthChange(Sender: TObject); procedure TCESearchWidget.cbReplaceWthChange(Sender: TObject);
begin begin
if Updating then exit; if Updating then exit;

45
src/ce_shortcutseditor.lfm
View File

@ -1,26 +1,26 @@
object CEShortcutEditor: TCEShortcutEditor object CEShortcutEditor: TCEShortcutEditor
Left = 0 Left = 0
Height = 463 Height = 432
Top = 0 Top = 0
Width = 424 Width = 424
ClientHeight = 463 ClientHeight = 432
ClientWidth = 424 ClientWidth = 424
TabOrder = 0 TabOrder = 0
DesignLeft = 678 DesignLeft = 1365
DesignTop = 216 DesignTop = 176
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 463 Height = 432
Top = 0 Top = 0
Width = 424 Width = 424
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 463 ClientHeight = 432
ClientWidth = 424 ClientWidth = 424
TabOrder = 0 TabOrder = 0
object fltItems: TTreeFilterEdit object fltItems: TTreeFilterEdit
Left = 2 Left = 2
Height = 24 Height = 25
Top = 2 Top = 2
Width = 420 Width = 420
OnFilterItem = fltItemsFilterItem OnFilterItem = fltItemsFilterItem
@ -28,21 +28,19 @@ object CEShortcutEditor: TCEShortcutEditor
NumGlyphs = 1 NumGlyphs = 1
Align = alTop Align = alTop
BorderSpacing.Around = 2 BorderSpacing.Around = 2
AutoSize = False
MaxLength = 0 MaxLength = 0
TabOrder = 0 TabOrder = 0
FilteredTreeview = tree FilteredTreeview = tree
end end
object tree: TTreeView object tree: TTreeView
Left = 2 Left = 2
Height = 403 Height = 347
Top = 30 Top = 31
Width = 420 Width = 420
Align = alClient Align = alClient
AutoExpand = True AutoExpand = True
BorderSpacing.Top = 2 BorderSpacing.Top = 2
BorderSpacing.Around = 2 BorderSpacing.Around = 2
DefaultItemHeight = 16
HideSelection = False HideSelection = False
ReadOnly = True ReadOnly = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
@ -53,31 +51,33 @@ object CEShortcutEditor: TCEShortcutEditor
end end
object Panel2: TPanel object Panel2: TPanel
Left = 2 Left = 2
Height = 26 Height = 50
Top = 435 Top = 380
Width = 420 Width = 420
Align = alBottom Align = alBottom
AutoSize = True
BorderSpacing.Around = 2 BorderSpacing.Around = 2
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 26 ClientHeight = 50
ClientWidth = 420 ClientWidth = 420
TabOrder = 2 TabOrder = 2
object btnClear: TSpeedButton object btnClear: TSpeedButton
Left = 2 Left = 2
Height = 22 Height = 46
Hint = 'clear shortcut' Hint = 'clear shortcut'
Top = 2 Top = 2
Width = 23 Width = 4
Align = alLeft Align = alLeft
AutoSize = True
BorderSpacing.Around = 2 BorderSpacing.Around = 2
Flat = True Flat = True
OnClick = btnClearClick OnClick = btnClearClick
end end
object propedit: TTIPropertyGrid object propedit: TTIPropertyGrid
Left = 52 Left = 14
Height = 26 Height = 50
Top = 0 Top = 0
Width = 368 Width = 406
Align = alClient Align = alClient
CheckboxForBoolean = False CheckboxForBoolean = False
DefaultValueFont.Color = clWindowText DefaultValueFont.Color = clWindowText
@ -88,12 +88,13 @@ object CEShortcutEditor: TCEShortcutEditor
ValueFont.Color = clMaroon ValueFont.Color = clMaroon
end end
object btnEdit: TSpeedButton object btnEdit: TSpeedButton
Left = 27 Left = 8
Height = 22 Height = 46
Hint = 'edit selected shortcut' Hint = 'edit selected shortcut'
Top = 2 Top = 2
Width = 23 Width = 4
Align = alLeft Align = alLeft
AutoSize = True
BorderSpacing.Around = 2 BorderSpacing.Around = 2
Flat = True Flat = True
OnClick = btnEditClick OnClick = btnEditClick

1
src/ce_shortcutseditor.pas
View File

@ -190,6 +190,7 @@ begin
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
propedit.TIObject := propvalue; propedit.TIObject := propvalue;
propedit.PropertyEditorHook.AddHandlerModified(@propeditModified); propedit.PropertyEditorHook.AddHandlerModified(@propeditModified);
propedit.DefaultItemHeight:= scaleY(22, 96);
end; end;
destructor TCEShortcutEditor.destroy; destructor TCEShortcutEditor.destroy;

15
src/ce_symlist.lfm
View File

@ -9,22 +9,24 @@ inherited CESymbolListWidget: TCESymbolListWidget
inherited Back: TPanel inherited Back: TPanel
Height = 430 Height = 430
Width = 382 Width = 382
AutoSize = True
ClientHeight = 430 ClientHeight = 430
ClientWidth = 382 ClientWidth = 382
inherited Content: TPanel inherited Content: TPanel
Height = 394 Height = 396
Top = 34
Width = 382 Width = 382
ClientHeight = 394 AutoSize = True
ClientHeight = 396
ClientWidth = 382 ClientWidth = 382
PopupMenu = nil PopupMenu = nil
object Tree: TTreeView[0] object Tree: TTreeView[0]
Left = 4 Left = 4
Height = 386 Height = 388
Top = 4 Top = 4
Width = 374 Width = 374
Align = alClient Align = alClient
BorderSpacing.Around = 4 BorderSpacing.Around = 4
DefaultItemHeight = 16
HideSelection = False HideSelection = False
Images = imgList Images = imgList
ReadOnly = True ReadOnly = True
@ -57,11 +59,14 @@ inherited CESymbolListWidget: TCESymbolListWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Height = 28
Width = 374 Width = 374
AutoSize = True
object btnRefresh: TCEToolButton[0] object btnRefresh: TCEToolButton[0]
Left = 1 Left = 1
Hint = 'refresh the symbol list' Hint = 'refresh the symbol list'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnRefresh' Caption = 'btnRefresh'
OnClick = btnRefreshClick OnClick = btnRefreshClick
resourceName = 'ARROW_UPDATE' resourceName = 'ARROW_UPDATE'
@ -69,7 +74,7 @@ inherited CESymbolListWidget: TCESymbolListWidget
end end
object TreeFilterEdit1: TTreeFilterEdit[1] object TreeFilterEdit1: TTreeFilterEdit[1]
Left = 33 Left = 33
Height = 26 Height = 24
Hint = 'filter the symbols that contain the text typed here' Hint = 'filter the symbols that contain the text typed here'
Top = 2 Top = 2
Width = 339 Width = 339

22
src/ce_todolist.lfm
View File

@ -9,16 +9,18 @@ inherited CETodoListWidget: TCETodoListWidget
inherited Back: TPanel inherited Back: TPanel
Height = 337 Height = 337
Width = 584 Width = 584
AutoSize = True
ClientHeight = 337 ClientHeight = 337
ClientWidth = 584 ClientWidth = 584
inherited Content: TPanel inherited Content: TPanel
Height = 301 Height = 303
Top = 34
Width = 584 Width = 584
ClientHeight = 301 ClientHeight = 303
ClientWidth = 584 ClientWidth = 584
object lstItems: TListView[0] object lstItems: TListView[0]
Left = 4 Left = 4
Height = 293 Height = 295
Top = 4 Top = 4
Width = 576 Width = 576
Align = alClient Align = alClient
@ -32,27 +34,26 @@ inherited CETodoListWidget: TCETodoListWidget
item item
AutoSize = True AutoSize = True
Caption = 'category' Caption = 'category'
Width = 65 Width = 67
end end
item item
AutoSize = True AutoSize = True
Caption = 'assignee' Caption = 'assignee'
Width = 64 Width = 68
end end
item item
AutoSize = True AutoSize = True
Caption = 'status' Caption = 'status'
Width = 49
end end
item item
AutoSize = True AutoSize = True
Caption = 'priority' Caption = 'priority'
Width = 55 Width = 57
end end
item item
AutoSize = True AutoSize = True
Caption = 'file' Caption = 'file'
Width = 286 Width = 278
end> end>
ReadOnly = True ReadOnly = True
SortType = stText SortType = stText
@ -61,11 +62,13 @@ inherited CETodoListWidget: TCETodoListWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Height = 28
Width = 576 Width = 576
object btnGo: TCEToolButton[0] object btnGo: TCEToolButton[0]
Left = 29 Left = 29
Hint = 'go the TODO item definition' Hint = 'go the TODO item definition'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnGo' Caption = 'btnGo'
resourceName = 'ARROW_PEN' resourceName = 'ARROW_PEN'
scaledSeparator = False scaledSeparator = False
@ -74,13 +77,14 @@ inherited CETodoListWidget: TCETodoListWidget
Left = 1 Left = 1
Hint = 'refresh the TODO items' Hint = 'refresh the TODO items'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnRefresh' Caption = 'btnRefresh'
resourceName = 'ARROW_UPDATE' resourceName = 'ARROW_UPDATE'
scaledSeparator = False scaledSeparator = False
end end
object lstfilter: TListFilterEdit[2] object lstfilter: TListFilterEdit[2]
Left = 61 Left = 61
Height = 26 Height = 24
Hint = 'filter the TODO items that contain the text typed here' Hint = 'filter the TODO items that contain the text typed here'
Top = 2 Top = 2
Width = 513 Width = 513

31
src/ce_toolseditor.lfm
View File

@ -9,47 +9,50 @@ inherited CEToolsEditorWidget: TCEToolsEditorWidget
inherited Back: TPanel inherited Back: TPanel
Height = 280 Height = 280
Width = 441 Width = 441
AutoSize = True
ClientHeight = 280 ClientHeight = 280
ClientWidth = 441 ClientWidth = 441
inherited Content: TPanel inherited Content: TPanel
Height = 244 Height = 246
Top = 34
Width = 441 Width = 441
ClientHeight = 244 ClientHeight = 246
ClientWidth = 441 ClientWidth = 441
object Panel2: TPanel[0] object Panel2: TPanel[0]
Left = 4 Left = 4
Height = 236 Height = 238
Top = 4 Top = 4
Width = 433 Width = 433
Align = alClient Align = alClient
AutoSize = True
BorderSpacing.Around = 4 BorderSpacing.Around = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 236 ClientHeight = 238
ClientWidth = 433 ClientWidth = 433
TabOrder = 0 TabOrder = 0
object lstTools: TListBox object lstTools: TListBox
Left = 0 Left = 0
Height = 236 Height = 238
Top = 0 Top = 0
Width = 160 Width = 160
Align = alLeft Align = alLeft
ItemHeight = 0 ItemHeight = 0
OnDblClick = lstToolsDblClick OnDblClick = lstToolsDblClick
OnSelectionChange = lstToolsSelectionChange OnSelectionChange = lstToolsSelectionChange
ScrollWidth = 156 ScrollWidth = 158
TabOrder = 0 TabOrder = 0
TopIndex = -1 TopIndex = -1
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 160 Left = 160
Height = 236 Height = 238
Top = 0 Top = 0
Width = 5 Width = 5
AutoSnap = False AutoSnap = False
end end
object propsEd: TTIPropertyGrid object propsEd: TTIPropertyGrid
Left = 165 Left = 165
Height = 236 Height = 238
Top = 0 Top = 0
Width = 268 Width = 268
Align = alClient Align = alClient
@ -66,11 +69,13 @@ inherited CEToolsEditorWidget: TCEToolsEditorWidget
end end
end end
inherited toolbar: TCEToolBar inherited toolbar: TCEToolBar
Height = 28
Width = 433 Width = 433
object btnRun: TCEToolButton[0] object btnRun: TCEToolButton[0]
Left = 185 Left = 174
Hint = 'execute selected tool' Hint = 'execute selected tool'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnRun' Caption = 'btnRun'
OnClick = btnRunClick OnClick = btnRunClick
resourceName = 'APPLICATION_FLASH' resourceName = 'APPLICATION_FLASH'
@ -80,7 +85,7 @@ inherited CEToolsEditorWidget: TCEToolsEditorWidget
Left = 169 Left = 169
Height = 28 Height = 28
Top = 0 Top = 0
Width = 16 AutoSize = True
Caption = 'button1' Caption = 'button1'
Style = tbsDivider Style = tbsDivider
scaledSeparator = False scaledSeparator = False
@ -89,6 +94,7 @@ inherited CEToolsEditorWidget: TCEToolsEditorWidget
Left = 141 Left = 141
Hint = 'clone selected tool' Hint = 'clone selected tool'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnClone' Caption = 'btnClone'
OnClick = btnCloneClick OnClick = btnCloneClick
resourceName = 'APPLICATION_DOUBLE' resourceName = 'APPLICATION_DOUBLE'
@ -98,6 +104,7 @@ inherited CEToolsEditorWidget: TCEToolsEditorWidget
Left = 113 Left = 113
Hint = 'move selected tool up' Hint = 'move selected tool up'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnMoveUp' Caption = 'btnMoveUp'
OnClick = btnMoveUpClick OnClick = btnMoveUpClick
resourceName = 'ARROW_UP' resourceName = 'ARROW_UP'
@ -107,6 +114,7 @@ inherited CEToolsEditorWidget: TCEToolsEditorWidget
Left = 85 Left = 85
Hint = 'move selected tool down' Hint = 'move selected tool down'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnMoveDown' Caption = 'btnMoveDown'
OnClick = btnMoveDownClick OnClick = btnMoveDownClick
resourceName = 'ARROW_DOWN' resourceName = 'ARROW_DOWN'
@ -116,6 +124,7 @@ inherited CEToolsEditorWidget: TCEToolsEditorWidget
Left = 57 Left = 57
Hint = 'remove selected tool' Hint = 'remove selected tool'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnRemTool' Caption = 'btnRemTool'
OnClick = btnRemToolClick OnClick = btnRemToolClick
resourceName = 'APPLICATION_DELETE' resourceName = 'APPLICATION_DELETE'
@ -125,6 +134,7 @@ inherited CEToolsEditorWidget: TCEToolsEditorWidget
Left = 29 Left = 29
Hint = 'add a new empty tool' Hint = 'add a new empty tool'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnAddTool' Caption = 'btnAddTool'
OnClick = BtnAddToolClick OnClick = BtnAddToolClick
resourceName = 'APPLICATION_ADD' resourceName = 'APPLICATION_ADD'
@ -134,6 +144,7 @@ inherited CEToolsEditorWidget: TCEToolsEditorWidget
Left = 1 Left = 1
Hint = 'enable or disable edition' Hint = 'enable or disable edition'
Top = 0 Top = 0
AutoSize = True
Caption = 'btnEdit' Caption = 'btnEdit'
OnClick = btnEditClick OnClick = btnEditClick
resourceName = 'APPLICATION_EDIT' resourceName = 'APPLICATION_EDIT'

1
src/ce_toolseditor.pas
View File

@ -52,6 +52,7 @@ begin
inherited; inherited;
propsEd.CheckboxForBoolean := true; propsEd.CheckboxForBoolean := true;
propsEd.PropertyEditorHook.AddHandlerModified(@propsEdModified); propsEd.PropertyEditorHook.AddHandlerModified(@propsEdModified);
propsEd.DefaultItemHeight:= scaleY(22, 96);
rebuildToolList; rebuildToolList;
setReadOnly(CustomTools.readOnly); setReadOnly(CustomTools.readOnly);
end; end;

4
src/ce_widget.lfm
View File

@ -9,7 +9,7 @@ object CEWidget: TCEWidget
ClientWidth = 332 ClientWidth = 332
ShowHint = True ShowHint = True
ShowInTaskBar = stNever ShowInTaskBar = stNever
LCLVersion = '1.6.4.0' LCLVersion = '1.8.0.6'
object Back: TPanel object Back: TPanel
Left = 0 Left = 0
Height = 121 Height = 121
@ -27,6 +27,7 @@ object CEWidget: TCEWidget
Top = 36 Top = 36
Width = 332 Width = 332
Align = alClient Align = alClient
AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
PopupMenu = contextMenu PopupMenu = contextMenu
TabOrder = 0 TabOrder = 0
@ -36,6 +37,7 @@ object CEWidget: TCEWidget
Height = 30 Height = 30
Top = 4 Top = 4
Width = 324 Width = 324
AutoSize = True
BorderSpacing.Left = 2 BorderSpacing.Left = 2
BorderSpacing.Top = 2 BorderSpacing.Top = 2
BorderSpacing.Right = 2 BorderSpacing.Right = 2