File: Unit9.lfm

package info (click to toggle)
optgeo 2.25-1
  • links: PTS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 6,948 kB
  • sloc: pascal: 58,877; xml: 63; makefile: 58
file content (74 lines) | stat: -rw-r--r-- 1,512 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
object saisietexte: Tsaisietexte
  Left = 661
  Height = 83
  Top = 224
  Width = 632
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Saisir le texte à afficher'
  ClientHeight = 83
  ClientWidth = 632
  Color = clAqua
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '1.6.0.4'
  object SpeedButton1: TSpeedButton
    Left = 368
    Height = 57
    Top = 16
    Width = 73
    Caption = 'Police'
    OnClick = SpeedButton1Click
  end
  object GroupBox1: TGroupBox
    Left = 8
    Height = 65
    Top = 8
    Width = 353
    Caption = 'Texte'
    ClientHeight = 43
    ClientWidth = 349
    TabOrder = 0
    object Edit1: TEdit
      AnchorSideLeft.Control = GroupBox1
      AnchorSideLeft.Side = asrCenter
      AnchorSideTop.Control = GroupBox1
      AnchorSideTop.Side = asrCenter
      Left = 10
      Height = 25
      Top = 9
      Width = 329
      TabOrder = 0
    end
  end
  object BitBtn1: TBitBtn
    Left = 448
    Height = 56
    Top = 16
    Width = 89
    Caption = '&OK'
    Default = True
    Kind = bkOK
    ModalResult = 1
    OnClick = BitBtn1Click
    TabOrder = 1
  end
  object BitBtn2: TBitBtn
    Left = 552
    Height = 55
    Top = 17
    Width = 73
    Cancel = True
    Caption = 'Annuler'
    Kind = bkCancel
    ModalResult = 2
    TabOrder = 2
  end
  object FontDialog1: TFontDialog
    Font.Height = -11
    MinFontSize = 0
    MaxFontSize = 0
    left = 216
    top = 256
  end
end