Thread: Source Code
View Single Post
  #5 (permalink)  
Old December 18th, 2001
Unregistered
Guest
 
Posts: n/a
Default Xolox is in Delphi

Hm,
try to open xolox with the resource hacker.
http://rpi.net.au/~ajohnson/resourcehacker/

Nice Code:
TMAINFORM:
bject MainForm: TMainForm
Left = 160
Top = 145
Width = 1014
Height = 815
VertScrollBar.Position = 250
Caption = 'w'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object StatusBar1: TStatusBar
Left = 0
Top = 770
Width = 990
Height = 18
Panels = <
item
Bevel = pbNone
Text = 'Logging in on network'
Width = 200
end>
SimplePanel = False
end
object Panel3: TPanel
Left = 0
Top = -225
Width = 990
Height = 80
Align = alTop
BevelInner = bvLowered
TabOrder = 1
object ToolBar2: TToolBar
Left = 2
Top = 2
Width = 213
Height = 76
Align = alLeft
AutoSize = True
BorderWidth = 2
ButtonHeight = 66
ButtonWidth = 60
Caption = 'ToolBar2'
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
HotImages = ButtonListOn
Images = ButtonOfflist
ParentFont = False
ShowCaptions = True
TabOrder = 0
object ToolButton3: TToolButton
Left = 0
Top = 0
Hint =
'Search for digital content (music, video, pictures, programs, et' +
'c.) on the gnutella network '
Caption = 'Search'
Down = True
Grouped = True
ImageIndex = 0
ParentShowHint = False
ShowHint = True
Style = tbsCheck
OnClick = ToolButton3Click
end
object ToolButton2: TToolButton
Left = 60
Top = 0
Width = 9
Caption = 'ToolButton2'
Grouped = True
ImageIndex = 2
Style = tbsSeparator
end
object ToolButton1: TToolButton
Left = 69
Top = 0
Hint = 'Watch the progress of your current downloads and uploads'
Caption = 'Transfers'
Grouped = True
ImageIndex = 1
ParentShowHint = False
ShowHint = True
Style = tbsCheck
OnClick = ToolButton1Click
end
object ToolButton11: TToolButton
Left = 129
Top = 0
Width = 8
Caption = 'ToolButton11'
Grouped = True
ImageIndex = 4
Style = tbsSeparator
end
object ToolButton6: TToolButton
Left = 137
Top = 0
Hint = 'View all downloaded and shared files on your computer'
Caption = 'Files'
Grouped = True
ImageIndex = 2
ParentShowHint = False
ShowHint = True
Style = tbsCheck
OnClick = ToolButton6Click
end
object ToolButton5: TToolButton
Left = 197
Top = 0
Width = 8
Caption = 'ToolButton5'
ImageIndex = 3
Style = tbsSeparator
end
end
end
Reply With Quote