expertcad/POWERCAD30/UNITS/FillForm.dfm
2025-05-12 10:07:51 +03:00

266 lines
5.9 KiB
Plaintext

object frmFill: TfrmFill
Left = 554
Top = 80
BorderStyle = bsDialog
Caption = 'PowerCad Fill Dialog'
ClientHeight = 433
ClientWidth = 377
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 288
Top = 400
Width = 75
Height = 25
Caption = 'OK'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 16
Top = 400
Width = 75
Height = 25
Caption = 'Cancel'
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
Left = 208
Top = 400
Width = 75
Height = 25
Caption = 'Apply'
TabOrder = 2
OnClick = Button3Click
end
object PageControl1: TPageControl
Left = 16
Top = 16
Width = 345
Height = 281
ActivePage = TabSheet1
TabIndex = 0
TabOrder = 3
OnChange = PageControl1Change
object TabSheet1: TTabSheet
Caption = 'Hatch'
object Label1: TLabel
Left = 8
Top = 224
Width = 113
Height = 13
Caption = 'Step Distance (mm)'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object HatchGrid: TStringGrid
Left = 8
Top = 8
Width = 320
Height = 209
ColCount = 6
DefaultColWidth = 48
DefaultRowHeight = 48
FixedCols = 0
RowCount = 2
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
TabOrder = 0
OnDrawCell = HatchGridDrawCell
OnSelectCell = HatchGridSelectCell
end
object Edit1: TEdit
Left = 152
Top = 224
Width = 73
Height = 21
TabOrder = 1
Text = '2'
end
end
object TabSheet2: TTabSheet
Caption = 'Gradient'
ImageIndex = 1
object GradGrid: TStringGrid
Left = 8
Top = 8
Width = 320
Height = 209
ColCount = 6
DefaultColWidth = 48
DefaultRowHeight = 48
DefaultDrawing = False
FixedCols = 0
RowCount = 4
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
TabOrder = 0
OnDrawCell = GradGridDrawCell
OnSelectCell = GradGridSelectCell
end
end
object TabSheet3: TTabSheet
Caption = 'Texture'
ImageIndex = 2
object Label2: TLabel
Left = 8
Top = 224
Width = 62
Height = 13
Caption = 'Draw Scale'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object TextureGrid: TStringGrid
Left = 8
Top = 8
Width = 320
Height = 209
ColCount = 6
DefaultColWidth = 48
DefaultRowHeight = 48
DefaultDrawing = False
FixedCols = 0
RowCount = 4
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
TabOrder = 0
OnDrawCell = TextureGridDrawCell
OnSelectCell = TextureGridSelectCell
end
object rbTSmall: TRadioButton
Left = 80
Top = 224
Width = 65
Height = 17
Caption = 'Small'
TabOrder = 1
end
object rbTNormal: TRadioButton
Left = 152
Top = 224
Width = 81
Height = 17
Caption = 'Normal'
Checked = True
TabOrder = 2
TabStop = True
end
object rbTBig: TRadioButton
Left = 240
Top = 224
Width = 65
Height = 17
Caption = 'Big'
TabOrder = 3
end
end
end
object Panel1: TPanel
Left = 16
Top = 304
Width = 345
Height = 73
BorderWidth = 1
TabOrder = 4
object SpeedButton2: TSpeedButton
Left = 16
Top = 19
Width = 73
Height = 22
Caption = 'Back Color'
Flat = True
OnClick = SpeedButton2Click
end
object SpeedButton1: TSpeedButton
Left = 192
Top = 19
Width = 73
Height = 22
Caption = 'Fore Color'
Flat = True
OnClick = SpeedButton1Click
end
object bColor: TShape
Left = 96
Top = 19
Width = 57
Height = 22
Brush.Color = clSkyBlue
end
object fColor: TShape
Left = 272
Top = 19
Width = 57
Height = 22
end
object Bevel1: TBevel
Left = 8
Top = 16
Width = 9
Height = 27
Shape = bsLeftLine
end
object Bevel2: TBevel
Left = 152
Top = 16
Width = 9
Height = 27
Shape = bsRightLine
end
object Bevel3: TBevel
Left = 184
Top = 16
Width = 9
Height = 27
Shape = bsLeftLine
end
object Bevel4: TBevel
Left = 328
Top = 16
Width = 9
Height = 27
Shape = bsRightLine
end
object bColorG: TShape
Left = 96
Top = 19
Width = 57
Height = 22
Brush.Color = clSkyBlue
end
object CheckBox1: TCheckBox
Left = 16
Top = 48
Width = 145
Height = 17
Caption = 'Transparent Background'
TabOrder = 0
OnClick = CheckBox1Click
end
end
object cldlg: TColorDialog
Ctl3D = True
Left = 104
Top = 392
end
end