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 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148
| object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 480
ClientWidth = 640
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [dkDesktop, dkiPhone, dkiPad]
DesignerMobile = False
DesignerWidth = 0
DesignerHeight = 0
DesignerDeviceName = ''
DesignerOrientation = 0
object Layout1: TLayout
Align = alLeft
Height = 480.000000000000000000
Width = 129.000000000000000000
object Button1: TButton
Anchors = [akLeft, akTop, akRight]
Height = 22.000000000000000000
Position.X = 24.000000000000000000
Position.Y = 24.000000000000000000
TabOrder = 0
Text = 'Button1'
Width = 80.000000000000000000
end
object ListBox1: TListBox
Anchors = [akLeft, akTop, akRight, akBottom]
Height = 401.000000000000000000
Position.X = 24.000000000000000000
Position.Y = 64.000000000000000000
TabOrder = 1
Width = 81.000000000000000000
DefaultItemStyles.ItemStyle = ''
DefaultItemStyles.GroupHeaderStyle = ''
DefaultItemStyles.GroupFooterStyle = ''
end
end
object Layout2: TLayout
Align = alRight
Height = 480.000000000000000000
Position.X = 511.000000000000000000
Width = 129.000000000000000000
object Button2: TButton
Anchors = [akLeft, akTop, akRight]
Height = 22.000000000000000000
Position.X = 24.000000000000000000
Position.Y = 24.000000000000000000
TabOrder = 0
Text = 'Button1'
Width = 80.000000000000000000
end
object ListBox2: TListBox
Anchors = [akLeft, akTop, akRight, akBottom]
Height = 401.000000000000000000
Position.X = 24.000000000000000000
Position.Y = 64.000000000000000000
TabOrder = 1
Width = 81.000000000000000000
DefaultItemStyles.ItemStyle = ''
DefaultItemStyles.GroupHeaderStyle = ''
DefaultItemStyles.GroupFooterStyle = ''
end
end
object Layout3: TLayout
Align = alClient
Height = 480.000000000000000000
Width = 382.000000000000000000
object StringGrid1: TStringGrid
Align = alTop
Height = 189.000000000000000000
Margins.Left = 2.000000000000000000
Margins.Top = 4.000000000000000000
Margins.Right = 2.000000000000000000
Position.X = 2.000000000000000000
Position.Y = 4.000000000000000000
TabOrder = 0
Width = 378.000000000000000000
RowCount = 100
RowHeight = 21.000000000000000000
object StringColumn1: TStringColumn
Height = 168.000000000000000000
TabOrder = 0
Width = 100.000000000000000000
end
object StringColumn2: TStringColumn
Height = 168.000000000000000000
Position.X = 100.000000000000000000
TabOrder = 1
Width = 100.000000000000000000
end
object StringColumn3: TStringColumn
Height = 168.000000000000000000
Position.X = 200.000000000000000000
TabOrder = 2
Width = 100.000000000000000000
end
object StringColumn4: TStringColumn
Height = 168.000000000000000000
Position.X = 300.000000000000000000
TabOrder = 3
Width = 100.000000000000000000
end
object StringColumn5: TStringColumn
Height = 168.000000000000000000
Position.X = 400.000000000000000000
TabOrder = 4
Width = 100.000000000000000000
end
end
object Label1: TLabel
Anchors = [akLeft, akTop, akRight]
Height = 17.000000000000000000
Position.X = 8.000000000000000000
Position.Y = 224.000000000000000000
Text = 'Texte normal'
Width = 105.000000000000000000
object Edit1: TEdit
Anchors = [akLeft, akTop, akRight]
TabOrder = 0
Position.X = 107.000000000000000000
Position.Y = -3.000000000000000000
Width = 100.000000000000000000
Height = 22.000000000000000000
KillFocusByReturn = False
end
end
object Label2: TLabel
Anchors = [akLeft, akTop, akRight]
Height = 17.000000000000000000
Position.X = 8.000000000000000000
Position.Y = 256.000000000000000000
Text = 'un texte qui serait trop long '
Width = 105.000000000000000000
Trimming = ttWord
object Edit2: TEdit
Anchors = [akLeft, akTop, akRight]
TabOrder = 0
Position.X = 107.000000000000000000
Position.Y = -3.000000000000000000
Width = 100.000000000000000000
Height = 22.000000000000000000
KillFocusByReturn = False
end
end
end
end |
Partager