From 9a247f38156231121f732c5eeba50bdd0738bba5 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Mon, 15 Jan 2018 05:20:19 +0100 Subject: [PATCH] Better support for high DPI monitors #151 --- src/ce_ceprojeditor.lfm | 32 +++-- src/ce_ceprojeditor.pas | 1 + src/ce_compilers.lfm | 280 ++++++++++++++++++++----------------- src/ce_controls.pas | 8 +- src/ce_d2synpresets.pas | 6 + src/ce_dfmt.lfm | 30 ++-- src/ce_diff.lfm | 41 +++--- src/ce_dsgncontrols.pas | 2 + src/ce_dubprojeditor.lfm | 35 +++-- src/ce_editor.lfm | 5 +- src/ce_gdb.lfm | 71 ++++++---- src/ce_gdb.pas | 2 + src/ce_infos.lfm | 26 ++-- src/ce_infos.pas | 12 +- src/ce_libmaneditor.lfm | 34 +++-- src/ce_messages.lfm | 47 ++++--- src/ce_miniexplorer.lfm | 20 ++- src/ce_optionseditor.pas | 1 + src/ce_procinput.lfm | 39 +++--- src/ce_profileviewer.lfm | 27 ++-- src/ce_projgroup.lfm | 51 ++++--- src/ce_projinspect.lfm | 16 ++- src/ce_search.lfm | 261 ++++++++++++++++++++-------------- src/ce_search.pas | 16 ++- src/ce_shortcutseditor.lfm | 45 +++--- src/ce_shortcutseditor.pas | 1 + src/ce_symlist.lfm | 15 +- src/ce_todolist.lfm | 22 +-- src/ce_toolseditor.lfm | 31 ++-- src/ce_toolseditor.pas | 1 + src/ce_widget.lfm | 4 +- 31 files changed, 711 insertions(+), 471 deletions(-) diff --git a/src/ce_ceprojeditor.lfm b/src/ce_ceprojeditor.lfm index 4bec79a0..104622cd 100644 --- a/src/ce_ceprojeditor.lfm +++ b/src/ce_ceprojeditor.lfm @@ -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 diff --git a/src/ce_ceprojeditor.pas b/src/ce_ceprojeditor.pas index 59763c9c..9b524c32 100644 --- a/src/ce_ceprojeditor.pas +++ b/src/ce_ceprojeditor.pas @@ -72,6 +72,7 @@ begin inspector.OnEditorFilter := @GridFilter; inspector.CheckboxForBoolean := true; inspector.PropertyEditorHook.AddHandlerModified(@inspectorModified); + inspector.DefaultItemHeight:= scaleY(22, 96); // EntitiesConnector.addObserver(self); end; diff --git a/src/ce_compilers.lfm b/src/ce_compilers.lfm index f7cf6c49..3cc4522e 100644 --- a/src/ce_compilers.lfm +++ b/src/ce_compilers.lfm @@ -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 = ( diff --git a/src/ce_controls.pas b/src/ce_controls.pas index 854efc01..71c6206c 100644 --- a/src/ce_controls.pas +++ b/src/ce_controls.pas @@ -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; diff --git a/src/ce_d2synpresets.pas b/src/ce_d2synpresets.pas index 7d4a9997..998294bb 100644 --- a/src/ce_d2synpresets.pas +++ b/src/ce_d2synpresets.pas @@ -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; diff --git a/src/ce_dfmt.lfm b/src/ce_dfmt.lfm index b9be6742..b2a6a079 100644 --- a/src/ce_dfmt.lfm +++ b/src/ce_dfmt.lfm @@ -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 diff --git a/src/ce_diff.lfm b/src/ce_diff.lfm index ee136306..8522d717 100644 --- a/src/ce_diff.lfm +++ b/src/ce_diff.lfm @@ -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 diff --git a/src/ce_dsgncontrols.pas b/src/ce_dsgncontrols.pas index 0298db8c..62287161 100644 --- a/src/ce_dsgncontrols.pas +++ b/src/ce_dsgncontrols.pas @@ -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; diff --git a/src/ce_dubprojeditor.lfm b/src/ce_dubprojeditor.lfm index ccf070b8..6c8564ab 100644 --- a/src/ce_dubprojeditor.lfm +++ b/src/ce_dubprojeditor.lfm @@ -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 diff --git a/src/ce_editor.lfm b/src/ce_editor.lfm index 7dca41d1..28b58ed9 100644 --- a/src/ce_editor.lfm +++ b/src/ce_editor.lfm @@ -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 diff --git a/src/ce_gdb.lfm b/src/ce_gdb.lfm index efe89cb6..7b12a5e4 100644 --- a/src/ce_gdb.lfm +++ b/src/ce_gdb.lfm @@ -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 diff --git a/src/ce_gdb.pas b/src/ce_gdb.pas index cddff4ce..0207e894 100644 --- a/src/ce_gdb.pas +++ b/src/ce_gdb.pas @@ -1194,6 +1194,8 @@ begin TCEListViewCopyMenu.create(lstVariables); TCEListViewCopyMenu.create(lstThreads); + cpuViewer.DefaultItemHeight := scaleY(22, 96); + updateMenu; AssignPng(btnSendCom, 'ACCEPT'); updateButtonsState; diff --git a/src/ce_infos.lfm b/src/ce_infos.lfm index ca56e73a..f7b86f3f 100644 --- a/src/ce_infos.lfm +++ b/src/ce_infos.lfm @@ -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 diff --git a/src/ce_infos.pas b/src/ce_infos.pas index 7a3a082c..3a81414f 100644 --- a/src/ce_infos.pas +++ b/src/ce_infos.pas @@ -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; diff --git a/src/ce_libmaneditor.lfm b/src/ce_libmaneditor.lfm index 6870c3b3..8c360008 100644 --- a/src/ce_libmaneditor.lfm +++ b/src/ce_libmaneditor.lfm @@ -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' diff --git a/src/ce_messages.lfm b/src/ce_messages.lfm index 17a3d374..393e5126 100644 --- a/src/ce_messages.lfm +++ b/src/ce_messages.lfm @@ -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 diff --git a/src/ce_miniexplorer.lfm b/src/ce_miniexplorer.lfm index 1460cb59..9493de8f 100644 --- a/src/ce_miniexplorer.lfm +++ b/src/ce_miniexplorer.lfm @@ -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 diff --git a/src/ce_optionseditor.pas b/src/ce_optionseditor.pas index 1a04ddc0..bc5e2e3c 100644 --- a/src/ce_optionseditor.pas +++ b/src/ce_optionseditor.pas @@ -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'); diff --git a/src/ce_procinput.lfm b/src/ce_procinput.lfm index 51561fad..8aed9f01 100644 --- a/src/ce_procinput.lfm +++ b/src/ce_procinput.lfm @@ -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 diff --git a/src/ce_profileviewer.lfm b/src/ce_profileviewer.lfm index c1bb2c63..daa406fc 100644 --- a/src/ce_profileviewer.lfm +++ b/src/ce_profileviewer.lfm @@ -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' diff --git a/src/ce_projgroup.lfm b/src/ce_projgroup.lfm index 74697ac4..63a1a8d7 100644 --- a/src/ce_projgroup.lfm +++ b/src/ce_projgroup.lfm @@ -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 diff --git a/src/ce_projinspect.lfm b/src/ce_projinspect.lfm index c5be2672..5a18c4bb 100644 --- a/src/ce_projinspect.lfm +++ b/src/ce_projinspect.lfm @@ -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 diff --git a/src/ce_search.lfm b/src/ce_search.lfm index b523145d..ef3812b0 100644 --- a/src/ce_search.lfm +++ b/src/ce_search.lfm @@ -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 diff --git a/src/ce_search.pas b/src/ce_search.pas index e08b51a4..f1ced5de 100644 --- a/src/ce_search.pas +++ b/src/ce_search.pas @@ -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; diff --git a/src/ce_shortcutseditor.lfm b/src/ce_shortcutseditor.lfm index 24ed950a..1f392884 100644 --- a/src/ce_shortcutseditor.lfm +++ b/src/ce_shortcutseditor.lfm @@ -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 diff --git a/src/ce_shortcutseditor.pas b/src/ce_shortcutseditor.pas index 1dbc4596..29a1737a 100644 --- a/src/ce_shortcutseditor.pas +++ b/src/ce_shortcutseditor.pas @@ -190,6 +190,7 @@ begin EntitiesConnector.addObserver(self); propedit.TIObject := propvalue; propedit.PropertyEditorHook.AddHandlerModified(@propeditModified); + propedit.DefaultItemHeight:= scaleY(22, 96); end; destructor TCEShortcutEditor.destroy; diff --git a/src/ce_symlist.lfm b/src/ce_symlist.lfm index e2099d61..60f542e0 100644 --- a/src/ce_symlist.lfm +++ b/src/ce_symlist.lfm @@ -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 diff --git a/src/ce_todolist.lfm b/src/ce_todolist.lfm index 0a491ebd..42048c97 100644 --- a/src/ce_todolist.lfm +++ b/src/ce_todolist.lfm @@ -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 diff --git a/src/ce_toolseditor.lfm b/src/ce_toolseditor.lfm index 4d954d10..80722305 100644 --- a/src/ce_toolseditor.lfm +++ b/src/ce_toolseditor.lfm @@ -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' diff --git a/src/ce_toolseditor.pas b/src/ce_toolseditor.pas index b2e7d5eb..cb9c7391 100644 --- a/src/ce_toolseditor.pas +++ b/src/ce_toolseditor.pas @@ -52,6 +52,7 @@ begin inherited; propsEd.CheckboxForBoolean := true; propsEd.PropertyEditorHook.AddHandlerModified(@propsEdModified); + propsEd.DefaultItemHeight:= scaleY(22, 96); rebuildToolList; setReadOnly(CustomTools.readOnly); end; diff --git a/src/ce_widget.lfm b/src/ce_widget.lfm index 893b910c..247e9a76 100644 --- a/src/ce_widget.lfm +++ b/src/ce_widget.lfm @@ -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