File: imagetest.lfm

package info (click to toggle)
lazarus 2.0.0%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 214,460 kB
  • sloc: pascal: 1,862,622; xml: 265,709; cpp: 56,595; sh: 3,008; java: 609; makefile: 535; perl: 297; sql: 222; ansic: 137
file content (67 lines) | stat: -rw-r--r-- 1,185 bytes parent folder | download | duplicates (10)
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
object frmImage: TfrmImage
  Left = 290
  Height = 381
  Top = 197
  Width = 434
  Caption = 'frmImage'
  ClientHeight = 381
  ClientWidth = 434
  OnCreate = FormCreate
  LCLVersion = '0.9.29'
  object btnSaveJPEG: TButton
    Left = 32
    Height = 25
    Top = 64
    Width = 107
    Caption = 'Save JPEG File'
    OnClick = btnSaveJPEGClick
    TabOrder = 0
  end
  object Label1: TLabel
    Left = 13
    Height = 14
    Top = 20
    Width = 66
    Caption = 'JPEG Quality:'
    ParentColor = False
  end
  object trackJPEG: TTrackBar
    Left = 104
    Height = 25
    Top = 16
    Width = 312
    Max = 100
    Position = 75
    TabOrder = 1
  end
  object MyImage: TImage
    Left = 32
    Height = 100
    Top = 101
    Width = 200
  end
  object btnResize: TButton
    Left = 32
    Height = 25
    Top = 216
    Width = 107
    Caption = 'Resize Bitmap'
    OnClick = btnResizeClick
    TabOrder = 2
  end
  object btnRotate: TButton
    Left = 158
    Height = 25
    Top = 216
    Width = 106
    Caption = 'Rotate Image'
    OnClick = btnRotateClick
    TabOrder = 3
  end
  object imageDepths: TImage
    Left = 32
    Height = 90
    Top = 256
    Width = 200
  end
end