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

fix, splitter bug on realign

This commit is contained in:
Basile Burg 2014-12-12 05:50:42 +01:00
parent ea85c97350
commit 89cde48f5c
4 changed files with 301 additions and 283 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_main.lfm
View File

@ -1,7 +1,7 @@
object CEMainForm: TCEMainForm
Left = 645
Left = 296
Height = 49
Top = 204
Top = 31
Width = 745
AllowDropFiles = True
Caption = 'Coedit'

150
src/ce_miniexplorer.lfm
View File

@ -1,91 +1,113 @@
inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
Left = 1093
Height = 651
Top = 185
Width = 329
Left = 1063
Height = 598
Top = 30
Width = 343
Caption = 'Mini explorer'
ClientHeight = 651
ClientWidth = 329
ClientHeight = 598
ClientWidth = 343
inherited Back: TPanel
Height = 651
Width = 329
ClientHeight = 651
ClientWidth = 329
Height = 598
Width = 343
ClientHeight = 598
ClientWidth = 343
inherited Content: TPanel
Height = 651
Width = 329
ClientHeight = 651
ClientWidth = 329
object lstFiles: TListView[0]
Left = 4
Height = 277
Top = 370
Width = 321
Align = alClient
AutoSort = False
Height = 590
Top = 4
Width = 335
BorderSpacing.Around = 4
ClientHeight = 590
ClientWidth = 335
object lstFav: TListView[0]
Left = 0
Height = 131
Top = 0
Width = 335
Align = alTop
AutoWidthLastColumn = True
BorderSpacing.Left = 4
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
Columns = <
item
Width = 317
Width = 331
end>
ReadOnly = True
ShowColumnHeaders = False
SmallImages = imgList
TabOrder = 0
ViewStyle = vsReport
OnDblClick = lstFilesDblClick
end
object Tree: TTreeView[1]
Left = 4
Height = 195
Top = 169
Width = 321
object Splitter1: TSplitter[1]
Cursor = crVSplit
Left = 0
Height = 6
Top = 131
Width = 335
Align = alTop
ResizeAnchor = akTop
end
object Panel2: TPanel[2]
Left = 0
Height = 453
Top = 137
Width = 335
Align = alClient
BevelOuter = bvNone
ClientHeight = 453
ClientWidth = 335
TabOrder = 2
object Tree: TTreeView
Left = 0
Height = 171
Top = 28
Width = 335
Align = alTop
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Right = 4
DefaultItemHeight = 18
Images = imgList
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 1
TabOrder = 0
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object lstFav: TListView[2]
Left = 4
Height = 131
Top = 4
Width = 321
object Splitter2: TSplitter
Cursor = crVSplit
Left = 0
Height = 6
Top = 199
Width = 335
Align = alTop
ResizeAnchor = akTop
end
object lstFiles: TListView
Left = 0
Height = 248
Top = 205
Width = 335
Align = alClient
AutoSort = False
AutoWidthLastColumn = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Right = 4
Columns = <
item
Width = 317
Width = 331
end>
ReadOnly = True
ShowColumnHeaders = False
SmallImages = imgList
TabOrder = 2
ViewStyle = vsReport
OnDblClick = lstFilesDblClick
end
object Panel1: TPanel[3]
Left = 4
object Panel1: TPanel
Left = 0
Height = 24
Top = 141
Width = 321
Top = 0
Width = 335
Align = alTop
BorderSpacing.Left = 4
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
BevelOuter = bvNone
ClientHeight = 24
ClientWidth = 321
ClientWidth = 335
TabOrder = 3
OnClick = Panel1Click
object btnAddFav: TBitBtn
Left = 0
Height = 24
@ -271,10 +293,10 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
TabOrder = 3
end
object lstFilter: TListFilterEdit
Left = 112
Left = 116
Height = 23
Top = 0
Width = 184
Width = 196
ButtonWidth = 23
NumGlyphs = 1
Align = alCustom
@ -283,28 +305,16 @@ inherited CEMiniExplorerWidget: TCEMiniExplorerWidget
TabOrder = 4
end
end
object Splitter1: TSplitter[4]
Cursor = crVSplit
Left = 0
Height = 6
Top = 135
Width = 329
Align = alTop
ResizeAnchor = akTop
end
object Splitter2: TSplitter[5]
Cursor = crVSplit
Left = 0
Height = 6
Top = 364
Width = 329
Align = alTop
ResizeAnchor = akTop
end
end
end
inherited contextMenu: TPopupMenu
left = 8
top = 8
end
object imgList: TImageList[2]
left = 32
left = 40
top = 8
Bitmap = {
4C69050000001000000010000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF

7
src/ce_miniexplorer.pas
View File

@ -23,6 +23,7 @@ type
lstFiles: TListView;
lstFav: TListView;
Panel1: TPanel;
Panel2: TPanel;
Splitter1: TSplitter;
Splitter2: TSplitter;
Tree: TTreeView;
@ -31,6 +32,7 @@ type
procedure btnAddFavClick(Sender: TObject);
procedure btnRemFavClick(Sender: TObject);
procedure lstFilesDblClick(Sender: TObject);
procedure Panel1Click(Sender: TObject);
private
fFavorites: TStringList;
fLastFold: string;
@ -299,6 +301,11 @@ begin
shellOpenSelected;
end;
procedure TCEMiniExplorerWidget.Panel1Click(Sender: TObject);
begin
end;
procedure TCEMiniExplorerWidget.shellOpenSelected;
var
fname: string;

1
src/ce_toolseditor.lfm
View File

@ -293,6 +293,7 @@ inherited CEToolsEditorWidget: TCEToolsEditorWidget
Height = 244
Top = 0
Width = 5
AutoSnap = False
end
object propsEd: TTIPropertyGrid
Left = 165