You've already forked lazarus-ccr
90 lines
2.2 KiB
Plaintext
90 lines
2.2 KiB
Plaintext
object CodeGenFrm: TCodeGenFrm
|
|
ActiveControl = GenerateBtn
|
|
Caption = 'Example Code Generator'
|
|
ClientHeight = 85
|
|
ClientWidth = 273
|
|
Font.Color = clText
|
|
Font.Height = 11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Pitch = fpVariable
|
|
PixelsPerInch = 96
|
|
Position = poScreenCenter
|
|
ShowHint = True
|
|
TextHeight = 18
|
|
HorzScrollBar.Page = 272
|
|
HorzScrollBar.Range = 267
|
|
VertScrollBar.Page = 84
|
|
VertScrollBar.Range = 76
|
|
Left = 315
|
|
Height = 85
|
|
Top = 230
|
|
Width = 273
|
|
object CopySb: TSpeedButton
|
|
Color = clBtnFace
|
|
Glyph.Data = {
|
|
42010000424D4201000000000000760000002800000011000000110000000100
|
|
040000000000CC00000000000000000000000000000000000000000000000000
|
|
8000008000000080800080000000800080008080000080808000C0C0C0000000
|
|
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
|
|
8888800000008888888888888888800000008888888444444444800000008888
|
|
8884FFFFFFF48000000088888884F00000F48000000080000004FFFFFFF48000
|
|
000080FFFFF4F00000F48000000080F00004FFFFFFF48000000080FFFFF4F00F
|
|
44448000000080F00004FFFF4F488000000080FFFFF4FFFF44888000000080F0
|
|
0F04444448888000000080FFFF0F088888888000000080FFFF00888888888000
|
|
0000800000088888888880000000888888888888888880000000888888888888
|
|
888880000000
|
|
}
|
|
NumGlyphs = 0
|
|
OnClick = CopySbClick
|
|
Left = 244
|
|
Height = 22
|
|
Hint = 'Copy code to clipboard'
|
|
Top = 21
|
|
Width = 23
|
|
end
|
|
object Label2: TLabel
|
|
Caption = 'Code'
|
|
Color = clNone
|
|
FocusControl = CodeEd
|
|
ParentColor = False
|
|
Left = 8
|
|
Height = 14
|
|
Top = 3
|
|
Width = 26
|
|
end
|
|
object GenerateBtn: TButton
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Generate Code'
|
|
OnClick = GenerateBtnClick
|
|
TabOrder = 0
|
|
Left = 8
|
|
Height = 25
|
|
Hint = 'Display code generation dialog'
|
|
Top = 51
|
|
Width = 105
|
|
end
|
|
object CodeEd: TEdit
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
Left = 8
|
|
Height = 24
|
|
Top = 19
|
|
Width = 233
|
|
end
|
|
object CloseBtn: TBitBtn
|
|
Kind = bkClose
|
|
NumGlyphs = 0
|
|
TabOrder = 2
|
|
Left = 192
|
|
Height = 25
|
|
Top = 51
|
|
Width = 75
|
|
end
|
|
object OgMakeCodes1: TOgMakeCodes
|
|
KeyFileName = 'ONGUARD.INI'
|
|
ShowHints = True
|
|
left = 56
|
|
top = 152
|
|
end
|
|
end
|