home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 1
/
Freelog001.iso
/
Logs
/
Graphism
/
FreeView
/
_SETUP.1
/
Freeview.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
1997-06-04
|
23KB
|
679 lines
object Form1: TForm1
Left = 141
Top = 186
Width = 492
Height = 365
Caption = 'FreeView Graphics Viewer'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Menu = MainMenu1
ShowHint = True
OnActivate = FormActivate
OnCreate = FormCreate
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 48
Width = 145
Height = 271
Align = alLeft
TabOrder = 0
object Label2: TLabel
Left = 10
Top = 159
Width = 111
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Label2'
end
object SpeedButton3: TSpeedButton
Left = 127
Top = 155
Width = 15
Height = 20
Hint = 'Resize file list box.'
AllowAllUp = True
Caption = '>'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
OnClick = SpeedButton3Click
end
object ListBox1: TListBox
Left = 8
Top = 176
Width = 129
Height = 199
Hint = 'Click to select.'
IntegralHeight = True
ItemHeight = 13
MultiSelect = True
TabOrder = 2
OnClick = ListBox1Click
end
object DriveComboBox1: TDriveComboBox
Left = 8
Top = 8
Width = 130
Height = 21
TabOrder = 0
OnChange = DriveComboBox1Change
end
object DirectoryListBox1: TDirectoryListBox
Left = 8
Top = 32
Width = 130
Height = 121
Hint = 'Double click to select.'
ItemHeight = 16
TabOrder = 1
OnClick = DirectoryListBox1Click
OnDblClick = DirectoryListBox1DblClick
end
end
object Panel2: TPanel
Left = 0
Top = 28
Width = 484
Height = 20
Align = alTop
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 4
Width = 3
Height = 14
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ProgressBar1: TProgressBar
Left = 410
Top = 6
Width = 40
Height = 9
Min = 0
Max = 100
TabOrder = 0
Visible = False
end
end
object Panel3: TPanel
Left = 145
Top = 48
Width = 339
Height = 271
Align = alClient
BevelOuter = bvLowered
BevelWidth = 2
TabOrder = 2
object Label5: TLabel
Left = 8
Top = 8
Width = 119
Height = 16
Caption = 'File Loading Error!'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Image1: TImage
Left = 2
Top = 2
Width = 335
Height = 267
Align = alClient
Center = True
Visible = False
end
object wiaTile1: TwiaTile
Left = 2
Top = 2
Width = 335
Height = 267
TranColor = clBlack
TileMode = tmNormal
Visible = False
end
object GIFImage1: TGIFImage
Left = 2
Top = 2
Width = 335
Height = 267
Align = alClient
Animate = True
AutoSize = False
Center = True
CurrentFrame = 0
Loop = True
Stretch = False
Tile = False
Visible = True
OnChanging = GIFImage1Changing
end
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 484
Height = 28
Align = alTop
TabOrder = 3
object ScanBtn: TSpeedButton
Left = 3
Top = 2
Width = 25
Height = 25
Hint = 'Scan directory'
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333FFFFF
FFF000003333333FFFFFFFF000003333333BFBFBFBF0FFF03333333999999BF0
FFF03333333FFFFFFF000000333339999999999000003333333BFBFBF0FBFBFB
3339999BFBFBF9999BFB3333333F00000FF000003399933F00000FF990003333
333B0FFF0000FFF03399993B0FFF000099F03333333F00000FF000003399999F
00000FF099003333330BFBFBF0FBFBFB399399999BFBF0FBF99B33333010FFFF
FF0000003993399999FFFF000990333330180BFBFBF0FFF039933019999BFBF0
F9903333301180FFFFF00000399330119999FFF0099033330811190BFBFBFBFB
3993081119999BFBF99B333307719990FFFFFFFF339907719999999F99FF3330
77FF999903333333339977FF99999999993333077FFFF0003333333333099FFF
F000399993333077FFF0033333333333307999F0033333999333077FFF033333
33333333077F999933339999933307FFF09333333333333307FFF09999999933
333330FF093333333333333330FF093399993333333333003333333333333333
33003333333333333333}
NumGlyphs = 2
OnClick = DirectoryListBox1DblClick
end
object SpeedButton2: TSpeedButton
Left = 29
Top = 2
Width = 25
Height = 25
Hint = 'Save File'
Glyph.Data = {
5A010000424D5A01000000000000760000002800000012000000130000000100
040000000000E400000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888888000000888888888888888888000000800000000000000888000000800B
FBFBFBFBFB08880000008070BFBFBFBFBFB08800000080B0FBFBFBFBFBF08800
00008070BFBFBFBFBFB08800000080B77BFBFBFBFBFB78000000807B7FBFBFBF
BFBF7800000080B777777777777778000000807B7B7EEEE77B78880000008000
B7B0EEE77778880000008888000EEEE7888888000000888880EEE0E788888800
000088880EEE08778888880000008880EEE0888788888800000088880E088888
888888000000888880888888888888000000888888888888888888000000}
OnClick = SaveAs1Click
end
object ZoomBtn: TSpeedButton
Left = 80
Top = 2
Width = 25
Height = 25
Hint = 'Zoom to fill'
AllowAllUp = True
GroupIndex = 13
Glyph.Data = {
7E010000424D7E01000000000000760000002800000016000000160000000100
0400000000000801000000000000000000000000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA
AAAAAAAAAA00A00007777777777770000A00A00777777777777777700A00A070
77777777777777070A00A07707777777777770770A00A7777077777777770777
7A00A77777B30B0B303B77777A00A777770B33B303B077777A00A77777E0B0B0
3B0E77777A00A77777EE030E00EE77777A00A77777EEE0EEEEEE77777A00A777
77EEEEEEEEEE77777A00A77777EEEEEEE00E77777A00A77777EEEEEE0BB07777
7A00A77777EEEEEE0BB077777A00A77777EEEEEEE00E77777A00A77770777777
777707777A00A07707777777777770770A00A07077777777777777070A00A007
77777777777777700A00A00007777777777770000A00AAAAAAAAAAAAAAAAAAAA
AA00}
OnClick = ZoomBtnClick
end
object SlideShowBtn: TSpeedButton
Left = 157
Top = 2
Width = 25
Height = 25
Hint = 'Slides Show'
AllowAllUp = True
GroupIndex = 6
Glyph.Data = {
80010000424D8001000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777700007FFFFFFFFFFFFFFFFFF700008777777777777777777F00008777
777777777777777F00008777777077777777777F00008777777007777777777F
00008777777000777777777F00008777777000077777777F0000877777700000
7777777F00008777777000000777777F00008777777000007777777F00008777
777000077777777F00008777777000777777777F00008777777007777777777F
00008777777077777777777F00008777777777777777777F0000877777777777
7777777F00007888888888888888888700007777777777777777777700007777
7777777777777777000000000000000000000000000000000000000000000000
00000000}
OnClick = SlideShowBtnClick
end
object HelpButton: TSpeedButton
Left = 416
Top = 2
Width = 26
Height = 25
Hint = 'Help'
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
8888888800008888888888888888888800008888888887778888888800008888
8888600788888888000088888888E60788888888000088888888EE6888888888
000088888888877788888888000088888888600788888888000088888888E607
78888888000088888888E660778888880000888888888E660778888800008888
888878E660778888000088888880778E660788880000888888660778E6078888
0000888888E66077E608888800008888888E660066688888000088888888E666
6E8888880000888888888EEEE888888800008888888888888888888800008888
88888888888888880000}
OnClick = HelpButtonClick
end
object StopBtn: TSpeedButton
Left = 3
Top = 2
Width = 25
Height = 25
Hint = 'Stop Scanning'
Glyph.Data = {
80010000424D8001000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777700007777711111111177777700007777199999999917777700007771
9999999999917777000077199999999999991777000071999999999999999177
000019999999999999999917000019FFF99F99FFF9F9991700001999F99F99F9
F9F99917000019FFF99F99F9F9FFF917000019F9999F99F9F9F9F917000019FF
F9FFF9FFF9FFF917000019999999999999999917000019999999999999999917
0000719999999999999991770000771999999999999917770000777199999999
9991777700007777199999999917777700007777711111111177777700007777
7777777777777777000000000000000000000000000000000000000000000000
00000000}
Visible = False
OnClick = StopBtnClick
end
object CopytoClipbrd: TSpeedButton
Left = 54
Top = 2
Width = 25
Height = 25
Hint = 'Copy to Clipboard'
AllowAllUp = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
93337FFFF7737777733300000033333333337777773333333333}
NumGlyphs = 2
OnClick = CopytoClipbrdClick
end
object TileBtn: TSpeedButton
Left = 131
Top = 2
Width = 25
Height = 25
Hint = 'Tile Image'
AllowAllUp = True
GroupIndex = 5
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
00000000000004744499444999444490000004474FFFF99FFFF99FF000000444
74994444994444900000044474994444994444900000044447FFF99FFFF99FF0
000004444479444499444490000004444447444499444490000004444444799F
FFF99FF000000444444447449944449000000444444FFF449944449000000444
4444FF7FFFF99FF0000004444F4F4F4799444490000004444FF4444479444490
000004444FFF444447F99FF00000044444444444447444900000044994444444
44744490000004499444444444479FF0000009FFFF9444444444749000000000
00000000000000000000}
OnClick = TileBtnClick
end
object AnimationBtn: TSpeedButton
Left = 228
Top = 2
Width = 25
Height = 25
Hint = 'GIF Animate On/Off'
AllowAllUp = True
GroupIndex = 7
Down = True
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77777777000077777777777777777777000077F6788686886868868700006637
37786866868668670000777F7FF786886868868700006637B778780086866867
00006637B7787800868668670000887F7FF98000686886870000668789987000
8686686700008868688700006868868700006686800078000686686700006686
800078000686686700008868000007FF0068868700006686866868FFF0066867
0000886868868688FF00068700006686866868668FF000670000668686686866
8FF000670000886868868688686FF00700006686866868668686680700008868
68868688686886870000}
OnClick = AnimationBtnClick
end
object StepBtn: TSpeedButton
Left = 253
Top = 2
Width = 25
Height = 25
Hint = 'Ani-GIF Next Frame'
AllowAllUp = True
Enabled = False
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000001000000010000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
DDDDDDDD0000DD000000000000000DDD0000DD0F0DDDDD00000F0DDD0000DD00
0DDD807FEF00008D0000DD000DDD0EFEFE000F0D0000DD0F0D007FEFEF0F0E70
0000DD000000000000000FE00000DD000000000000000FE00000DD0F08007676
760F0EF00000DD000800676767000FE00000DD000000000000000EF00000DD0F
08006767670F0F700000DD000000000000000E0D0000DD00088808676700008D
0000DD0F08880867670F008D0000DD000000000000000DDD0000DD0008888888
88000DDD0000DD0F08888888880F0DDD0000DD000000000000000DDD0000DDDD
DDDDDDDDDDDDDDDD0000}
OnClick = StepBtnClick
end
object BkgClrBtn: TSpeedButton
Left = 278
Top = 2
Width = 25
Height = 25
Hint = 'Background Color'
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777700000000000000000077FFFFFFFFFFFFFFF
FFF7700777777777777700077FFFFFFFFFFFFFFFFFF770075557AAA7DDD70007
7FFFFFFFFFFFFFFFFFF770075557AAA7DDD700077FFFFFFFFFFFFFFFFFF77007
5557AAA7DDD700077FFFFFFFFFFFFFFFFFF7700777777777777700077FFFFFFF
FFFFFFFFFFF77007EEE71117CCC700077FFFFFFFFFFFFFFFFFF77007EEE71117
CCC700077FFFFFFFFFFFFFFFFFF77007EEE71117CCC700077FFFFFFFFFFFFFFF
FFF7700777777777777700077FFFFFFFFFFFFFFFFFF7700799973337BBB70007
7FFFFFFFFFFFFFFFFFF7700799973337BBB700077FFFFFFFFFFFFFFFFFF77007
99973337BBB700077FFFFFFFFFFFFFFFFFF7700777777777777700077FFFFFFF
FFFFFFFFFFF7700000000000000000077FFFFFFFFFFFFFFFFFF7700000000000
000000077FFFFFFFFFFFFFFFFFF77CCCCCCCCCCCCCCCCCC77CCCCCCCCCCCCCCC
CCC77CCCCCCCCCCCCCCCCCC77CCCCCCCCCCCCCCCCCC777777777777777777777
77777777777777777777}
NumGlyphs = 2
OnClick = BkgClrBtnClick
end
object SpeedButton1: TSpeedButton
Left = 388
Top = 2
Width = 25
Height = 25
Hint = 'Thumb nail view'
AllowAllUp = True
Glyph.Data = {
66010000424D6601000000000000760000002800000014000000140000000100
040000000000F000000000000000000000000000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
0000000000000FFFFFFFFFFFFFFFFFF000000F000F000F000F000FF000000F66
6F222F666F222FF000000F6B6F2B2F6B6F2B2FF000000F666F222F666F222FF0
00000FFFFFFFFFFFFFFFFFF000000F000F000F000F000FF000000F222F666F22
2F666FF000000F2B2F6B6F2B2F6B6FF000000F222F666F222F666FF000000FFF
FFFFFFFFFFFFFFF000000F000F000F000F000FF000000F666F222F666F222FF0
00000F6B6F2B2F6B6F2B2FF000000F666F222F666F222FF000000FFFFFFFFFFF
FFFFFFF000000CCCCCCCCCCCCCCCCCC000000CCCCCCCCCCCCCCCCCC000000000
00000000000000000000}
OnClick = SpeedButton1Click
end
object Label3: TLabel
Left = 310
Top = 2
Width = 36
Height = 12
Caption = 'Selected'
Font.Color = clBlack
Font.Height = -9
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object ReduceBtn: TSpeedButton
Left = 106
Top = 2
Width = 25
Height = 25
Hint = 'Reduce to fit'
AllowAllUp = True
GroupIndex = 11
Down = True
Glyph.Data = {
7E010000424D7E01000000000000760000002800000016000000160000000100
0400000000000801000000000000000000000000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA
AAAAAAAAAA00A0EEEEEEEEEEEEEEEEEE0A00AE0EE0EEEEEEEEEE0EE0EA00AEE0
707777777777070EEA00AEE7007777777777007EEA00AE000077777777770000
EA00AEE777B30B0B303B777EEA00AEE7770B33B303B0777EEA00AEE777E0B0B0
3B0E777EEA00AEE777EE030E00EE777EEA00AEE777EEE0EEEEEE777EEA00AEE7
77EEEEEEEEEE777EEA00AEE777EEEEEEE00E777EEA00AEE777EEEEEE0BB0777E
EA00AEE777EEEEEE0BB0777EEA00AEE777EEEEEEE00E777EEA00AE0000777777
77770000EA00AEE7007777777777007EEA00AEE0707777777777070EEA00AE0E
E0EEEEEEEEEE0EE0EA00A0EEEEEEEEEEEEEEEEEE0A00AAAAAAAAAAAAAAAAAAAA
AA00}
OnClick = ReduceBtnClick
end
object Label4: TLabel
Left = 310
Top = 13
Width = 3
Height = 13
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object SpinEdit1: TSpinEdit
Left = 183
Top = 4
Width = 43
Height = 22
Hint = 'Slide delay'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxValue = 999
MinValue = 1
ParentFont = False
TabOrder = 0
Value = 4
end
end
object TreeScanner1: TTreeScanner
OnDirectoryFound = TreeScanner1DirectoryFound
OnDirectoryDone = TreeScanner1DirectoryDone
OnFileFound = TreeScanner1FileFound
FileMask = '*.*'
Left = 24
Top = 280
end
object MainMenu1: TMainMenu
Left = 64
Top = 280
object File1: TMenuItem
Caption = '&File'
ShortCut = 0
object CopyToClipbrd1: TMenuItem
Caption = '&Copy To Clipbrd'
ShortCut = 16451
OnClick = CopyToClipbrd1Click
end
object Delete1: TMenuItem
Caption = '&Delete'
ShortCut = 16452
OnClick = Delete1Click
end
object Copy1: TMenuItem
Caption = '&Multi Copy'
ShortCut = 16461
OnClick = Copy1Click
end
object SaveAs1: TMenuItem
Caption = '&Save As...'
ShortCut = 16467
OnClick = SaveAs1Click
end
object ShowHints1: TMenuItem
Caption = 'Show Hints'
Checked = True
ShortCut = 0
OnClick = ShowHints1Click
end
object Untag1: TMenuItem
Caption = '&Untag'
ShortCut = 16469
OnClick = Untag1Click
end
object Exit1: TMenuItem
Caption = '&Quit'
ShortCut = 16465
OnClick = Exit1Click
end
end
object Options1: TMenuItem
Caption = '&Options'
ShortCut = 0
object ViewOptions1: TMenuItem
Caption = '&View Options...'
ShortCut = 0
OnClick = ViewOptions1Click
end
object Wallpaper1: TMenuItem
Caption = ' &Wallpaper'
ShortCut = 0
object Center1: TMenuItem
Caption = 'Center'
ShortCut = 0
OnClick = Center1Click
end
object Stretchtofit1: TMenuItem
Caption = 'Stretch to fit'
ShortCut = 0
OnClick = Stretchtofit1Click
end
object Tile1: TMenuItem
Caption = 'Tile'
ShortCut = 0
OnClick = Tile1Click
end
end
end
object View1: TMenuItem
Caption = '&View'
ShortCut = 0
object Zoom1: TMenuItem
Caption = '&Zoom'
ShortCut = 0
OnClick = Zoom1Click
end
object Reduce1: TMenuItem
Caption = '&Reduce'
ShortCut = 0
OnClick = Reduce1Click
end
object Tiled1: TMenuItem
Caption = '&Tiled'
ShortCut = 0
OnClick = TileBtnClick
end
object SlideShow1: TMenuItem
Caption = '&Slide Show'
ShortCut = 0
OnClick = SlideShow1Click
end
object Animategif1: TMenuItem
Caption = '&Animate (gif)'
ShortCut = 0
OnClick = Animategif1Click
end
object Transparentgif1: TMenuItem
Caption = '&Next Frame (gif)'
ShortCut = 0
OnClick = StepBtnClick
end
object BkgroundColor1: TMenuItem
Caption = '&Bkground Color'
ShortCut = 0
OnClick = BkgClrBtnClick
end
object Thumbnails1: TMenuItem
Caption = 'T&humbnails'
ShortCut = 0
OnClick = SpeedButton1Click
end
end
object Help1: TMenuItem
Caption = '&Help'
ShortCut = 0
OnClick = HelpButtonClick
end
object About1: TMenuItem
Caption = '&About'
ShortCut = 0
OnClick = About1Click
end
end
object SaveDialog1: TSaveDialog
FileEditStyle = fsEdit
Left = 104
Top = 280
end
object Timer1: TTimer
Enabled = False
OnTimer = Timer1Timer
Left = 64
Top = 232
end
object ColorDialog1: TColorDialog
Ctl3D = True
Left = 24
Top = 232
end
object CopyFile1: TCopyFile
Progress = False
ShowFileNames = False
Movefile = False
Left = 80
Top = 152
end
end