mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 11:56:08 +02:00
144 lines
3.0 KiB
Plaintext
144 lines
3.0 KiB
Plaintext
object Form1: TForm1
|
|
Left = 190
|
|
Height = 507
|
|
Top = 45
|
|
Width = 339
|
|
HorzScrollBar.Page = 338
|
|
VertScrollBar.Page = 506
|
|
ActiveControl = Button2
|
|
Caption = 'Form1'
|
|
OnCreate = FormCreate
|
|
Position = poDesktopCenter
|
|
object Label1: TLabel
|
|
Left = 16
|
|
Height = 13
|
|
Top = 8
|
|
Width = 269
|
|
Caption = 'This sample show how to use the printer dialogs'
|
|
Color = clNone
|
|
ParentColor = False
|
|
end
|
|
object Button2: TButton
|
|
Left = 8
|
|
Height = 27
|
|
Top = 51
|
|
Width = 320
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Execute TPrinterSetupDialog'
|
|
OnClick = Button2Click
|
|
TabOrder = 0
|
|
end
|
|
object Button1: TButton
|
|
Left = 8
|
|
Height = 27
|
|
Top = 78
|
|
Width = 320
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Execute TPrintDialog'
|
|
OnClick = Button1Click
|
|
TabOrder = 1
|
|
end
|
|
object SGrid: TStringGrid
|
|
Left = 8
|
|
Height = 304
|
|
Top = 192
|
|
Width = 320
|
|
AutoFillColumns = True
|
|
BorderStyle = bsNone
|
|
ColCount = 2
|
|
Columns = <
|
|
item
|
|
MinSize = 60
|
|
MaxSize = 350
|
|
ReadOnly = True
|
|
Title.Caption = 'Information'
|
|
Width = 230
|
|
end>
|
|
DefaultColWidth = 90
|
|
FixedColor = clBtnFace
|
|
Flat = True
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goSmoothScroll]
|
|
RowCount = 15
|
|
ScrollBars = ssAutoBoth
|
|
TabOrder = 7
|
|
TabStop = True
|
|
end
|
|
object Button3: TButton
|
|
Left = 8
|
|
Height = 27
|
|
Top = 105
|
|
Width = 320
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Get default printer info'
|
|
OnClick = Button3Click
|
|
TabOrder = 2
|
|
end
|
|
object Button4: TButton
|
|
Left = 256
|
|
Height = 27
|
|
Top = 155
|
|
Width = 69
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Print test'
|
|
OnClick = Button4Click
|
|
TabOrder = 3
|
|
end
|
|
object Button5: TButton
|
|
Left = 8
|
|
Height = 25
|
|
Top = 132
|
|
Width = 224
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Update printer state info'
|
|
OnClick = Button5Click
|
|
TabOrder = 4
|
|
end
|
|
object Button6: TButton
|
|
Left = 8
|
|
Height = 25
|
|
Top = 157
|
|
Width = 224
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Show printer properties'
|
|
OnClick = Button6Click
|
|
TabOrder = 5
|
|
end
|
|
object Button7: TButton
|
|
Left = 8
|
|
Height = 27
|
|
Top = 24
|
|
Width = 320
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Execute TPageSetupDialog'
|
|
OnClick = Button7Click
|
|
TabOrder = 6
|
|
end
|
|
object PSD: TPrinterSetupDialog
|
|
Title = 'Testing dialog title'
|
|
left = 176
|
|
top = 240
|
|
end
|
|
object PD: TPrintDialog
|
|
Title = 'Testing title'
|
|
Collate = True
|
|
Copies = 1
|
|
FromPage = 2
|
|
MinPage = 2
|
|
MaxPage = 5
|
|
Options = [poPrintToFile, poPageNums, poSelection, poWarning, poHelp]
|
|
PrintToFile = True
|
|
ToPage = 3
|
|
left = 176
|
|
top = 272
|
|
end
|
|
object PopupMenu1: TPopupMenu
|
|
left = 216
|
|
top = 240
|
|
end
|
|
object PAGED: TPageSetupDialog
|
|
Title = 'Ustawienie strony raportu'
|
|
left = 176
|
|
top = 304
|
|
end
|
|
end
|