mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-03 05:32:55 +01:00
899c458ad0
- implemented TPicture saving to different format - improved picture formats management, added more JPEG extensions LCL picture dialogs: - added function for retrieving extension from selected filter git-svn-id: trunk@15653 -
109 lines
2.4 KiB
Plaintext
109 lines
2.4 KiB
Plaintext
object GraphicPropertyEditorForm: TGraphicPropertyEditorForm
|
|
Left = 277
|
|
Height = 381
|
|
Top = 147
|
|
Width = 436
|
|
ActiveControl = LoadButton
|
|
Caption = 'Load Image Dialog'
|
|
ClientHeight = 381
|
|
ClientWidth = 436
|
|
Constraints.MinHeight = 180
|
|
Constraints.MinWidth = 200
|
|
OnCreate = FormCreate
|
|
Position = poScreenCenter
|
|
LCLVersion = '0.9.25'
|
|
object GroupBox1: TGroupBox
|
|
Left = 6
|
|
Height = 329
|
|
Top = 6
|
|
Width = 424
|
|
Align = alClient
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Picture'
|
|
ClientHeight = 311
|
|
ClientWidth = 420
|
|
TabOrder = 0
|
|
object ScrollBox: TScrollBox
|
|
AnchorSideRight.Control = GroupBox1
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = GroupBox1
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 6
|
|
Height = 299
|
|
Top = 6
|
|
Width = 351
|
|
Align = alClient
|
|
BorderSpacing.Around = 6
|
|
ParentColor = False
|
|
TabOrder = 0
|
|
object ImagePreview: TImage
|
|
Height = 100
|
|
Width = 100
|
|
AutoSize = True
|
|
Center = True
|
|
end
|
|
end
|
|
object LoadSaveBtnPanel: TPanel
|
|
Left = 363
|
|
Height = 299
|
|
Top = 6
|
|
Width = 51
|
|
Align = alRight
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
BevelOuter = bvNone
|
|
ClientHeight = 299
|
|
ClientWidth = 51
|
|
TabOrder = 1
|
|
object LoadButton: TButton
|
|
Height = 25
|
|
Width = 51
|
|
Align = alTop
|
|
BorderSpacing.Bottom = 6
|
|
Caption = 'Load'
|
|
OnClick = LoadButtonClick
|
|
TabOrder = 0
|
|
end
|
|
object SaveButton: TButton
|
|
Height = 25
|
|
Top = 31
|
|
Width = 51
|
|
Align = alTop
|
|
BorderSpacing.Bottom = 6
|
|
Caption = 'Save'
|
|
OnClick = SaveButtonClick
|
|
TabOrder = 1
|
|
end
|
|
object ClearButton: TButton
|
|
Height = 25
|
|
Top = 62
|
|
Width = 51
|
|
Align = alTop
|
|
BorderSpacing.Bottom = 6
|
|
Caption = 'Clear'
|
|
OnClick = ClearButtonClick
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
end
|
|
object OkCancelButtonPanel: TButtonPanel
|
|
Left = 6
|
|
Height = 40
|
|
Top = 341
|
|
Width = 424
|
|
Align = alBottom
|
|
AutoSize = True
|
|
TabOrder = 1
|
|
ShowButtons = [pbOK, pbCancel]
|
|
end
|
|
object OpenDialog: TOpenPictureDialog
|
|
left = 138
|
|
top = 182
|
|
end
|
|
object SaveDialog: TSavePictureDialog
|
|
Title = 'Save file as'
|
|
left = 186
|
|
top = 182
|
|
end
|
|
end
|