MBonaldo/hfs2
1
0
Fork 0
mirror of https://github.com/rejetto/hfs2.git synced 2025-12-19 10:03:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

attempt to fix winXP compatibility

Browse Source
This commit is contained in:
Massimo Melina 2020-05-12 23:20:33 +02:00
parent fe0ca1d542
commit 5700a2edd6
1 changed files with 92 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

133
main.dfm
View File

@ -3,11 +3,15 @@ object mainFrm: TmainFrm
Top = 219 Top = 219
Caption = 'HFS ~ HTTP File Server' Caption = 'HFS ~ HTTP File Server'
ClientHeight = 391 ClientHeight = 391
ClientWidth = 783 ClientWidth = 913
Color = clBtnFace Color = clBtnFace
Constraints.MinHeight = 260 Constraints.MinHeight = 260
Constraints.MinWidth = 390 Constraints.MinWidth = 390
ParentFont = True Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
KeyPreview = True KeyPreview = True
OldCreateOrder = False OldCreateOrder = False
Position = poDesigned Position = poDesigned
@ -19,11 +23,11 @@ object mainFrm: TmainFrm
OnResize = FormResize OnResize = FormResize
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 14
object graphSplitter: TSplitter object graphSplitter: TSplitter
Left = 0 Left = 0
Top = 78 Top = 78
Width = 783 Width = 913
Height = 5 Height = 5
Cursor = crVSplit Cursor = crVSplit
Align = alTop Align = alTop
@ -38,10 +42,16 @@ object mainFrm: TmainFrm
object graphBox: TPaintBox object graphBox: TPaintBox
Left = 0 Left = 0
Top = 48 Top = 48
Width = 783 Width = 913
Height = 30 Height = 30
Hint = 'Pink = Out'#13#10'Yellow = In' Hint = 'Pink = Out'#13#10'Yellow = In'
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ParentShowHint = False ParentShowHint = False
PopupMenu = graphMenu PopupMenu = graphMenu
ShowHint = True ShowHint = True
@ -52,16 +62,24 @@ object mainFrm: TmainFrm
object topToolbar: TToolBar object topToolbar: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 783 Width = 913
Height = 24 Height = 24
AutoSize = True AutoSize = True
ButtonWidth = 138 ButtonWidth = 150
Caption = 'topToolbar' Caption = 'topToolbar'
EdgeBorders = [ebBottom] EdgeBorders = [ebBottom]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
Images = images Images = images
List = True List = True
ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
ExplicitWidth = 783
ExplicitHeight = 55
object menuBtn: TToolButton object menuBtn: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -74,7 +92,7 @@ object mainFrm: TmainFrm
OnClick = menuBtnClick OnClick = menuBtnClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 57 Left = 61
Top = 0 Top = 0
Width = 9 Width = 9
Caption = 'ToolButton4' Caption = 'ToolButton4'
@ -82,7 +100,7 @@ object mainFrm: TmainFrm
Style = tbsSeparator Style = tbsSeparator
end end
object portBtn: TToolButton object portBtn: TToolButton
Left = 66 Left = 70
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = 'Port: any' Caption = 'Port: any'
@ -90,7 +108,7 @@ object mainFrm: TmainFrm
OnClick = portBtnClick OnClick = portBtnClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 142 Left = 151
Top = 0 Top = 0
Width = 8 Width = 8
Caption = 'ToolButton2' Caption = 'ToolButton2'
@ -98,7 +116,7 @@ object mainFrm: TmainFrm
Style = tbsSeparator Style = tbsSeparator
end end
object modeBtn: TToolButton object modeBtn: TToolButton
Left = 150 Left = 159
Top = 0 Top = 0
Hint = 'Click to switch'#13#10'F5 on keyboard' Hint = 'Click to switch'#13#10'F5 on keyboard'
AutoSize = True AutoSize = True
@ -109,7 +127,7 @@ object mainFrm: TmainFrm
OnClick = modeBtnClick OnClick = modeBtnClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 284 Left = 309
Top = 0 Top = 0
Width = 9 Width = 9
Caption = 'ToolButton1' Caption = 'ToolButton1'
@ -117,7 +135,7 @@ object mainFrm: TmainFrm
Style = tbsSeparator Style = tbsSeparator
end end
object startBtn: TToolButton object startBtn: TToolButton
Left = 293 Left = 318
Top = 0 Top = 0
Hint = 'Click to switch ON'#13'F4 on keyboard' Hint = 'Click to switch ON'#13'F4 on keyboard'
AutoSize = True AutoSize = True
@ -128,7 +146,7 @@ object mainFrm: TmainFrm
OnClick = startBtnClick OnClick = startBtnClick
end end
object abortBtn: TToolButton object abortBtn: TToolButton
Left = 435 Left = 472
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = 'Abort file addition' Caption = 'Abort file addition'
@ -137,7 +155,7 @@ object mainFrm: TmainFrm
OnClick = abortBtnClick OnClick = abortBtnClick
end end
object restoreCfgBtn: TToolButton object restoreCfgBtn: TToolButton
Left = 551 Left = 600
Top = 0 Top = 0
Caption = 'Restore my options' Caption = 'Restore my options'
ImageIndex = 34 ImageIndex = 34
@ -145,7 +163,7 @@ object mainFrm: TmainFrm
OnClick = restoreCfgBtnClick OnClick = restoreCfgBtnClick
end end
object updateBtn: TToolButton object updateBtn: TToolButton
Left = 689 Left = 750
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = 'Update now' Caption = 'Update now'
@ -157,16 +175,24 @@ object mainFrm: TmainFrm
object urlToolbar: TToolBar object urlToolbar: TToolBar
Left = 0 Left = 0
Top = 24 Top = 24
Width = 783 Width = 913
Height = 24 Height = 24
AutoSize = True AutoSize = True
ButtonWidth = 111 ButtonWidth = 122
EdgeBorders = [ebBottom] EdgeBorders = [ebBottom]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
Images = images Images = images
List = True List = True
ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 2 TabOrder = 2
Wrapable = False Wrapable = False
ExplicitTop = 55
ExplicitWidth = 783
object browseBtn: TToolButton object browseBtn: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -176,7 +202,7 @@ object mainFrm: TmainFrm
OnClick = browseBtnClick OnClick = browseBtnClick
end end
object urlBox: TEdit object urlBox: TEdit
Left = 110 Left = 122
Top = 0 Top = 0
Width = 433 Width = 433
Height = 22 Height = 22
@ -184,7 +210,7 @@ object mainFrm: TmainFrm
OnChange = urlBoxChange OnChange = urlBoxChange
end end
object copyBtn: TToolButton object copyBtn: TToolButton
Left = 543 Left = 555
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = 'Copy to clipboard' Caption = 'Copy to clipboard'
@ -195,11 +221,20 @@ object mainFrm: TmainFrm
object centralPnl: TPanel object centralPnl: TPanel
Left = 0 Left = 0
Top = 83 Top = 83
Width = 783 Width = 913
Height = 308 Height = 308
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitTop = 114
ExplicitWidth = 783
ExplicitHeight = 277
object splitV: TSplitter object splitV: TSplitter
Left = 313 Left = 313
Top = 0 Top = 0
@ -214,7 +249,7 @@ object mainFrm: TmainFrm
object splitH: TSplitter object splitH: TSplitter
Left = 0 Left = 0
Top = 197 Top = 197
Width = 783 Width = 913
Height = 5 Height = 5
Cursor = crVSplit Cursor = crVSplit
Align = alBottom Align = alBottom
@ -228,20 +263,22 @@ object mainFrm: TmainFrm
object logPnl: TPanel object logPnl: TPanel
Left = 316 Left = 316
Top = 0 Top = 0
Width = 467 Width = 597
Height = 197 Height = 197
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 1 TabOrder = 1
ExplicitWidth = 467
ExplicitHeight = 166
object logBox: TRichEdit object logBox: TRichEdit
Left = 0 Left = 0
Top = 23 Top = 23
Width = 467 Width = 597
Height = 174 Height = 174
Align = alClient Align = alClient
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -12
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
HideSelection = False HideSelection = False
@ -254,27 +291,31 @@ object mainFrm: TmainFrm
Zoom = 100 Zoom = 100
OnChange = logBoxChange OnChange = logBoxChange
OnMouseDown = logBoxMouseDown OnMouseDown = logBoxMouseDown
ExplicitWidth = 467
ExplicitHeight = 143
end end
object logTitle: TPanel object logTitle: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 467 Width = 597
Height = 23 Height = 23
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 1 TabOrder = 1
ExplicitWidth = 467
object titlePnl: TPanel object titlePnl: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 211 Width = 341
Height = 23 Height = 23
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'Log' Caption = 'Log'
TabOrder = 0 TabOrder = 0
ExplicitWidth = 211
end end
object logToolbar: TPanel object logToolbar: TPanel
Left = 211 Left = 341
Top = 0 Top = 0
Width = 256 Width = 256
Height = 23 Height = 23
@ -282,6 +323,7 @@ object mainFrm: TmainFrm
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 1 TabOrder = 1
ExplicitLeft = 211
object collapsedPnl: TPanel object collapsedPnl: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -444,7 +486,7 @@ object mainFrm: TmainFrm
OnClick = openLogBtnClick OnClick = openLogBtnClick
end end
object collapseBtn: TSpeedButton object collapseBtn: TSpeedButton
Left = 0 Left = -4
Top = 0 Top = 0
Width = 21 Width = 21
Height = 23 Height = 23
@ -471,36 +513,39 @@ object mainFrm: TmainFrm
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
OnClick = collapseBtnClick OnClick = collapseBtnClick
ExplicitLeft = 0
end end
object Bevel1: TBevel object Bevel1: TBevel
Left = 21 Left = 17
Top = 0 Top = 0
Width = 2 Width = 2
Height = 23 Height = 23
Align = alRight Align = alRight
ExplicitLeft = 21
end end
object searchPnl: TPanel object searchPnl: TPanel
Left = 23 Left = 19
Top = 0 Top = 0
Width = 160 Width = 164
Height = 23 Height = 23
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
Padding.Left = 5 Padding.Left = 5
TabOrder = 0 TabOrder = 0
ExplicitLeft = 23
DesignSize = ( DesignSize = (
160 164
23) 23)
object logSearchBox: TLabeledEdit object logSearchBox: TLabeledEdit
Left = 41 Left = 45
Top = 1 Top = 1
Width = 103 Width = 103
Height = 21 Height = 22
Hint = 'Wildcards allowed' Hint = 'Wildcards allowed'
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
EditLabel.Width = 33 EditLabel.Width = 37
EditLabel.Height = 13 EditLabel.Height = 14
EditLabel.Caption = 'Search' EditLabel.Caption = 'Search'
LabelPosition = lpLeft LabelPosition = lpLeft
ParentShowHint = False ParentShowHint = False
@ -510,7 +555,7 @@ object mainFrm: TmainFrm
OnKeyPress = logSearchBoxKeyPress OnKeyPress = logSearchBoxKeyPress
end end
object logUpDown: TUpDown object logUpDown: TUpDown
Left = 144 Left = 148
Top = 0 Top = 0
Width = 16 Width = 16
Height = 24 Height = 24
@ -534,6 +579,7 @@ object mainFrm: TmainFrm
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'filesPnl' Caption = 'filesPnl'
TabOrder = 0 TabOrder = 0
ExplicitHeight = 166
object filesBox: TTreeView object filesBox: TTreeView
Left = 0 Left = 0
Top = 23 Top = 23
@ -574,6 +620,7 @@ object mainFrm: TmainFrm
OnMouseEnter = filesBoxMouseEnter OnMouseEnter = filesBoxMouseEnter
OnMouseLeave = filesBoxMouseLeave OnMouseLeave = filesBoxMouseLeave
OnMouseUp = filesBoxMouseUp OnMouseUp = filesBoxMouseUp
ExplicitHeight = 143
end end
object filesTitle: TPanel object filesTitle: TPanel
Left = 0 Left = 0
@ -589,15 +636,17 @@ object mainFrm: TmainFrm
object connPnl: TPanel object connPnl: TPanel
Left = 0 Left = 0
Top = 202 Top = 202
Width = 783 Width = 913
Height = 106 Height = 106
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
TabOrder = 2 TabOrder = 2
ExplicitTop = 171
ExplicitWidth = 783
object sbar: TStatusBar object sbar: TStatusBar
Left = 0 Left = 0
Top = 87 Top = 87
Width = 783 Width = 913
Height = 19 Height = 19
Panels = < Panels = <
item item
@ -605,11 +654,12 @@ object mainFrm: TmainFrm
end> end>
OnDblClick = sbarDblClick OnDblClick = sbarDblClick
OnMouseDown = sbarMouseDown OnMouseDown = sbarMouseDown
ExplicitWidth = 783
end end
object connBox: TListView object connBox: TListView
Left = 0 Left = 0
Top = 0 Top = 0
Width = 783 Width = 913
Height = 87 Height = 87
Align = alClient Align = alClient
Columns = < Columns = <
@ -656,6 +706,7 @@ object mainFrm: TmainFrm
ViewStyle = vsReport ViewStyle = vsReport
OnAdvancedCustomDrawSubItem = connBoxAdvancedCustomDrawSubItem OnAdvancedCustomDrawSubItem = connBoxAdvancedCustomDrawSubItem
OnData = connBoxData OnData = connBoxData
ExplicitWidth = 886
end end
end end
end end