2006-11-03 15:58:07 +00:00
|
|
|
object FormExample: TFormExample
|
2007-09-02 15:12:14 +00:00
|
|
|
Left = 267
|
|
|
|
Height = 514
|
|
|
|
Top = 150
|
|
|
|
Width = 645
|
|
|
|
HorzScrollBar.Page = 644
|
|
|
|
VertScrollBar.Page = 513
|
2006-11-03 15:58:07 +00:00
|
|
|
ActiveControl = ButtonRedLine
|
|
|
|
Caption = 'LazRGBGraphics Example'
|
2007-09-02 15:12:14 +00:00
|
|
|
ClientHeight = 514
|
|
|
|
ClientWidth = 645
|
2006-11-03 15:58:07 +00:00
|
|
|
OnCreate = FormCreate
|
|
|
|
OnDestroy = FormDestroy
|
|
|
|
OnPaint = FormPaint
|
2008-06-13 10:53:58 +00:00
|
|
|
LCLVersion = '0.9.25'
|
2006-11-03 15:58:07 +00:00
|
|
|
object ButtonRedLine: TButton
|
2007-09-02 15:12:14 +00:00
|
|
|
Left = 6
|
2008-06-13 10:53:58 +00:00
|
|
|
Height = 31
|
2007-09-02 15:12:14 +00:00
|
|
|
Top = 8
|
2008-06-13 10:53:58 +00:00
|
|
|
Width = 96
|
2007-09-02 15:12:14 +00:00
|
|
|
AutoSize = True
|
2006-11-03 15:58:07 +00:00
|
|
|
BorderSpacing.InnerBorder = 4
|
|
|
|
Caption = 'Draw red line'
|
|
|
|
OnClick = ButtonRedLineClick
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object ButtonRotate90: TButton
|
2007-09-02 15:12:14 +00:00
|
|
|
Left = 6
|
2008-06-13 10:53:58 +00:00
|
|
|
Height = 31
|
2007-09-02 15:12:14 +00:00
|
|
|
Top = 39
|
|
|
|
Width = 131
|
|
|
|
AutoSize = True
|
2006-11-03 15:58:07 +00:00
|
|
|
BorderSpacing.InnerBorder = 4
|
2007-09-02 15:12:14 +00:00
|
|
|
Caption = 'Rotate 90 clockwise'
|
2006-11-03 15:58:07 +00:00
|
|
|
OnClick = ButtonRotate90Click
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object ButtonInvert: TButton
|
2007-09-02 15:12:14 +00:00
|
|
|
Left = 6
|
2008-06-13 10:53:58 +00:00
|
|
|
Height = 31
|
2007-09-02 15:12:14 +00:00
|
|
|
Top = 72
|
2008-06-13 10:53:58 +00:00
|
|
|
Width = 92
|
2007-09-02 15:12:14 +00:00
|
|
|
AutoSize = True
|
2006-11-03 15:58:07 +00:00
|
|
|
BorderSpacing.InnerBorder = 4
|
|
|
|
Caption = 'Invert colors'
|
|
|
|
OnClick = ButtonInvertClick
|
|
|
|
TabOrder = 2
|
|
|
|
end
|
|
|
|
object ButtonReplace: TButton
|
2007-09-02 15:12:14 +00:00
|
|
|
Left = 6
|
2008-06-13 10:53:58 +00:00
|
|
|
Height = 31
|
2007-09-02 15:12:14 +00:00
|
|
|
Top = 106
|
2008-06-13 10:53:58 +00:00
|
|
|
Width = 137
|
2007-09-02 15:12:14 +00:00
|
|
|
AutoSize = True
|
2006-11-03 15:58:07 +00:00
|
|
|
BorderSpacing.InnerBorder = 4
|
2007-09-02 15:12:14 +00:00
|
|
|
Caption = 'Replace red with blue'
|
2006-11-03 15:58:07 +00:00
|
|
|
OnClick = ButtonReplaceClick
|
|
|
|
TabOrder = 3
|
2007-09-02 15:12:14 +00:00
|
|
|
end
|
|
|
|
object OpenPictureDialog: TOpenPictureDialog
|
|
|
|
Title = 'Open picture'
|
|
|
|
left = 211
|
|
|
|
top = 81
|
2006-11-03 15:58:07 +00:00
|
|
|
end
|
|
|
|
end
|