lazarus/components/ideintf/graphicpropedit.lfm

210 lines
5.2 KiB
Plaintext

object GraphicPropertyEditorForm: TGraphicPropertyEditorForm
Left = 389
Height = 381
Top = 166
Width = 436
ActiveControl = LoadButton
Caption = 'Load Image Dialog'
ClientHeight = 381
ClientWidth = 436
Constraints.MinHeight = 180
Constraints.MinWidth = 200
Position = poScreenCenter
LCLVersion = '3.99.0.0'
OnClose = FormClose
OnCreate = FormCreate
object GroupBox1: TGroupBox
Left = 6
Height = 337
Top = 6
Width = 424
Align = alClient
BorderSpacing.Around = 6
Caption = 'Picture'
ClientHeight = 317
ClientWidth = 420
TabOrder = 0
object ScrollBox: TScrollBox
AnchorSideRight.Control = GroupBox1
AnchorSideBottom.Control = GroupBox1
Left = 6
Height = 305
Top = 6
Width = 322
HorzScrollBar.Page = 100
HorzScrollBar.Tracking = True
VertScrollBar.Page = 100
VertScrollBar.Tracking = True
Align = alClient
BorderSpacing.Around = 6
ClientHeight = 301
ClientWidth = 318
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnResize = ScrollBoxResize
object ImagePreview: TImage
Left = 0
Height = 100
Top = 0
Width = 100
AutoSize = True
Center = True
OnPaintBackground = ImagePreviewPaintBackground
end
end
object LoadSaveBtnPanel: TPanel
Left = 334
Height = 317
Top = 0
Width = 86
Align = alRight
BevelOuter = bvNone
ClientHeight = 317
ClientWidth = 86
TabOrder = 1
object LoadButton: TButton
Left = 6
Height = 25
Top = 6
Width = 74
Action = FileOpenAction
Align = alTop
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 0
end
object SaveButton: TButton
AnchorSideLeft.Control = LoadButton
AnchorSideTop.Control = LoadButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = LoadButton
AnchorSideRight.Side = asrBottom
Left = 6
Height = 25
Top = 37
Width = 74
Action = FileSaveAction
Align = alTop
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 1
end
object ClearButton: TButton
AnchorSideLeft.Control = LoadButton
AnchorSideTop.Control = SaveButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = LoadButton
AnchorSideRight.Side = asrBottom
Left = 6
Height = 25
Top = 68
Width = 74
Action = ClearAction
Align = alTop
AutoSize = True
BorderSpacing.Around = 6
TabOrder = 2
end
object CopyButton: TButton
AnchorSideLeft.Control = LoadButton
AnchorSideTop.Control = ClearButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = LoadButton
AnchorSideRight.Side = asrBottom
Left = 6
Height = 25
Top = 99
Width = 74
Action = CopyAction
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
TabOrder = 3
end
object PasteButton: TButton
AnchorSideLeft.Control = LoadButton
AnchorSideTop.Control = CopyButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = LoadButton
AnchorSideRight.Side = asrBottom
Left = 6
Height = 25
Top = 130
Width = 74
Action = PasteAction
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
TabOrder = 4
end
end
end
object OkCancelButtonPanel: TButtonPanel
Left = 6
Height = 26
Top = 349
Width = 424
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1
ShowButtons = [pbOK, pbCancel]
ShowBevel = False
end
object OpenDialog: TOpenPictureDialog
Left = 138
Top = 182
end
object SaveDialog: TSavePictureDialog
Left = 186
Top = 182
end
object ActionList: TActionList
Left = 355
Top = 244
object CopyAction: TEditCopy
Category = 'Edit'
Caption = '&Copy'
Hint = 'Copy'
ShortCut = 16451
OnExecute = CopyActionExecute
OnUpdate = CopyActionUpdate
end
object PasteAction: TEditPaste
Category = 'Edit'
Caption = '&Paste'
Hint = 'Paste'
ShortCut = 16470
OnExecute = PasteActionExecute
OnUpdate = PasteActionUpdate
end
object FileOpenAction: TAction
Category = 'File'
Caption = 'Load'
ShortCut = 16463
OnExecute = FileOpenActionExecute
end
object FileSaveAction: TAction
Category = 'File'
Caption = 'Save'
ShortCut = 16467
OnExecute = FileSaveActionExecute
OnUpdate = FileSaveActionUpdate
end
object ClearAction: TEditDelete
Category = 'Edit'
Caption = 'Clear'
Hint = 'Delete'
ShortCut = 46
OnExecute = ClearActionExecute
OnUpdate = ClearActionUpdate
end
end
end