home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1999 April
/
PCWorld_1999-04_cd.bin
/
Software
/
TemaCD
/
HTMLed
/
EDITOR.EXE
/
0
/
RCDATA
/
TPPREVFORM
/
TPPREVFORM.txt
Wrap
Text File
|
1998-10-11
|
8KB
|
239 lines
object PPrevForm: TPPrevForm
Left = 217
Top = 101
Width = 227
Height = 264
BorderIcons = [biSystemMenu, biMaximize]
Caption = 'Prohl�e� obr�zk�'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
Menu = MainMenu1
OldCreateOrder = True
Position = poScreenCenter
OnCreate = FormCreate
OnHide = FormHide
OnResize = FormResize
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 219
Height = 28
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object OpenSB: TSpeedButton
Left = 0
Top = 0
Width = 22
Height = 22
Hint = 'Otev��t'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555555555555555555555555555555555555555555555555555555555555555
555555555555555555555555555555555555555FFFFFFFFFF555550000000000
55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
55555575FFF75555555555700007555555555557777555555555555555555555
5555555555555555555555555555555555555555555555555555}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = OpenSBClick
end
object saveSB: TSpeedButton
Left = 22
Top = 0
Width = 22
Height = 22
Hint = 'Ulo�it jako'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
0003737FFFFFFFFF7F7330099999999900333777777777777733}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = Save1Click
end
object copySB: TSpeedButton
Left = 44
Top = 0
Width = 22
Height = 22
Hint = 'Kop�rovat'
Flat = True
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333FFFFFFFFFF33333333300000000003333333333888888888
8F3333333330FFFFFFFF033333333338F33333338F3333333330BFBFBFBF0333
33333338F3FFFFFF8F3333333330F888888F033333333338F88888838F333333
3330BFBFBFBF0333333FFFF8F3FFFFFF8F3333000000F888888F033333888888
F88888838F33330FFFF0BFBFBFBF0333338F3338F3FFFFFF8F33330FFFF0F888
888F0333338F3338F88888838F33330F7770BFBFBFBF0333338F3338F333333F
8F33330FFFF0FFFFFF000333338F3338F33333888333330F7770BFBFBF003333
338F3338FFFFFF883333330FFFF0000000033333338F3338888888833333330F
777777F033333333338F33333338F3333333330FFFFFFFF033333333338F3333
33F8F3333333330FFFFFF00033333333338F3333388833333333330FFFFFF003
33333333338FFFFFF88333333333330000000033333333333388888888333333
3333333333333333333333333333333333333333333333333333333333333333
33333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = PutIClick
end
object PasteSB: TSpeedButton
Left = 66
Top = 0
Width = 22
Height = 22
Hint = 'Vlo�it'
Flat = True
Glyph.Data = {
06020000424D0602000000000000760000002800000028000000140000000100
0400000000009001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333FFFFFFFFF333333333300000000033333333333888888
888F33333333330BFBFBFB03333FFFFFFF8F3FFFFF8F33000000000F88888F03
33888888888F8888838F307F7F7F7F0BFBFBFB0338F33333338F333FFF8F30F7
F7F7F70F77888F0338F33333338FFF88838F307F7F7F74444BFBFB0338F33333
38888F3FFF8F30F7F7F7F7C447888F0338F3333333888F88838F307F7F7F744C
4BFBFB0338F3333338888F333F8F30F7F7F7444F4FFF880338F33333888F8333
8883307F7F74440BFBFB803338F33338888FFFFF883330F7F744470000000333
38F33388838888888333307F7F747F7F0333333338F3333833338F33333330F7
F7F7F7F70333333338F3333333338F333333307F7F7F7F7F0333333338F33FFF
FFF38F33333330F7444444F703333333383F888888FF833333333300ECCCC400
33333333338838888888333333333333ECCCC433333333333333388888333333
333333333EEEE333333333333333333333333333333333333333333333333333
33333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = GetIClick
end
object TrackBar1: TTrackBar
Left = 104
Top = 1
Width = 108
Height = 25
Max = 500
Min = 10
Orientation = trHorizontal
PageSize = 10
Frequency = 20
Position = 100
SelEnd = 0
SelStart = 0
TabOrder = 0
ThumbLength = 20
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TrackBar1Change
end
end
object Scroll: TScrollBox
Left = 0
Top = 28
Width = 219
Height = 171
HorzScrollBar.Tracking = True
VertScrollBar.Tracking = True
Align = alClient
TabOrder = 0
object Image: TImage
Left = 0
Top = 0
Width = 105
Height = 105
Stretch = True
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 199
Width = 219
Height = 19
Panels = <
item
Width = 100
end
item
Width = 50
end>
SimplePanel = False
end
object FormStorage1: TFormStorage
IniSection = '\Software\DRHTML\PicturePreview'
UseRegistry = True
Left = 98
Top = 122
end
object MainMenu1: TMainMenu
Left = 66
Top = 122
object File1: TMenuItem
Caption = 'Soubor'
object Open1: TMenuItem
Caption = '&Otev��t'
OnClick = OpenSBClick
end
object Save1: TMenuItem
Caption = '&Ulo�it jako..'
OnClick = Save1Click
end
end
object Clipboard1: TMenuItem
Caption = 'Editace'
object PutI: TMenuItem
Caption = 'Kop�rovat'
ShortCut = 16451
OnClick = PutIClick
end
object GetI: TMenuItem
Caption = 'Vlo�it'
ShortCut = 16470
OnClick = GetIClick
end
end
end
object SaveDlg: TDrSavePictureDialog
Filter = 'Jpeg|*.jpg;*.jpe;*.jpeg|BMP|*.bmp'
Left = 34
Top = 122
end
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
Left = 130
Top = 122
end
end