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 object CEMainForm: TCEMainForm
Left = 645 Left = 296
Height = 49 Height = 49
Top = 204 Top = 31
Width = 745 Width = 745
AllowDropFiles = True AllowDropFiles = True
Caption = 'Coedit' Caption = 'Coedit'

150
src/ce_miniexplorer.lfm
View File

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

7
src/ce_miniexplorer.pas
View File

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

1
src/ce_toolseditor.lfm
View File

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