finished ftp browser in the settings dialog (rewrote it, looks pretty nice now imo), various other changes

This commit is contained in:
Christian Hammacher 2007-02-12 18:21:40 +00:00
parent 862ed243be
commit 4dfb01bb1d
5 changed files with 32 additions and 5 deletions

View File

@ -32,8 +32,8 @@
-M -M
-$M16384,1048576 -$M16384,1048576
-K$00400000 -K$00400000
-LE"c:\program files\borland\delphi7\Projects\Bpl" -LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"c:\program files\borland\delphi7\Projects\Bpl" -LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-DmadExcept -DmadExcept
-w-UNSAFE_TYPE -w-UNSAFE_TYPE
-w-UNSAFE_CODE -w-UNSAFE_CODE

Binary file not shown.

View File

@ -4,7 +4,7 @@ interface
uses uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, SysUtils, Windows, Messages, Classes, Graphics, Controls,
StdCtrls, ExtCtrls, Forms, OleCtrls, SHDocVw_TLB, ActiveX; StdCtrls, ExtCtrls, Forms, OleCtrls, SHDocVw, ActiveX;
type type
TfrmHTMLPreview = class(TForm) TfrmHTMLPreview = class(TForm)

View File

@ -730,11 +730,12 @@ object frmMain: TfrmMain
Top = 72 Top = 72
Width = 885 Width = 885
RightClickSelect = False RightClickSelect = False
Painter = mtpDocuments
Tabs = < Tabs = <
item item
Caption = '< 1 Untitled.sma >' Caption = '< 1 Untitled.sma >'
Selected = True
end> end>
Painter = mtpDocuments
OnTabClosing = tbDocsTabClosing OnTabClosing = tbDocsTabClosing
OnTabSelected = tbDocsTabSelected OnTabSelected = tbDocsTabSelected
OnMouseDown = tbDocsMouseDown OnMouseDown = tbDocsMouseDown
@ -937,6 +938,7 @@ object frmMain: TfrmMain
Top = 26 Top = 26
Width = 191 Width = 191
Height = 199 Height = 199
Style = isItemPainter
Align = alClient Align = alClient
Divider = 110 Divider = 110
ItemHeight = 16 ItemHeight = 16
@ -7826,7 +7828,32 @@ object frmMain: TfrmMain
end end
end end
object JvInspectorDotNETPainter: TJvInspectorDotNETPainter object JvInspectorDotNETPainter: TJvInspectorDotNETPainter
CategoryFont.Charset = DEFAULT_CHARSET
CategoryFont.Color = clBtnText
CategoryFont.Height = -11
CategoryFont.Name = 'MS Sans Serif'
CategoryFont.Style = []
NameFont.Charset = DEFAULT_CHARSET
NameFont.Color = clWindowText
NameFont.Height = -11
NameFont.Name = 'MS Sans Serif'
NameFont.Style = []
ValueFont.Charset = DEFAULT_CHARSET
ValueFont.Color = clWindowText
ValueFont.Height = -11
ValueFont.Name = 'MS Sans Serif'
ValueFont.Style = []
DrawNameEndEllipsis = True DrawNameEndEllipsis = True
HideSelectFont.Charset = DEFAULT_CHARSET
HideSelectFont.Color = clHighlightText
HideSelectFont.Height = -11
HideSelectFont.Name = 'MS Sans Serif'
HideSelectFont.Style = []
SelectedFont.Charset = DEFAULT_CHARSET
SelectedFont.Color = clHighlightText
SelectedFont.Height = -11
SelectedFont.Name = 'MS Sans Serif'
SelectedFont.Style = []
Left = 662 Left = 662
Top = 36 Top = 36
end end

View File

@ -21,7 +21,7 @@ uses
JvInspector, JvExControls, JvPluginManager, JvgLanguageLoader, JvInspector, JvExControls, JvPluginManager, JvgLanguageLoader,
JvWndProcHook, CommCtrl, JvPageList, JvPageListTreeView, JvWndProcHook, CommCtrl, JvPageList, JvPageListTreeView,
SciSearchReplaceBase, SpTBXControls, JvTabBar, TB2ExtItems, SpTBXEditors, SciSearchReplaceBase, SpTBXControls, JvTabBar, TB2ExtItems, SpTBXEditors,
TBXLists, SpTBXLists; TBXLists, SpTBXLists, JvComponentBase;
type type
TfrmMain = class(TForm) TfrmMain = class(TForm)