home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / imagelib / uimage.df_ / uimage.df / uimage.txt
Encoding:
Text File  |  1995-11-19  |  14.6 KB  |  678 lines
  1. object ViewImageForm: TViewImageForm
  2.   Left = 6
  3.   Top = 25
  4.   Width = 629
  5.   Height = 435
  6.   ActiveControl = DirectoryListBox1
  7.   Caption = 'Imagelib user'#39's example'
  8.   Font.Color = clBlack
  9.   Font.Height = -12
  10.   Font.Name = 'Times New Roman'
  11.   Font.Style = []
  12.   Menu = MainMenu1
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   OnCreate = FormCreate
  16.   OnDestroy = FormDestroy
  17.   TextHeight = 15
  18.   object QualityLabel: TLabel
  19.     Left = 308
  20.     Top = 296
  21.     Width = 81
  22.     Height = 13
  23.     Caption = 'JPG Quality save'
  24.     Font.Color = clBlack
  25.     Font.Height = -11
  26.     Font.Name = 'MS Sans Serif'
  27.     Font.Style = []
  28.     ParentFont = False
  29.   end
  30.   object SmoothLabel: TLabel
  31.     Left = 308
  32.     Top = 364
  33.     Width = 85
  34.     Height = 13
  35.     Caption = 'JPG Smooth save'
  36.     Font.Color = clBlack
  37.     Font.Height = -11
  38.     Font.Name = 'MS Sans Serif'
  39.     Font.Style = []
  40.     ParentFont = False
  41.   end
  42.   object Gauge1: TGauge
  43.     Left = 207
  44.     Top = 270
  45.     Width = 314
  46.     Height = 13
  47.     BorderStyle = bsNone
  48.     ForeColor = clRed
  49.     BackColor = clBtnFace
  50.     Progress = 0
  51.   end
  52.   object Label9: TLabel
  53.     Left = 536
  54.     Top = -2
  55.     Width = 30
  56.     Height = 15
  57.     AutoSize = False
  58.     Caption = 'Width'
  59.   end
  60.   object Label10: TLabel
  61.     Left = 536
  62.     Top = 30
  63.     Width = 32
  64.     Height = 15
  65.     AutoSize = False
  66.     Caption = 'Height'
  67.   end
  68.   object Label11: TLabel
  69.     Left = 536
  70.     Top = 62
  71.     Width = 65
  72.     Height = 15
  73.     AutoSize = False
  74.     Caption = 'Bits per pixel'
  75.   end
  76.   object Label12: TLabel
  77.     Left = 536
  78.     Top = 97
  79.     Width = 31
  80.     Height = 15
  81.     AutoSize = False
  82.     Caption = 'Planes'
  83.   end
  84.   object Label13: TLabel
  85.     Left = 536
  86.     Top = 130
  87.     Width = 32
  88.     Height = 15
  89.     AutoSize = False
  90.     Caption = 'Colors'
  91.   end
  92.   object Label14: TLabel
  93.     Left = 536
  94.     Top = 163
  95.     Width = 27
  96.     Height = 15
  97.     AutoSize = False
  98.     Caption = 'Type'
  99.   end
  100.   object Label15: TLabel
  101.     Left = 536
  102.     Top = 197
  103.     Width = 64
  104.     Height = 15
  105.     AutoSize = False
  106.     Caption = 'Compression'
  107.   end
  108.   object Label8: TLabel
  109.     Left = 536
  110.     Top = 232
  111.     Width = 20
  112.     Height = 15
  113.     Caption = 'Size'
  114.   end
  115.   object DriveComboBox1: TDriveComboBox
  116.     Left = 8
  117.     Top = 239
  118.     Width = 145
  119.     Height = 21
  120.     Color = clTeal
  121.     TabOrder = 0
  122.     OnChange = DriveComboBox1Change
  123.   end
  124.   object DirectoryListBox1: TDirectoryListBox
  125.     Left = 8
  126.     Top = 125
  127.     Width = 145
  128.     Height = 110
  129.     Color = clTeal
  130.     ItemHeight = 16
  131.     TabOrder = 1
  132.     OnChange = DirectoryListBox1Change
  133.   end
  134.   object FileListBox1: TFileListBox
  135.     Left = 8
  136.     Top = 21
  137.     Width = 145
  138.     Height = 97
  139.     Color = clTeal
  140.     ItemHeight = 16
  141.     Mask = '*.gif;*.jpg;*.pcx;*.bmp;*.wmf;*.ico;*.scm;*.png;*.cms'
  142.     ShowGlyphs = True
  143.     TabOrder = 2
  144.     OnChange = FileListBox1Change
  145.   end
  146.   object SaveButton: TBitBtn
  147.     Left = 536
  148.     Top = 297
  149.     Width = 82
  150.     Height = 76
  151.     Caption = 'Save'
  152.     Font.Color = clBlack
  153.     Font.Height = -11
  154.     Font.Name = 'MS Sans Serif'
  155.     Font.Style = []
  156.     ParentFont = False
  157.     TabOrder = 3
  158.     OnClick = SaveButtonClick
  159.     Glyph.Data = {
  160.       78010000424D7801000000000000760000002800000020000000100000000100
  161.       04000000000000000000120B0000120B00000000000000000000000000000000
  162.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  163.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
  164.       033333FFFF77777773F330000077777770333777773FFFFFF733077777000000
  165.       03337F3F3F777777733F0797A770003333007F737337773F3377077777778803
  166.       30807F333333337FF73707888887880007707F3FFFF333777F37070000878807
  167.       07807F777733337F7F3707888887880808807F333333337F7F37077777778800
  168.       08807F333FFF337773F7088800088803308073FF777FFF733737300008000033
  169.       33003777737777333377333080333333333333F7373333333333300803333333
  170.       33333773733333333333088033333333333373F7F33333333333308033333333
  171.       33333737333333333333330333333333333333733333333333330000}
  172.     Layout = blGlyphTop
  173.     NumGlyphs = 2
  174.     Style = bsNew
  175.   end
  176.   object QualitySpin: TSpinEdit
  177.     Left = 324
  178.     Top = 314
  179.     Width = 49
  180.     Height = 24
  181.     Hint = '0 to 100 for jpeg saving quality'
  182.     AutoSize = False
  183.     Font.Color = clBlack
  184.     Font.Height = -11
  185.     Font.Name = 'MS Sans Serif'
  186.     Font.Style = []
  187.     MaxValue = 100
  188.     MinValue = 0
  189.     ParentFont = False
  190.     ParentShowHint = False
  191.     ShowHint = True
  192.     TabOrder = 4
  193.     Value = 25
  194.     OnChange = QualitySpinChange
  195.   end
  196.   object Smoothspin: TSpinEdit
  197.     Left = 324
  198.     Top = 336
  199.     Width = 49
  200.     Height = 24
  201.     Hint = '0 to 100 for jpeg smoothing quality'
  202.     AutoSize = False
  203.     Font.Color = clBlack
  204.     Font.Height = -11
  205.     Font.Name = 'MS Sans Serif'
  206.     Font.Style = []
  207.     MaxValue = 100
  208.     MinValue = 0
  209.     ParentFont = False
  210.     ParentShowHint = False
  211.     ShowHint = True
  212.     TabOrder = 5
  213.     Value = 0
  214.     OnChange = SmoothspinChange
  215.   end
  216.   object GroupBox1: TGroupBox
  217.     Left = 164
  218.     Top = 298
  219.     Width = 126
  220.     Height = 72
  221.     Hint = 'Resolution to upscale/downscale the images to be read'
  222.     Caption = 'Read resolution'
  223.     Font.Color = clBlack
  224.     Font.Height = -11
  225.     Font.Name = 'MS Sans Serif'
  226.     Font.Style = []
  227.     ParentFont = False
  228.     ParentShowHint = False
  229.     ShowHint = True
  230.     TabOrder = 6
  231.     object res4: TRadioButton
  232.       Left = 8
  233.       Top = 16
  234.       Width = 105
  235.       Height = 17
  236.       Caption = '4 bit (16 colors)'
  237.       ParentShowHint = False
  238.       ShowHint = True
  239.       TabOrder = 0
  240.       OnClick = resClick
  241.     end
  242.     object res24: TRadioButton
  243.       Left = 8
  244.       Top = 53
  245.       Width = 105
  246.       Height = 17
  247.       Caption = '24 bit (true color)'
  248.       TabOrder = 1
  249.       OnClick = resClick
  250.     end
  251.     object res8: TRadioButton
  252.       Left = 8
  253.       Top = 35
  254.       Width = 105
  255.       Height = 17
  256.       Caption = '8 bit (256 colors)'
  257.       Checked = True
  258.       TabOrder = 2
  259.       TabStop = True
  260.       OnClick = resClick
  261.     end
  262.   end
  263.   object Edit1: TEdit
  264.     Left = 536
  265.     Top = 12
  266.     Width = 80
  267.     Height = 19
  268.     AutoSize = False
  269.     Color = clNavy
  270.     Font.Color = clYellow
  271.     Font.Height = -12
  272.     Font.Name = 'Times New Roman'
  273.     Font.Style = []
  274.     ParentFont = False
  275.     ReadOnly = True
  276.     TabOrder = 7
  277.   end
  278.   object Edit2: TEdit
  279.     Left = 536
  280.     Top = 44
  281.     Width = 80
  282.     Height = 19
  283.     AutoSize = False
  284.     Color = clNavy
  285.     Font.Color = clYellow
  286.     Font.Height = -12
  287.     Font.Name = 'Times New Roman'
  288.     Font.Style = []
  289.     ParentFont = False
  290.     ReadOnly = True
  291.     TabOrder = 8
  292.   end
  293.   object Edit3: TEdit
  294.     Left = 536
  295.     Top = 78
  296.     Width = 80
  297.     Height = 19
  298.     AutoSize = False
  299.     Color = clNavy
  300.     Font.Color = clYellow
  301.     Font.Height = -12
  302.     Font.Name = 'Times New Roman'
  303.     Font.Style = []
  304.     ParentFont = False
  305.     ReadOnly = True
  306.     TabOrder = 9
  307.   end
  308.   object Edit4: TEdit
  309.     Left = 536
  310.     Top = 112
  311.     Width = 80
  312.     Height = 19
  313.     AutoSize = False
  314.     Color = clNavy
  315.     Font.Color = clYellow
  316.     Font.Height = -12
  317.     Font.Name = 'Times New Roman'
  318.     Font.Style = []
  319.     ParentFont = False
  320.     ReadOnly = True
  321.     TabOrder = 10
  322.   end
  323.   object Edit5: TEdit
  324.     Left = 536
  325.     Top = 145
  326.     Width = 80
  327.     Height = 19
  328.     AutoSize = False
  329.     Color = clNavy
  330.     Font.Color = clYellow
  331.     Font.Height = -12
  332.     Font.Name = 'Times New Roman'
  333.     Font.Style = []
  334.     ParentFont = False
  335.     ReadOnly = True
  336.     TabOrder = 11
  337.   end
  338.   object Edit6: TEdit
  339.     Left = 536
  340.     Top = 179
  341.     Width = 80
  342.     Height = 19
  343.     AutoSize = False
  344.     Color = clNavy
  345.     Font.Color = clYellow
  346.     Font.Height = -12
  347.     Font.Name = 'Times New Roman'
  348.     Font.Style = []
  349.     ParentFont = False
  350.     ReadOnly = True
  351.     TabOrder = 12
  352.   end
  353.   object Edit7: TEdit
  354.     Left = 536
  355.     Top = 213
  356.     Width = 80
  357.     Height = 19
  358.     AutoSize = False
  359.     Color = clNavy
  360.     Font.Color = clYellow
  361.     Font.Height = -12
  362.     Font.Name = 'Times New Roman'
  363.     Font.Style = []
  364.     ParentFont = False
  365.     ReadOnly = True
  366.     TabOrder = 13
  367.   end
  368.   object Edit8: TEdit
  369.     Left = 536
  370.     Top = 247
  371.     Width = 81
  372.     Height = 19
  373.     AutoSize = False
  374.     Color = clNavy
  375.     Font.Color = clYellow
  376.     Font.Height = -12
  377.     Font.Name = 'Times New Roman'
  378.     Font.Style = []
  379.     ParentFont = False
  380.     ReadOnly = True
  381.     TabOrder = 15
  382.   end
  383.   object GetInfoChecked: TCheckBox
  384.     Left = 536
  385.     Top = 273
  386.     Width = 81
  387.     Height = 17
  388.     Caption = 'Image Info'
  389.     State = cbChecked
  390.     TabOrder = 14
  391.     OnClick = GetInfoCheckedClick
  392.   end
  393.   object CheckBox1: TCheckBox
  394.     Left = 439
  395.     Top = 1
  396.     Width = 82
  397.     Height = 17
  398.     Caption = 'Center Image'
  399.     State = cbChecked
  400.     TabOrder = 16
  401.     OnClick = CheckBox1Click
  402.   end
  403.   object ScrollBar1: TScrollBar
  404.     Left = 180
  405.     Top = 21
  406.     Width = 9
  407.     Height = 238
  408.     Hint = 'Message speed'
  409.     Kind = sbVertical
  410.     Max = 11
  411.     ParentShowHint = False
  412.     Position = 5
  413.     ShowHint = True
  414.     TabOrder = 18
  415.     Visible = False
  416.     OnChange = ScrollBar1Change
  417.   end
  418.   object MultiImage1: TPMultiImage
  419.     Left = 191
  420.     Top = 21
  421.     Width = 320
  422.     Height = 238
  423.     Cursor = crCross
  424.     Center = True
  425.     Color = clBtnFace
  426.     ImageName = 'file not found'
  427.     ImageDither = True
  428.     ImageReadRes = Color256
  429.     ImageWriteRes = Color256
  430.     JPegSaveQuality = 25
  431.     JPegSaveSmooth = 0
  432.     OnClick = MultiImage1Click
  433.     TabOrder = 19
  434.     TabStop = False
  435.   end
  436.   object CheckBox2: TCheckBox
  437.     Left = 204
  438.     Top = 372
  439.     Width = 53
  440.     Height = 17
  441.     Caption = 'Dither'
  442.     State = cbChecked
  443.     TabOrder = 20
  444.     OnClick = CheckBox2Click
  445.   end
  446.   object BitBtn5: TBitBtn
  447.     Left = 8
  448.     Top = 259
  449.     Width = 145
  450.     Height = 21
  451.     Hint = 'Load an Image from a resource'
  452.     Caption = 'Load from resource'
  453.     ParentShowHint = False
  454.     ShowHint = True
  455.     TabOrder = 24
  456.     OnClick = BitBtn5Click
  457.     Style = bsNew
  458.   end
  459.   object BitBtn1: TBitBtn
  460.     Left = 7
  461.     Top = 279
  462.     Width = 146
  463.     Height = 20
  464.     Hint = 'Create a credit message using the message editor'
  465.     Caption = 'Create Scroll Message'
  466.     Font.Color = clBlack
  467.     Font.Height = -11
  468.     Font.Name = 'MS Sans Serif'
  469.     Font.Style = []
  470.     ParentFont = False
  471.     ParentShowHint = False
  472.     ShowHint = True
  473.     TabOrder = 17
  474.     OnClick = BitBtn1Click
  475.     Style = bsNew
  476.   end
  477.   object BitBtn2: TBitBtn
  478.     Left = 7
  479.     Top = 298
  480.     Width = 146
  481.     Height = 21
  482.     Hint = 'Create a scrolling message using the message editor'
  483.     Caption = 'Create Credit Message'
  484.     ParentShowHint = False
  485.     ShowHint = True
  486.     TabOrder = 21
  487.     OnClick = BitBtn2Click
  488.     Style = bsNew
  489.   end
  490.   object BitBtn4: TBitBtn
  491.     Left = 7
  492.     Top = 318
  493.     Width = 146
  494.     Height = 22
  495.     Hint = 'Create a scrolling message on the fly'
  496.     Caption = 'Scrolls on the Fly'
  497.     ParentShowHint = False
  498.     ShowHint = True
  499.     TabOrder = 23
  500.     OnClick = BitBtn4Click
  501.     Style = bsNew
  502.   end
  503.   object BitBtn3: TBitBtn
  504.     Left = 7
  505.     Top = 339
  506.     Width = 146
  507.     Height = 23
  508.     Hint = 'Create a credit message on the fly'
  509.     Caption = 'Credits on the Fly'
  510.     ParentShowHint = False
  511.     ShowHint = True
  512.     TabOrder = 22
  513.     OnClick = BitBtn3Click
  514.     Style = bsNew
  515.   end
  516.   object BitBtn6: TBitBtn
  517.     Left = 8
  518.     Top = 361
  519.     Width = 145
  520.     Height = 23
  521.     Hint = 'Load an Image from the DELPHI.EXE'
  522.     Caption = 'Load delphi resource'
  523.     ParentShowHint = False
  524.     ShowHint = True
  525.     TabOrder = 25
  526.     OnClick = BitBtn6Click
  527.     Style = bsNew
  528.   end
  529.   object GroupBox2: TGroupBox
  530.     Left = 403
  531.     Top = 296
  532.     Width = 126
  533.     Height = 72
  534.     Hint = 'Resolution to upscale/downscale the images to be saved'
  535.     Caption = 'Save resolution'
  536.     Font.Color = clBlack
  537.     Font.Height = -11
  538.     Font.Name = 'MS Sans Serif'
  539.     Font.Style = []
  540.     ParentFont = False
  541.     ParentShowHint = False
  542.     ShowHint = True
  543.     TabOrder = 26
  544.     object SaveRes4: TRadioButton
  545.       Left = 8
  546.       Top = 16
  547.       Width = 105
  548.       Height = 17
  549.       Caption = '4 bit (16 colors)'
  550.       ParentShowHint = False
  551.       ShowHint = True
  552.       TabOrder = 0
  553.       OnClick = SaveResClick
  554.     end
  555.     object SaveRes24: TRadioButton
  556.       Left = 8
  557.       Top = 53
  558.       Width = 105
  559.       Height = 17
  560.       Caption = '24 bit (true color)'
  561.       TabOrder = 1
  562.       OnClick = SaveResClick
  563.     end
  564.     object SaveRes8: TRadioButton
  565.       Left = 8
  566.       Top = 35
  567.       Width = 105
  568.       Height = 17
  569.       Caption = '8 bit (256 colors)'
  570.       Checked = True
  571.       TabOrder = 2
  572.       TabStop = True
  573.       OnClick = SaveResClick
  574.     end
  575.   end
  576.   object CheckBox3: TCheckBox
  577.     Left = 208
  578.     Top = 1
  579.     Width = 113
  580.     Height = 17
  581.     Caption = 'Fit Image (Stretch)'
  582.     TabOrder = 27
  583.     OnClick = SstretchOnOff
  584.   end
  585.   object SaveDialog1: TSaveDialog
  586.     FileEditStyle = fsComboBox
  587.     Filter = 'jpeg|*.jpg|bmp|*.bmp|gif|*.gif|pcx|*.pcx|png|*.png'
  588.     Options = [ofOverwritePrompt]
  589.     Title = 'Save as Jpeg or Bitmap'
  590.     Left = 276
  591.     Top = 20
  592.   end
  593.   object MainMenu1: TMainMenu
  594.     Left = 244
  595.     Top = 20
  596.     object N1: TMenuItem
  597.       Caption = '&File'
  598.       object O1: TMenuItem
  599.         Caption = '&Open'
  600.         OnClick = O1Click
  601.       end
  602.       object N2: TMenuItem
  603.         Caption = '&Save'
  604.         OnClick = SaveButtonClick
  605.       end
  606.       object N3: TMenuItem
  607.         Caption = '-'
  608.       end
  609.       object Print1: TMenuItem
  610.         Caption = '&Print'
  611.         OnClick = Print1Click
  612.       end
  613.       object PrintSetup1: TMenuItem
  614.         Caption = 'Print &Setup'
  615.         OnClick = PrintSetup1Click
  616.       end
  617.       object N5: TMenuItem
  618.         Caption = '-'
  619.       end
  620.       object CreateMessage1: TMenuItem
  621.         Caption = '&Create Scroll Message'
  622.         OnClick = BitBtn1Click
  623.       end
  624.       object CreateCreditMessage1: TMenuItem
  625.         Caption = 'C&reate Credit Message'
  626.         OnClick = BitBtn2Click
  627.       end
  628.       object N4: TMenuItem
  629.         Caption = '-'
  630.       end
  631.       object E1: TMenuItem
  632.         Caption = 'E&xit'
  633.         OnClick = E1Click
  634.       end
  635.     end
  636.     object Edit9: TMenuItem
  637.       Caption = '&Edit'
  638.       object Cut1: TMenuItem
  639.         Caption = '&Cut'
  640.         OnClick = Cut1Click
  641.       end
  642.       object Copy1: TMenuItem
  643.         Caption = 'C&opy'
  644.         OnClick = Copy1Click
  645.       end
  646.       object Paste1: TMenuItem
  647.         Caption = '&Paste'
  648.         OnClick = Paste1Click
  649.       end
  650.     end
  651.     object A1: TMenuItem
  652.       Caption = '&Order && About'
  653.       OnClick = A1Click
  654.     end
  655.   end
  656.   object OpenDialog1: TOpenDialog
  657.     FileEditStyle = fsComboBox
  658.     Filter = 
  659.       'jpeg|*.jpg|bitmap|*.bmp|gif|*.gif|pcx|*.pcx|png|*.png|scroll|*.s' +
  660.       'cm|credit|*.cms|metafile|*.wmf|icon|*.ico|all images|*.jpg;*.bmp' +
  661.       ';*.gif;*.pcx;*.wmf;*.ico;*.png;*.scm;*.cms'
  662.     Options = [ofReadOnly]
  663.     Title = 'Open images'
  664.     Left = 210
  665.     Top = 20
  666.   end
  667.   object PrinterSetupDialog1: TPrinterSetupDialog
  668.     Left = 303
  669.     Top = 20
  670.   end
  671.   object PrintDialog1: TPrintDialog
  672.     Options = [poPageNums, poSelection, poWarning]
  673.     PrintRange = prSelection
  674.     Left = 332
  675.     Top = 20
  676.   end
  677. end
  678.