diff --git a/lazproj/coedit.lpi b/lazproj/coedit.lpi index 25cf523f..4354b366 100644 --- a/lazproj/coedit.lpi +++ b/lazproj/coedit.lpi @@ -54,11 +54,7 @@ - - - - @@ -102,11 +98,7 @@ - - - - @@ -144,7 +136,6 @@ - @@ -152,37 +143,30 @@ - - - - - - - @@ -200,7 +184,6 @@ - @@ -208,7 +191,6 @@ - @@ -224,7 +206,6 @@ - @@ -242,7 +223,6 @@ - @@ -250,7 +230,6 @@ - @@ -263,7 +242,6 @@ - @@ -279,7 +257,6 @@ - @@ -297,7 +274,6 @@ - @@ -307,7 +283,6 @@ - @@ -315,12 +290,10 @@ - - @@ -328,12 +301,10 @@ - - @@ -346,7 +317,6 @@ - @@ -364,12 +334,12 @@ - + @@ -407,11 +377,7 @@ - - - - diff --git a/src/ce_editor.pas b/src/ce_editor.pas index 753061df..b0fa9742 100644 --- a/src/ce_editor.pas +++ b/src/ce_editor.pas @@ -98,8 +98,7 @@ begin // completion.OnPaintItem := @completionItemPaint; fSyncEdit := TSynPluginSyncroEdit.Create(self); - //TODO-cLCL&LAZ-specific: activate this after next Laz release - //fSyncEdit.CaseSensitive:=true; + fSyncEdit.CaseSensitive:=true; png := TPortableNetworkGraphic.Create; try png.LoadFromLazarusResource('link_edit'); diff --git a/src/ce_editoroptions.pas b/src/ce_editoroptions.pas index 9832bb4f..5d82cf08 100644 --- a/src/ce_editoroptions.pas +++ b/src/ce_editoroptions.pas @@ -19,9 +19,6 @@ type end; - // attributes frameedges are not stored because of: - //TODO-cLCL&LAZ-specific: remove this comment once http://bugs.freepascal.org/view.php?id=27513 merged/fixed - (** * Container for the editor and highlither options. * The base class is also used to backup the settings diff --git a/src/ce_main.lfm b/src/ce_main.lfm index 2d6f04a0..766cfc94 100644 --- a/src/ce_main.lfm +++ b/src/ce_main.lfm @@ -10,7 +10,7 @@ object CEMainForm: TCEMainForm OnCloseQuery = FormCloseQuery OnDropFiles = FormDropFiles ShowHint = True - LCLVersion = '1.2.6.0' + LCLVersion = '1.4.0.1' object mainMenu: TMainMenu Images = imgList top = 1 diff --git a/src/ce_main.pas b/src/ce_main.pas index 7936cfd2..01bc78f9 100644 --- a/src/ce_main.pas +++ b/src/ce_main.pas @@ -1435,7 +1435,7 @@ var xcfg: TXMLConfigStorage; i: NativeInt; begin - // TODO-cLCL&LAZ-specific: possible loading AV, xml saved after undocking some widgets, xml file abnormal size. + // TODO-cbugfix: possible loading AV, xml saved after undocking some widgets, xml file abnormal size, seems to be related to Anchordocking itself, not its usage. for i:= 0 to fWidgList.Count-1 do begin if not fWidgList.widget[i].isDockable then continue; diff --git a/src/ce_miniexplorer.lfm b/src/ce_miniexplorer.lfm index 3ff880fc..dbcc3a02 100644 --- a/src/ce_miniexplorer.lfm +++ b/src/ce_miniexplorer.lfm @@ -149,14 +149,15 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget TabOrder = 3 end object lstFilter: TListFilterEdit - Left = 116 - Height = 23 - Top = 0 - Width = 196 - ButtonWidth = 23 + Left = 113 + Height = 22 + Top = 1 + Width = 221 + ButtonWidth = 28 NumGlyphs = 1 - Align = alCustom + Align = alClient Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 1 MaxLength = 0 TabOrder = 4 end diff --git a/src/ce_miniexplorer.pas b/src/ce_miniexplorer.pas index aafc91a1..db902ddb 100644 --- a/src/ce_miniexplorer.pas +++ b/src/ce_miniexplorer.pas @@ -102,11 +102,7 @@ begin Tree.OnDeletion := @treeDeletion; Tree.OnSelectionChanged := @treeSelectionChanged; Tree.OnExpanding := @treeExpanding; - - // http://bugs.freepascal.org/view.php?id=27137 - // TODO-cLCL&LAZ-specific: remove comment after next Laz release - // TODO-cLCL&LAZ-specific, try the new TListViewFilterEdit here. - // TODO-cLCL&LAZ-specific, the align/anchors of filterxxx must be redefined, previously there was a bug. + // lstFilter.FilteredListbox := nil; lstFilter.onChange := @lstFilterChange; // diff --git a/src/ce_projinspect.lfm b/src/ce_projinspect.lfm index ff05d0ae..5a0d56e7 100644 --- a/src/ce_projinspect.lfm +++ b/src/ce_projinspect.lfm @@ -89,13 +89,13 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget ShowCaption = False end object TreeFilterEdit1: TTreeFilterEdit - Left = 144 - Height = 23 - Top = 0 - Width = 159 + Left = 142 + Height = 20 + Top = 2 + Width = 193 ButtonWidth = 28 NumGlyphs = 1 - Align = alCustom + Align = alClient Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 2 MaxLength = 0 diff --git a/src/ce_shortcutseditor.lfm b/src/ce_shortcutseditor.lfm index 4317e8fe..0a1ef553 100644 --- a/src/ce_shortcutseditor.lfm +++ b/src/ce_shortcutseditor.lfm @@ -6,8 +6,8 @@ object CEShortcutEditor: TCEShortcutEditor ClientHeight = 463 ClientWidth = 424 TabOrder = 0 - DesignLeft = 796 - DesignTop = 213 + DesignLeft = 1449 + DesignTop = 4 object Panel1: TPanel Left = 0 Height = 463 @@ -19,26 +19,27 @@ object CEShortcutEditor: TCEShortcutEditor ClientWidth = 424 TabOrder = 0 object fltItems: TTreeFilterEdit - Left = 0 + Left = 2 Height = 23 - Top = 0 - Width = 400 - ButtonWidth = 23 + Top = 2 + Width = 420 + ButtonWidth = 28 NumGlyphs = 1 - Align = alCustom - Anchors = [akTop, akLeft, akRight] + Align = alTop + BorderSpacing.Around = 2 MaxLength = 0 TabOrder = 0 FilteredTreeview = tree end object tree: TTreeView - Left = 1 - Height = 400 - Top = 28 - Width = 423 - Align = alCustom - Anchors = [akTop, akLeft, akRight, akBottom] + Left = 2 + Height = 404 + Top = 29 + Width = 420 + Align = alClient AutoExpand = True + BorderSpacing.Top = 2 + BorderSpacing.Around = 2 DefaultItemHeight = 18 HideSelection = False ReadOnly = True @@ -48,34 +49,37 @@ object CEShortcutEditor: TCEShortcutEditor Options = [tvoAutoExpand, tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw] end object Panel2: TPanel - Left = 0 - Height = 31 - Top = 432 - Width = 424 + Left = 2 + Height = 26 + Top = 435 + Width = 420 Align = alBottom + BorderSpacing.Around = 2 BevelOuter = bvNone - ClientHeight = 31 - ClientWidth = 424 + ClientHeight = 26 + ClientWidth = 420 TabOrder = 2 object schrtText: TStaticText - Left = 4 - Height = 23 - Top = 4 - Width = 277 + Left = 0 + Height = 22 + Top = 2 + Width = 283 Align = alClient Alignment = taCenter - BorderSpacing.Around = 4 + BorderSpacing.Top = 2 + BorderSpacing.Bottom = 2 BorderStyle = sbsSunken TabOrder = 0 end object shcCatch: TEdit - Left = 312 - Height = 25 - Top = 3 - Width = 112 + Left = 310 + Height = 22 + Top = 2 + Width = 109 Align = alRight - BorderSpacing.Top = 3 - BorderSpacing.Bottom = 3 + BorderSpacing.Top = 1 + BorderSpacing.Bottom = 1 + BorderSpacing.Around = 1 Enabled = False OnExit = shcCatchExit OnKeyDown = LabeledEdit1KeyDown @@ -84,11 +88,11 @@ object CEShortcutEditor: TCEShortcutEditor end object btnActivate: TSpeedButton Left = 285 - Height = 23 - Top = 4 + Height = 22 + Top = 2 Width = 23 Align = alRight - BorderSpacing.Around = 4 + BorderSpacing.Around = 2 OnClick = btnActivateClick end end diff --git a/src/ce_staticexplorer.lfm b/src/ce_staticexplorer.lfm index e78fafd4..2ce6ad5b 100644 --- a/src/ce_staticexplorer.lfm +++ b/src/ce_staticexplorer.lfm @@ -1,7 +1,7 @@ inherited CEStaticExplorerWidget: TCEStaticExplorerWidget - Left = 1521 + Left = 1548 Height = 430 - Top = 259 + Top = 457 Width = 310 Caption = 'Static explorer' ClientHeight = 430 @@ -68,14 +68,14 @@ inherited CEStaticExplorerWidget: TCEStaticExplorerWidget PopupMenu = contextMenu TabOrder = 1 object TreeFilterEdit1: TTreeFilterEdit - Left = 36 - Height = 23 + Left = 32 + Height = 22 Top = 2 - Width = 242 + Width = 272 OnAfterFilter = TreeFilterEdit1AfterFilter - ButtonWidth = 23 + ButtonWidth = 28 NumGlyphs = 1 - Align = alCustom + Align = alClient Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 2 MaxLength = 0 diff --git a/src/ce_todolist.lfm b/src/ce_todolist.lfm index fb0d5ef5..b055d561 100644 --- a/src/ce_todolist.lfm +++ b/src/ce_todolist.lfm @@ -41,14 +41,15 @@ inherited CETodoListWidget: TCETodoListWidget TabOrder = 0 end object lstfilter: TListFilterEdit - Left = 68 - Height = 23 + Left = 62 + Height = 22 Top = 2 - Width = 483 + Width = 516 ButtonWidth = 28 NumGlyphs = 1 - Align = alCustom + Align = alClient Anchors = [akTop, akLeft, akRight] + BorderSpacing.Around = 2 MaxLength = 0 TabOrder = 1 end diff --git a/src/ce_todolist.pas b/src/ce_todolist.pas index dbcc7179..772d51b9 100644 --- a/src/ce_todolist.pas +++ b/src/ce_todolist.pas @@ -177,8 +177,6 @@ begin lstItems.OnCompare := @lstItemsCompare; fAutoRefresh := true; mnuAutoRefresh.Checked := true; - // http://bugs.freepascal.org/view.php?id=27137 - // TODO-cLCL&LAZ-specific: remove comment after next Laz release // TODO-cLCL&LAZ-specific, try the new TListViewFilterEdit here. // TODO-cLCL&LAZ-specific, the align/anchors of filterxxx must be redefined, previously there was a bug. lstfilter.OnChange:= @filterItems;