object TeeKortti: TTeeKortti Left = 195 Top = 135 Width = 416 Height = 542 HorzScrollBar.Visible = False Caption = 'AS Card Maker' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 Position = poScreenCenter OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object KuvaPohja: TImage Left = 1 Top = 1 Width = 390 Height = 1170 Picture.Data = {} end object MustatNro: TImage Left = 408 Top = 168 Width = 13 Height = 234 AutoSize = True Picture.Data = {} Visible = False end object PunasetNro: TImage Left = 440 Top = 168 Width = 13 Height = 234 AutoSize = True Picture.Data = {} Visible = False end object Maat: TImage Left = 464 Top = 168 Width = 13 Height = 72 AutoSize = True Picture.Data = {} Visible = False end object KuvaPohjaKopio: TImage Left = 416 Top = 424 Width = 390 Height = 1170 Visible = False end object MainMenu1: TMainMenu Left = 400 Top = 40 object File1: TMenuItem Caption = 'File' ShortCut = 0 object New1: TMenuItem Caption = 'New' ShortCut = 16462 OnClick = New1Click end object Open1: TMenuItem Caption = 'Open...' ShortCut = 16463 OnClick = Open1Click end object Save1: TMenuItem Caption = 'Save' ShortCut = 16467 OnClick = Save1Click end object SaveAs1: TMenuItem Caption = 'Save As...' ShortCut = 16468 OnClick = SaveAs1Click end object N1: TMenuItem Caption = '-' ShortCut = 0 end object Exit1: TMenuItem Caption = 'Exit' ShortCut = 16472 OnClick = Exit1Click end end object Edit: TMenuItem Caption = 'Edit' ShortCut = 0 object LisaaSymbolit: TMenuItem Caption = 'Add Symbols in Cards' ShortCut = 83 OnClick = LisaaSymbolitClick end object LisaaKuva: TMenuItem Caption = 'Add Card Pictures' ShortCut = 80 OnClick = LisaaKuvaClick end object LisaaSelka: TMenuItem Caption = 'Add Card Back' ShortCut = 66 OnClick = LisaaSelkaClick end object LisaaTyhja: TMenuItem Caption = 'Add Empty Card Space' ShortCut = 69 OnClick = LisaaTyhjaClick end end object About: TMenuItem Caption = 'About' ShortCut = 65 OnClick = AboutClick end end object SaveDialog: TSaveDialog DefaultExt = 'bmp' FileEditStyle = fsEdit Filter = 'Bitmap (*.bmp)|*.bmp' Title = 'Save Card Set' Left = 400 Top = 80 end object OpenDialog: TOpenDialog FileEditStyle = fsEdit Filter = 'Bitmap (*.bmp)|*.bmp' Options = [ofAllowMultiSelect] Title = 'Load Card Pictures' Left = 400 Top = 112 end end