1object Form1: TForm1 2 Left = 185 3 Height = 892 4 Top = 137 5 Width = 1106 6 ActiveControl = BtnAddLines 7 Caption = 'ZCAD engine demo program' 8 ClientHeight = 892 9 ClientWidth = 1106 10 KeyPreview = True 11 OnCreate = _FormCreate 12 OnDestroy = _DestroyApp 13 OnKeyDown = _KeyDown 14 OnShow = _FormShow 15 LCLVersion = '1.7' 16 object Panel1: TPanel 17 Left = 0 18 Height = 892 19 Top = 0 20 Width = 824 21 Align = alLeft 22 BevelOuter = bvNone 23 ClientHeight = 892 24 ClientWidth = 824 25 TabOrder = 0 26 object Splitter2: TSplitter 27 Cursor = crVSplit 28 Left = 0 29 Height = 10 30 Top = 400 31 Width = 824 32 Align = alTop 33 ResizeAnchor = akTop 34 end 35 object GroupBox1: TGroupBox 36 Left = 0 37 Height = 400 38 Top = 0 39 Width = 824 40 Align = alTop 41 Caption = 'OpenGL:' 42 ClientHeight = 376 43 ClientWidth = 820 44 TabOrder = 1 45 object PanelUp: TPanel 46 Left = 0 47 Height = 376 48 Top = 0 49 Width = 820 50 Align = alClient 51 BevelOuter = bvNone 52 Caption = 'PanelUp' 53 TabOrder = 0 54 end 55 end 56 object GroupBox2: TGroupBox 57 Left = 0 58 Height = 482 59 Top = 410 60 Width = 824 61 Align = alClient 62 Caption = 'GDI:' 63 ClientHeight = 458 64 ClientWidth = 820 65 TabOrder = 2 66 object Panel2: TPanel 67 Left = 0 68 Height = 458 69 Top = 0 70 Width = 820 71 Align = alClient 72 Caption = 'PanelDown' 73 TabOrder = 0 74 end 75 end 76 end 77 object Splitter1: TSplitter 78 Left = 824 79 Height = 892 80 Top = 0 81 Width = 10 82 end 83 object BtnAddLines: TButton 84 AnchorSideLeft.Control = Splitter1 85 AnchorSideLeft.Side = asrBottom 86 AnchorSideRight.Control = Owner 87 AnchorSideRight.Side = asrBottom 88 Left = 834 89 Height = 32 90 Top = 24 91 Width = 272 92 Anchors = [akTop, akLeft, akRight] 93 Caption = 'Add lines' 94 OnClick = BtnAddLinesClick 95 TabOrder = 2 96 end 97 object BtnAddCircles: TButton 98 AnchorSideLeft.Control = Splitter1 99 AnchorSideLeft.Side = asrBottom 100 AnchorSideRight.Control = Owner 101 AnchorSideRight.Side = asrBottom 102 Left = 834 103 Height = 33 104 Top = 56 105 Width = 272 106 Anchors = [akTop, akLeft, akRight] 107 Caption = 'Add circles' 108 OnClick = BtnAddCirclesClick 109 TabOrder = 3 110 end 111 object BtnRebuild: TButton 112 AnchorSideLeft.Control = CheckBox1 113 AnchorSideLeft.Side = asrBottom 114 AnchorSideTop.Control = CheckBox1 115 AnchorSideTop.Side = asrCenter 116 AnchorSideRight.Control = Owner 117 AnchorSideRight.Side = asrBottom 118 Left = 919 119 Height = 23 120 Top = 614 121 Width = 187 122 Anchors = [akTop, akLeft, akRight] 123 Caption = 'Rebuild tree' 124 OnClick = BtnRebuildClick 125 TabOrder = 4 126 end 127 object CheckBox1: TCheckBox 128 AnchorSideLeft.Control = Splitter1 129 AnchorSideLeft.Side = asrBottom 130 AnchorSideRight.Side = asrBottom 131 Left = 834 132 Height = 23 133 Top = 614 134 Width = 85 135 Caption = 'Show tree' 136 OnChange = TreeChange 137 TabOrder = 5 138 end 139 object SpinEdit1: TSpinEdit 140 AnchorSideLeft.Control = Label1 141 AnchorSideLeft.Side = asrBottom 142 AnchorSideRight.Control = Owner 143 AnchorSideRight.Side = asrBottom 144 Left = 992 145 Height = 27 146 Top = 0 147 Width = 114 148 Anchors = [akTop, akLeft, akRight] 149 MaxValue = 1000000 150 MinValue = 1 151 TabOrder = 6 152 Value = 1000 153 end 154 object BtnEraseSel: TButton 155 AnchorSideLeft.Control = Splitter1 156 AnchorSideLeft.Side = asrBottom 157 AnchorSideRight.Control = Owner 158 AnchorSideRight.Side = asrBottom 159 Left = 834 160 Height = 37 161 Top = 416 162 Width = 272 163 Anchors = [akTop, akLeft, akRight] 164 Caption = 'Erase Selected' 165 OnClick = BtnEraseSelClick 166 TabOrder = 7 167 end 168 object BtnAddTexts: TButton 169 AnchorSideLeft.Control = Splitter1 170 AnchorSideLeft.Side = asrBottom 171 AnchorSideRight.Control = Owner 172 AnchorSideRight.Side = asrBottom 173 Left = 834 174 Height = 32 175 Top = 120 176 Width = 272 177 Anchors = [akTop, akLeft, akRight] 178 Caption = 'Add texts' 179 OnClick = BtnAddTextsClick 180 TabOrder = 8 181 end 182 object BtnOpenDXF: TButton 183 AnchorSideLeft.Control = Splitter1 184 AnchorSideLeft.Side = asrBottom 185 AnchorSideRight.Control = Owner 186 AnchorSideRight.Side = asrBottom 187 Left = 834 188 Height = 28 189 Top = 529 190 Width = 272 191 Anchors = [akTop, akLeft, akRight] 192 Caption = 'Open DXF' 193 OnClick = BtnOpenDXFClick 194 TabOrder = 9 195 end 196 object BtnSaveDXF: TButton 197 AnchorSideLeft.Control = Splitter1 198 AnchorSideLeft.Side = asrBottom 199 AnchorSideRight.Control = Owner 200 AnchorSideRight.Side = asrBottom 201 Left = 834 202 Height = 26 203 Top = 561 204 Width = 272 205 Anchors = [akTop, akLeft, akRight] 206 Caption = 'Save DXF' 207 OnClick = BtnSaveDXFClick 208 TabOrder = 10 209 end 210 object BtnSelectAll: TButton 211 AnchorSideLeft.Control = Splitter1 212 AnchorSideLeft.Side = asrBottom 213 AnchorSideRight.Control = Owner 214 AnchorSideRight.Side = asrBottom 215 Left = 834 216 Height = 32 217 Top = 384 218 Width = 272 219 Anchors = [akTop, akLeft, akRight] 220 Caption = 'Select All' 221 OnClick = BtnSelectAllClick 222 TabOrder = 11 223 end 224 object Label1: TLabel 225 AnchorSideLeft.Control = Splitter1 226 AnchorSideLeft.Side = asrBottom 227 AnchorSideTop.Control = SpinEdit1 228 AnchorSideTop.Side = asrCenter 229 Left = 834 230 Height = 19 231 Top = 4 232 Width = 158 233 Alignment = taCenter 234 Caption = 'Number of entities to add' 235 Layout = tlCenter 236 ParentColor = False 237 end 238 object BtnAdd3DpolyLines: TButton 239 AnchorSideLeft.Control = Splitter1 240 AnchorSideLeft.Side = asrBottom 241 AnchorSideRight.Control = Owner 242 AnchorSideRight.Side = asrBottom 243 Left = 834 244 Height = 31 245 Top = 152 246 Width = 272 247 Anchors = [akTop, akLeft, akRight] 248 Caption = 'Add 3DPolyLines' 249 OnClick = BtnAdd3DpolyLinesClick 250 TabOrder = 12 251 end 252 object BtnAddLWPolyLines1: TButton 253 AnchorSideLeft.Control = Splitter1 254 AnchorSideLeft.Side = asrBottom 255 AnchorSideRight.Control = Owner 256 AnchorSideRight.Side = asrBottom 257 Left = 834 258 Height = 31 259 Top = 184 260 Width = 272 261 Anchors = [akTop, akLeft, akRight] 262 Caption = 'Add LWPolyLines' 263 OnClick = BtnAddLWPolylines1Click 264 TabOrder = 13 265 end 266 object ChkBox3D: TCheckBox 267 AnchorSideLeft.Control = Splitter1 268 AnchorSideLeft.Side = asrBottom 269 Left = 834 270 Height = 23 271 Top = 595 272 Width = 124 273 Caption = '3D(ZCoord<>0)' 274 TabOrder = 14 275 end 276 object BtnProcessObjects: TButton 277 AnchorSideLeft.Control = Splitter1 278 AnchorSideLeft.Side = asrBottom 279 AnchorSideRight.Control = Owner 280 AnchorSideRight.Side = asrBottom 281 Left = 834 282 Height = 32 283 Top = 288 284 Width = 272 285 Anchors = [akTop, akLeft, akRight] 286 Caption = 'Process Lines' 287 OnClick = BtnProcessObjectsClick 288 TabOrder = 15 289 end 290 object BtnProcessObjects1: TButton 291 AnchorSideLeft.Control = Splitter1 292 AnchorSideLeft.Side = asrBottom 293 AnchorSideRight.Control = Owner 294 AnchorSideRight.Side = asrBottom 295 Left = 834 296 Height = 32 297 Top = 320 298 Width = 272 299 Anchors = [akTop, akLeft, akRight] 300 Caption = 'Off entity layer' 301 OnClick = OffEntLayerClick 302 TabOrder = 16 303 end 304 object BtnProcessObjects2: TButton 305 AnchorSideLeft.Control = Splitter1 306 AnchorSideLeft.Side = asrBottom 307 AnchorSideRight.Control = Owner 308 AnchorSideRight.Side = asrBottom 309 Left = 834 310 Height = 32 311 Top = 352 312 Width = 272 313 Anchors = [akTop, akLeft, akRight] 314 Caption = 'On all layer' 315 OnClick = OnAllLayerClick 316 TabOrder = 17 317 end 318 object Memo1: TMemo 319 AnchorSideLeft.Control = Splitter1 320 AnchorSideLeft.Side = asrBottom 321 AnchorSideTop.Control = BtnRebuild 322 AnchorSideTop.Side = asrBottom 323 AnchorSideRight.Control = Owner 324 AnchorSideRight.Side = asrBottom 325 AnchorSideBottom.Control = Owner 326 AnchorSideBottom.Side = asrBottom 327 Left = 834 328 Height = 255 329 Top = 637 330 Width = 272 331 Anchors = [akTop, akLeft, akRight, akBottom] 332 TabOrder = 18 333 end 334 object BtnAdd3DFaces: TButton 335 AnchorSideLeft.Control = Splitter1 336 AnchorSideLeft.Side = asrBottom 337 AnchorSideRight.Control = Owner 338 AnchorSideRight.Side = asrBottom 339 Left = 834 340 Height = 31 341 Top = 216 342 Width = 272 343 Anchors = [akTop, akLeft, akRight] 344 Caption = 'Add 3DFaces' 345 OnClick = BtnAdd3DFaces1Click 346 TabOrder = 19 347 end 348 object BtnAddCircles1: TButton 349 AnchorSideLeft.Control = Splitter1 350 AnchorSideLeft.Side = asrBottom 351 AnchorSideRight.Control = Owner 352 AnchorSideRight.Side = asrBottom 353 Left = 834 354 Height = 33 355 Top = 88 356 Width = 272 357 Anchors = [akTop, akLeft, akRight] 358 Caption = 'Add arcs' 359 OnClick = BtnAddArcsClick 360 TabOrder = 20 361 end 362 object ComboBox1: TComboBox 363 AnchorSideLeft.Control = Splitter1 364 AnchorSideLeft.Side = asrBottom 365 AnchorSideRight.Control = Owner 366 AnchorSideRight.Side = asrBottom 367 Left = 834 368 Height = 27 369 Top = 456 370 Width = 272 371 Anchors = [akTop, akLeft, akRight] 372 ItemHeight = 19 373 ItemIndex = 0 374 Items.Strings = ( 375 'OpenGL' 376 'GDI' 377 ) 378 Style = csDropDownList 379 TabOrder = 21 380 Text = 'OpenGL' 381 end 382 object BtnAdd3DFaces1: TButton 383 AnchorSideLeft.Control = Splitter1 384 AnchorSideLeft.Side = asrBottom 385 AnchorSideRight.Control = Owner 386 AnchorSideRight.Side = asrBottom 387 Left = 834 388 Height = 31 389 Top = 248 390 Width = 272 391 Anchors = [akTop, akLeft, akRight] 392 Caption = 'Add splines' 393 OnClick = BtnAddSplines1Click 394 TabOrder = 22 395 end 396 object OpenDialog1: TOpenDialog 397 DefaultExt = '.dxf' 398 Filter = 'DXF File|*.dxf' 399 left = 878 400 top = 488 401 end 402 object SaveDialog1: TSaveDialog 403 Filter = 'DXF file|*.dxf' 404 left = 934 405 top = 488 406 end 407end 408