File: unit1.lfm

package info (click to toggle)
lazarus 0.9.28.2-12
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 93,096 kB
  • ctags: 89,312
  • sloc: pascal: 820,189; xml: 202,194; makefile: 110,323; sh: 2,460; perl: 395; sql: 174; ansic: 133
file content (41 lines) | stat: -rw-r--r-- 904 bytes parent folder | download | duplicates (6)
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
object Form1: TForm1
  Left = 299
  Height = 353
  Top = 155
  Width = 701
  HorzScrollBar.Page = 700
  VertScrollBar.Page = 352
  ActiveControl = Memo1
  AllowDropFiles = True
  Caption = 'On Drop Files event example'
  ClientHeight = 353
  ClientWidth = 701
  OnDropFiles = FormDropFiles
  object Label1: TLabel
    Left = 13
    Height = 14
    Top = 18
    Width = 296
    Caption = 'Drag and drop files on this form and see the results in memo. '
    ParentColor = False
  end
  object Memo1: TMemo
    Left = 12
    Height = 287
    Top = 48
    Width = 666
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object ApplicationProperties1: TApplicationProperties
    CaptureExceptions = True
    HintColor = clInfoBk
    HintHidePause = 2500
    HintPause = 500
    HintShortCuts = True
    ShowHint = True
    OnDropFiles = ApplicationProperties1DropFiles
    left = 126
    top = 300
  end
end