88 lines
1.7 KiB
Plaintext
88 lines
1.7 KiB
Plaintext
object Form1: TForm1
|
|
Left = 125
|
|
Height = 350
|
|
Top = 127
|
|
Width = 505
|
|
AllowDropFiles = True
|
|
Caption = 'Form1'
|
|
ClientHeight = 350
|
|
ClientWidth = 505
|
|
Color = clSkyBlue
|
|
Position = poScreenCenter
|
|
LCLVersion = '3.99.0.0'
|
|
OnCreate = FormCreate
|
|
OnDropFiles = FormDropFiles
|
|
object Panel1: TPanel
|
|
Left = 305
|
|
Height = 350
|
|
Top = 0
|
|
Width = 200
|
|
Align = alRight
|
|
Caption = 'Panel1'
|
|
ClientHeight = 350
|
|
ClientWidth = 200
|
|
Color = clBtnFace
|
|
ParentBackground = False
|
|
ParentColor = False
|
|
TabOrder = 0
|
|
object Memo1: TMemo
|
|
Left = 8
|
|
Height = 251
|
|
Top = 32
|
|
Width = 184
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Lines.Strings = (
|
|
'Memo1'
|
|
)
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
end
|
|
object Label1: TLabel
|
|
Left = 8
|
|
Height = 16
|
|
Top = 288
|
|
Width = 39
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Label1'
|
|
end
|
|
object Button1: TButton
|
|
Left = 10
|
|
Height = 25
|
|
Top = 312
|
|
Width = 75
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Refresh'
|
|
TabOrder = 1
|
|
OnClick = Button1Click
|
|
end
|
|
object Button2: TButton
|
|
Left = 112
|
|
Height = 25
|
|
Top = 312
|
|
Width = 75
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Save as...'
|
|
TabOrder = 2
|
|
OnClick = Button2Click
|
|
end
|
|
object Label2: TLabel
|
|
Left = 10
|
|
Height = 16
|
|
Top = 8
|
|
Width = 179
|
|
Caption = 'Drag and drop a GIF or a PNG'
|
|
end
|
|
end
|
|
object Timer1: TTimer
|
|
Interval = 15
|
|
Left = 136
|
|
Top = 128
|
|
end
|
|
object SaveDialog1: TSaveDialog
|
|
DefaultExt = '.gif'
|
|
Filter = 'Animated GIF|*.gif|Animated PNG|*.png'
|
|
Left = 392
|
|
Top = 184
|
|
end
|
|
end
|