File: mainform.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 (78 lines) | stat: -rw-r--r-- 1,922 bytes parent folder | download | duplicates (9)
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
object JPEGExampleForm: TJPEGExampleForm
  Left = 291
  Height = 416
  Top = 163
  Width = 425
  HorzScrollBar.Page = 424
  VertScrollBar.Page = 415
  Caption = 'Example for JPEG for Lazarus'
  ClientHeight = 416
  ClientWidth = 425
  object ImageGroupBox: TGroupBox
    Height = 336
    Width = 425
    Align = alTop
    Anchors = [akTop, akLeft, akBottom]
    Caption = '...'
    ClientHeight = 318
    ClientWidth = 421
    ParentCtl3D = False
    TabOrder = 0
    object Image1: TImage
      Height = 318
      Width = 421
      Align = alClient
      Proportional = True
      Transparent = False
    end
  end
  object LoadJPEGButton: TButton
    Left = 229
    Height = 25
    Top = 346
    Width = 173
    Anchors = [akLeft, akBottom]
    Caption = 'Load JPEG from file'
    OnClick = LoadJPEGButtonClick
    TabOrder = 1
  end
  object SaveJPEGButton: TButton
    Left = 229
    Height = 25
    Top = 380
    Width = 173
    Anchors = [akLeft, akBottom]
    Caption = 'Save as JPEG to file'
    OnClick = SaveJPEGButtonClick
    TabOrder = 2
  end
  object LoadImageButton: TButton
    Left = 24
    Height = 25
    Top = 346
    Width = 163
    Anchors = [akLeft, akBottom]
    Caption = 'Load Image'
    OnClick = LoadImageButtonClick
    TabOrder = 3
  end
  object SaveImageButton: TButton
    Left = 24
    Height = 25
    Top = 380
    Width = 163
    Anchors = [akLeft, akBottom]
    Caption = 'Save Image'
    OnClick = SaveImageButtonClick
    TabOrder = 4
  end
  object OpenPictureDialog1: TOpenPictureDialog
    left = 117
    top = 112
  end
  object SavePictureDialog1: TSavePictureDialog
    Filter = 'Graphic (*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp)|*.jpg;*.ico;*.ppm;*.pgm;*.pbm;*.png;*.xpm;*.bmp|Joint Picture Expert Group (*.jpg)|*.jpg|Icon (*.ico)|*.ico|Portable PixMap (*.ppm)|*.ppm|Portable GrayMap (*.pgm)|*.pgm|Portable BitMap (*.pbm)|*.pb'
    left = 146
    top = 112
  end
end