You've already forked lazarus-ccr
187 lines
4.3 KiB
Plaintext
187 lines
4.3 KiB
Plaintext
![]() |
object Form1: TForm1
|
||
|
Left = 697
|
||
|
Height = 391
|
||
|
Top = 481
|
||
|
Width = 441
|
||
|
Caption = 'Form1'
|
||
|
ClientHeight = 391
|
||
|
ClientWidth = 441
|
||
|
OnCreate = FormCreate
|
||
|
LCLVersion = '1.7'
|
||
|
object Button1: TButton
|
||
|
AnchorSideTop.Control = Owner
|
||
|
AnchorSideRight.Control = Owner
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
Left = 322
|
||
|
Height = 32
|
||
|
Top = 6
|
||
|
Width = 113
|
||
|
Anchors = [akTop, akRight]
|
||
|
AutoSize = True
|
||
|
BorderSpacing.Around = 6
|
||
|
Caption = 'Get information'
|
||
|
OnClick = Button1Click
|
||
|
TabOrder = 0
|
||
|
end
|
||
|
object Edit1: TEdit
|
||
|
AnchorSideLeft.Control = Label1
|
||
|
AnchorSideTop.Control = Label1
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = Owner
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
Left = 12
|
||
|
Height = 30
|
||
|
Top = 70
|
||
|
Width = 423
|
||
|
Anchors = [akTop, akLeft, akRight]
|
||
|
BorderSpacing.Around = 6
|
||
|
Color = clSkyBlue
|
||
|
ReadOnly = True
|
||
|
TabOrder = 1
|
||
|
end
|
||
|
object Edit2: TEdit
|
||
|
AnchorSideLeft.Control = Label2
|
||
|
AnchorSideTop.Control = Label2
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = Owner
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
Left = 12
|
||
|
Height = 30
|
||
|
Top = 132
|
||
|
Width = 423
|
||
|
Anchors = [akTop, akLeft, akRight]
|
||
|
BorderSpacing.Around = 6
|
||
|
Color = clSkyBlue
|
||
|
ReadOnly = True
|
||
|
TabOrder = 2
|
||
|
end
|
||
|
object Edit3: TEdit
|
||
|
AnchorSideLeft.Control = Label4
|
||
|
AnchorSideTop.Control = Label4
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = Owner
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
Left = 10
|
||
|
Height = 30
|
||
|
Top = 282
|
||
|
Width = 425
|
||
|
Anchors = [akTop, akLeft, akRight]
|
||
|
BorderSpacing.Around = 6
|
||
|
Color = clSkyBlue
|
||
|
ReadOnly = True
|
||
|
TabOrder = 3
|
||
|
end
|
||
|
object Edit4: TEdit
|
||
|
AnchorSideLeft.Control = Label5
|
||
|
AnchorSideTop.Control = Label5
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = Owner
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
Left = 12
|
||
|
Height = 30
|
||
|
Top = 344
|
||
|
Width = 423
|
||
|
Anchors = [akTop, akLeft, akRight]
|
||
|
BorderSpacing.Around = 6
|
||
|
Color = clSkyBlue
|
||
|
ReadOnly = True
|
||
|
TabOrder = 4
|
||
|
end
|
||
|
object Label1: TLabel
|
||
|
AnchorSideLeft.Control = Owner
|
||
|
AnchorSideTop.Control = Button1
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 6
|
||
|
Height = 20
|
||
|
Top = 44
|
||
|
Width = 251
|
||
|
BorderSpacing.Around = 6
|
||
|
Caption = 'User name (from environment variable)'
|
||
|
ParentColor = False
|
||
|
end
|
||
|
object Label2: TLabel
|
||
|
AnchorSideLeft.Control = Owner
|
||
|
AnchorSideTop.Control = Edit1
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 6
|
||
|
Height = 20
|
||
|
Top = 106
|
||
|
Width = 80
|
||
|
BorderSpacing.Around = 6
|
||
|
Caption = 'User domani'
|
||
|
ParentColor = False
|
||
|
end
|
||
|
object Label3: TLabel
|
||
|
AnchorSideLeft.Control = Owner
|
||
|
AnchorSideTop.Control = DividerBevel1
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 6
|
||
|
Height = 20
|
||
|
Top = 194
|
||
|
Width = 55
|
||
|
BorderSpacing.Around = 6
|
||
|
Caption = 'File info:'
|
||
|
ParentColor = False
|
||
|
end
|
||
|
object DividerBevel1: TDividerBevel
|
||
|
AnchorSideLeft.Control = Owner
|
||
|
AnchorSideTop.Control = Edit2
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = Owner
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
Left = 0
|
||
|
Height = 20
|
||
|
Top = 168
|
||
|
Width = 441
|
||
|
Caption = 'File owner'
|
||
|
Anchors = [akTop, akLeft, akRight]
|
||
|
BorderSpacing.Top = 6
|
||
|
BorderSpacing.Bottom = 6
|
||
|
Font.Style = [fsBold]
|
||
|
ParentFont = False
|
||
|
end
|
||
|
object FileNameEdit1: TFileNameEdit
|
||
|
AnchorSideLeft.Control = Label3
|
||
|
AnchorSideTop.Control = Label3
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
AnchorSideRight.Control = Owner
|
||
|
AnchorSideRight.Side = asrBottom
|
||
|
Left = 12
|
||
|
Height = 30
|
||
|
Top = 220
|
||
|
Width = 423
|
||
|
FilterIndex = 0
|
||
|
HideDirectories = False
|
||
|
ButtonWidth = 23
|
||
|
NumGlyphs = 1
|
||
|
Anchors = [akTop, akLeft, akRight]
|
||
|
BorderSpacing.Around = 6
|
||
|
MaxLength = 0
|
||
|
Spacing = 0
|
||
|
TabOrder = 5
|
||
|
end
|
||
|
object Label4: TLabel
|
||
|
AnchorSideTop.Control = FileNameEdit1
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 4
|
||
|
Height = 20
|
||
|
Top = 256
|
||
|
Width = 83
|
||
|
BorderSpacing.Around = 6
|
||
|
Caption = 'Owner name'
|
||
|
ParentColor = False
|
||
|
end
|
||
|
object Label5: TLabel
|
||
|
AnchorSideLeft.Control = Owner
|
||
|
AnchorSideTop.Control = Edit3
|
||
|
AnchorSideTop.Side = asrBottom
|
||
|
Left = 6
|
||
|
Height = 20
|
||
|
Top = 318
|
||
|
Width = 94
|
||
|
BorderSpacing.Around = 6
|
||
|
Caption = 'Owner domain'
|
||
|
ParentColor = False
|
||
|
end
|
||
|
end
|