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

1
src/ce_ceprojeditor.pas
View File

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

280
src/ce_compilers.lfm
View File

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

8
src/ce_controls.pas
View File

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

6
src/ce_d2synpresets.pas
View File

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

30
src/ce_dfmt.lfm
View File

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

41
src/ce_diff.lfm
View File

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

2
src/ce_dsgncontrols.pas
View File

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

35
src/ce_dubprojeditor.lfm
View File

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

5
src/ce_editor.lfm
View File

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

71
src/ce_gdb.lfm
View File

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

2
src/ce_gdb.pas
View File

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

26
src/ce_infos.lfm
View File

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

12
src/ce_infos.pas
View File

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

34
src/ce_libmaneditor.lfm
View File

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

47
src/ce_messages.lfm
View File

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

20
src/ce_miniexplorer.lfm
View File

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

1
src/ce_optionseditor.pas
View File

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

39
src/ce_procinput.lfm
View File

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

27
src/ce_profileviewer.lfm
View File

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

51
src/ce_projgroup.lfm
View File

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

16
src/ce_projinspect.lfm
View File

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

261
src/ce_search.lfm
View File

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

16
src/ce_search.pas
View File

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

45
src/ce_shortcutseditor.lfm
View File

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

1
src/ce_shortcutseditor.pas
View File

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

15
src/ce_symlist.lfm
View File

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

22
src/ce_todolist.lfm
View File

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

31
src/ce_toolseditor.lfm
View File

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

1
src/ce_toolseditor.pas
View File

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

4
src/ce_widget.lfm
View File

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