PC World Komputer 1998 January/Pcwk0198.iso/Zadarmo/FLEXI/FLEXI.EXE/0/RCDATA/TPICFORM/TPICFORM.txt

Text File | 1997-09-30 | 5KB | 206 lines

object PicForm: TPicForm
  Left = 317
  Top = 519
  BorderStyle = bsNone
  ClientHeight = 123
  ClientWidth = 161
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Menu = MainMenu1
  PopupMenu = PopupMenu1
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 161
    Height = 123
    Align = alClient
    AutoSize = True
    Stretch = True
  end
  object PopupMenu1: TPopupMenu
    Left = 88
    Top = 16
    object N111: TMenuItem
      Caption = '1:1'
      ShortCut = 16433
      OnClick = N111Click
    end
    object Other1: TMenuItem
      Caption = 'Other'
      object N511: TMenuItem
        Tag = 500
        Caption = '5:1'
        OnClick = NFactorClick
      end
      object N411: TMenuItem
        Tag = 400
        Caption = '4:1'
        OnClick = NFactorClick
      end
      object N311: TMenuItem
        Tag = 300
        Caption = '3:1'
        OnClick = NFactorClick
      end
      object N211: TMenuItem
        Tag = 200
        Caption = '2:1'
        OnClick = NFactorClick
      end
      object N121: TMenuItem
        Tag = 50
        Caption = '1:2'
        OnClick = NFactorClick
      end
      object N131: TMenuItem
        Tag = 33
        Caption = '1:3'
        OnClick = NFactorClick
      end
      object N141: TMenuItem
        Tag = 25
        Caption = '1:4'
        OnClick = NFactorClick
      end
      object N151: TMenuItem
        Tag = 20
        Caption = '1:5'
        OnClick = NFactorClick
      end
    end
    object Keepratio1: TMenuItem
      Caption = 'Keep ratio'
      Checked = True
      ShortCut = 16466
      OnClick = Keepratio1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Zoomin1: TMenuItem
      Caption = 'Zoom in 50%'
      ShortCut = 16571
      OnClick = Zoomin1Click
    end
    object Zoomout1: TMenuItem
      Caption = 'Zoom out 50%'
      ShortCut = 16573
      OnClick = Zoomout1Click
    end
    object Zoomin101: TMenuItem
      Caption = 'Zoom in 10%'
      ShortCut = 187
      OnClick = Zoomin101Click
    end
    object Zoomout101: TMenuItem
      Caption = 'Zoom out 10%'
      ShortCut = 189
      OnClick = Zoomout101Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Close1: TMenuItem
      Caption = '&Close'
      ShortCut = 27
      OnClick = Close1Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 16
    object Pictures1: TMenuItem
      Caption = '&Pictures'
      GroupIndex = 1
      object N112: TMenuItem
        Caption = '1:1'
        ShortCut = 16433
        OnClick = N111Click
      end
      object Other2: TMenuItem
        Caption = 'Other'
        object N512: TMenuItem
          Tag = 500
          Caption = '5:1'
          OnClick = NFactorClick
        end
        object N412: TMenuItem
          Tag = 400
          Caption = '4:1'
          OnClick = NFactorClick
        end
        object N312: TMenuItem
          Tag = 300
          Caption = '3:1'
          OnClick = NFactorClick
        end
        object N212: TMenuItem
          Tag = 200
          Caption = '2:1'
          OnClick = NFactorClick
        end
        object N122: TMenuItem
          Tag = 50
          Caption = '1:2'
          OnClick = NFactorClick
        end
        object N132: TMenuItem
          Tag = 33
          Caption = '1:3'
          OnClick = NFactorClick
        end
        object N142: TMenuItem
          Tag = 25
          Caption = '1:4'
          OnClick = NFactorClick
        end
        object N152: TMenuItem
          Tag = 20
          Caption = '1:5'
          OnClick = NFactorClick
        end
      end
      object Keepratio2: TMenuItem
        Caption = 'Keep ratio'
        Checked = True
        ShortCut = 16466
        OnClick = Keepratio1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Zoomin501: TMenuItem
        Caption = 'Zoom in 50%'
        ShortCut = 16571
        OnClick = Zoomin1Click
      end
      object Zoomout501: TMenuItem
        Caption = 'Zoom out 50%'
        ShortCut = 16573
        OnClick = Zoomout1Click
      end
      object Zoomin102: TMenuItem
        Caption = 'Zoom in 10%'
        ShortCut = 187
        OnClick = Zoomin101Click
      end
      object Zoomout102: TMenuItem
        Caption = 'Zoom out 10%'
        ShortCut = 189
        OnClick = Zoomout101Click
      end
    end
  end
end