object FormVlThumbs: TFormVlThumbs Left = 62 Top = 60 HorzScrollBar.Visible = False VertScrollBar.Visible = False AutoScroll = False Caption = 'vlthumbs' ClientHeight = 504 ClientWidth = 1012 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 OldCreateOrder = False PopupMenu = PopupMenu1 WindowState = wsMaximized OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object kSplitterFiles: TkSplitter Left = 876 Top = 0 Width = 3 Height = 485 Cursor = crHSplit Align = alRight Ini.AutoSave = True end object PanelLeft: TPanel Left = 0 Top = 0 Width = 876 Height = 485 Align = alClient BevelOuter = bvNone Caption = ' ' TabOrder = 0 object PanelHeading: TPanel Left = 0 Top = 0 Width = 876 Height = 33 Align = alTop BevelInner = bvLowered Caption = ' ' TabOrder = 0 object PanelHTMLInner: TPanel Left = 2 Top = 2 Width = 872 Height = 29 Align = alClient BevelOuter = bvNone BorderWidth = 5 Caption = ' ' TabOrder = 0 object EditTitle: TEditPanel Left = 5 Top = 5 Width = 401 Height = 19 Align = alLeft Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Folder title' TabOrder = 0 Ini.AutoSave = True object EditTitleEdit: TEdit Left = 60 Top = 0 Width = 341 Height = 19 TabOrder = 1 end end object ButtonSaveTitle: TOptionButton Left = 406 Top = 5 Width = 75 Height = 19 Action = ActionSaveTitle TabOrder = 1 Align = alLeft end object ButtonMakeHtml: TOptionButton Left = 706 Top = 5 Width = 89 Height = 19 Action = ActionMakeHtml TabOrder = 2 Align = alRight end object ButtonShowHtml: TOptionButton Left = 795 Top = 5 Width = 72 Height = 19 Action = ActionShowHtml TabOrder = 3 Align = alRight end object ButtonMakeSmallerPictures: TOptionButton Left = 616 Top = 5 Width = 90 Height = 19 Action = ActionMakeSmallerPictures TabOrder = 4 Align = alRight end object ButtonMakeThumbs: TOptionButton Left = 541 Top = 5 Width = 75 Height = 19 Action = ActionMakeThumbs TabOrder = 5 Align = alRight end end end object PageControl: TPageControl Left = 0 Top = 33 Width = 876 Height = 452 ActivePage = TabHelp Align = alClient OwnerDraw = True RaggedRight = True TabHeight = 1 TabOrder = 1 TabWidth = 1 object TabHelp: TTabSheet Caption = 'TabHelp' TabVisible = False object PanelHelp: TPanel Left = 0 Top = 0 Width = 868 Height = 442 Align = alClient TabOrder = 0 object PanelHelpButtons: TPanel Left = 1 Top = 1 Width = 866 Height = 40 Align = alTop BevelInner = bvLowered Caption = ' ' TabOrder = 0 object ButtonStartShow: TOptionButton Left = 2 Top = 2 Width = 75 Height = 36 Action = ActionShow TabOrder = 0 Align = alLeft end object ButtonFullScreen: TOptionButton Left = 77 Top = 2 Width = 73 Height = 36 Action = ActionFullScreen TabOrder = 1 Align = alLeft end object ButtonShowThumbs: TOptionButton Left = 150 Top = 2 Width = 73 Height = 36 Action = ActionViewThumbs TabOrder = 2 Align = alLeft end object ButtonLongerHelp: TOptionButton Left = 791 Top = 2 Width = 73 Height = 36 Action = ActionLongerHelp TabOrder = 3 Align = alRight end end object MemoHelp: TMemo Left = 1 Top = 41 Width = 866 Height = 400 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'MS Sans Serif' Font.Style = [] Lines.Strings = ( 'Kuvien n'#228'ytt'#228'minen sarjana' '===========================' '' ' 1) Valitse oikeasta yl'#228'nurkasta kuvasarja josta haluat aloitta' + 'a.' ' 2) Halutessasi voi painaa View Thumbs (F5) pikkukuvien n'#228'ytt'#228'm' + 'iseksi ensin' ' 3) Paina Start show' ' 4) kun haluat lopettaa n'#228'yt'#246'ksen, paina ESC tai hiiren oikeaa' + ' nappia.' '' 'Yksitt'#228'isten kuvien katsominen' '==============================' '' ' Jos et halua katsoa kuvia n'#228'yt'#246'ksen'#228', klikkaa katsottavaa kuva' + 'a' ' oikean reunan listassa.' '' ' Hiiren oikealla napilla saat aina pikamenun.' '' ' Seuraavaan kuvaan p'#228#228'set painamalla v'#228'lily'#246'nti'#228'.' ' Edelliseen kuvaan p'#228#228'sen painalla Ctrl-P.' '' ' Voit vaihtaa kokoruudun tilaan menusta View/Full screen.' ' Kokoruudun tilasta p'#228#228'set pois painamalla ESC.' '' ' Kuvaa voit zoomata isommaksi Ctrl-Z ja pienem'#228'ksi Ctrl-X.' ' Kuvan alkuper'#228'iseen kokoon p'#228#228'set Ctrl-1 ja' ' ruudulle sovitettuun kokoon Ctrl-W.' '' ' Kuvan voit keskitt'#228#228' kursorin kohdalla kaksoisn'#228'p'#228'ytt'#228'm'#228'll'#228' ku' + 'vaa.' '' ' T'#228'm'#228'n avustuksen saat aina n'#228'kyviin painamalla F1 tai menusta ' + 'Help/Help.' ' Pikkukuvat kansiosta n'#228'et aina F5 (View thumbs)') ParentFont = False ReadOnly = True TabOrder = 1 end object PanelOptions: TPanel Left = 48 Top = 56 Width = 185 Height = 209 Caption = ' ' TabOrder = 2 Visible = False object CBViewExifInfo: TCheckBoxIni Left = 1 Top = 1 Width = 183 Height = 17 Action = ActionViewEXIF TabOrder = 0 Ini.AutoSave = True Align = alTop end object CBViewStatusBar: TCheckBoxIni Left = 1 Top = 18 Width = 183 Height = 17 Action = ActionViewStatusbar State = cbChecked TabOrder = 1 Ini.AutoSave = True Align = alTop end object cbFasterMode: TCheckBoxIni Left = 1 Top = 35 Width = 183 Height = 17 Action = ActionFasterLoad State = cbChecked TabOrder = 2 Ini.AutoSave = True Align = alTop end end end end object TabThumbs: TTabSheet Caption = 'TabThumbs' ImageIndex = 1 TabVisible = False end object TabSheet3: TTabSheet Caption = 'TabSheet3' ImageIndex = 2 TabVisible = False end end end object PanelRight: TPanel Left = 879 Top = 0 Width = 133 Height = 485 Align = alRight BevelOuter = bvNone Caption = ' ' TabOrder = 1 object kSplitter1: TkSplitter Left = 0 Top = 97 Width = 133 Height = 3 Cursor = crVSplit Align = alTop Ini.AutoSave = False end object kSplitter2: TkSplitter Left = 0 Top = 393 Width = 133 Height = 3 Cursor = crVSplit Align = alBottom Ini.AutoSave = False end object ListBoxFiles: TListBox Left = 0 Top = 100 Width = 133 Height = 293 Align = alClient ItemHeight = 13 TabOrder = 1 OnClick = ListBoxFilesClick end object ListBoxFolders: TListBox Left = 0 Top = 0 Width = 133 Height = 97 Align = alTop ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = ListBoxFoldersClick end object MemoInfo: TMemo Left = 0 Top = 396 Width = 133 Height = 89 Align = alBottom Lines.Strings = ( '') TabOrder = 2 Visible = False end end object StatusBar: TStatusBar Left = 0 Top = 485 Width = 1012 Height = 19 Panels = < item Width = 250 end item Width = 50 end item Width = 50 end item Width = 50 end item Width = 50 end item Width = 50 end> SimplePanel = False end object SavePos1: TSavePos Ini.AutoSave = True Ini.IniSection = 'Pos' NoPos = False NoSize = False Enabled = True Left = 432 Top = 80 end object MainMenu1: TMainMenu Left = 496 Top = 80 object File1: TMenuItem Caption = '&File' ShortCut = 112 object Changedirectory1: TMenuItem Action = ActionChangeDirectory end object MakeHTML1: TMenuItem Action = ActionMakeHtml end object EditPrint1: TMenuItem Action = ActionEditPrint end object Properties1: TMenuItem Action = ActionProperties end object Exit1: TMenuItem Action = ActionExit end end object Edit1: TMenuItem Caption = '&Edit' object Copy1: TMenuItem Action = ActionEditCopy end end object View1: TMenuItem Caption = '&View' object Showshow1: TMenuItem Action = ActionShow end object StopShow1: TMenuItem Action = ActionStopShow end object FullScreen1: TMenuItem Action = ActionFullScreen end object Next1: TMenuItem Action = ActionNextPicture end object Previouspicture1: TMenuItem Action = ActionPreviousPicture end object N1: TMenuItem Caption = '-' end object N1001: TMenuItem Action = ActionZoom100 end object Zoom1: TMenuItem Action = ActionZoomMiinus end object Zoom2: TMenuItem Action = ActionZoomPlus end object Zoomwidth1: TMenuItem Action = ActionZoomWidth end object N2: TMenuItem Caption = '-' end object ViewThumbs1: TMenuItem Action = ActionViewThumbs end object Showinfo1: TMenuItem Action = ActionShowInfo end object ShowMakeHTML1: TMenuItem Action = ActionShowMakeHTML AutoCheck = True end object Smallermode1: TMenuItem Action = ActionSmallerMode end object Fasterload1: TMenuItem Action = ActionFasterLoad AutoCheck = True end object ShowMode1: TMenuItem Action = ActionShowMode end object N5: TMenuItem Caption = '-' end object ViewEXIFinfo1: TMenuItem Action = ActionViewEXIF AutoCheck = True end object Viewstatusbar1: TMenuItem Action = ActionViewStatusbar AutoCheck = True end end object Help1: TMenuItem Caption = '&Help' object Help2: TMenuItem Action = ActionHelp end object Longerhelp1: TMenuItem Action = ActionLongerHelp end object About1: TMenuItem Caption = '&About...' OnClick = About1Click end end end object ActionListMain: TActionList Left = 464 Top = 80 object ActionZoomPlus: TAction Category = 'zoom' Caption = 'Zoom &+' ShortCut = 16474 OnExecute = ActionZoomPlusExecute end object ActionZoom100: TAction Category = 'zoom' Caption = '100 %' ShortCut = 16433 OnExecute = ActionZoom100Execute end object ActionZoomMiinus: TAction Category = 'zoom' Caption = 'Zoom &-' ShortCut = 16472 OnExecute = ActionZoomMiinusExecute end object ActionNextPicture: TAction Category = 'View' Caption = '&Next' ShortCut = 16462 SecondaryShortCuts.Strings = ( 'Space') OnExecute = ActionNextPictureExecute end object ActionShow: TAction Category = 'View' Caption = '&Start show' ShortCut = 16466 OnExecute = ActionShowExecute end object ActionZoomWidth: TAction Category = 'zoom' Caption = 'Zoom &width' ShortCut = 16471 OnExecute = ActionZoomWidthExecute end object ActionExit: TAction Category = 'File' Caption = 'E&xit' ShortCut = 32856 OnExecute = ActionExitExecute end object ActionProperties: TAction Category = 'File' Caption = '&Properties' Hint = 'Show properties form' ShortCut = 113 OnExecute = ActionPropertiesExecute end object ActionMakeHtml: TAction Category = 'File' Caption = '&Make Html' OnExecute = ActionMakeHtmlExecute end object ActionStopShow: TAction Category = 'View' Caption = 'Stop Show' ShortCut = 27 OnExecute = ActionStopShowExecute end object ActionFullScreen: TAction Category = 'View' Caption = '&Full Screen' Enabled = False Hint = 'Change to full screen mode' ShortCut = 122 SecondaryShortCuts.Strings = ( 'Ctrl+F') OnExecute = ActionFullScreenExecute end object ActionPreviousPicture: TAction Category = 'View' Caption = '&Previous picture' Hint = 'Show previous picture' ShortCut = 16464 OnExecute = ActionPreviousPictureExecute end object ActionEditPrint: TAction Category = 'File' Caption = 'Edit/Print' Hint = 'Run other program to edit/print' OnExecute = ActionEditPrintExecute end object ActionShowMakeHTML: TAction Category = 'View' AutoCheck = True Caption = 'Show Make HTML' OnExecute = ActionShowMakeHTMLExecute end object ActionHelp: TAction Category = 'Help' Caption = '&Help' ShortCut = 112 OnExecute = ActionHelpExecute end object ActionSaveTitle: TAction Caption = 'Save title' OnExecute = ActionSaveTitleExecute end object ActionSmallerMode: TAction Category = 'View' Caption = 'Smaller mode' Hint = 'Change to smaller mode so the picture could be loaded faster' ShortCut = 120 OnExecute = ActionSmallerModeExecute end object ActionShowHtml: TAction Caption = 'Show Html' Hint = 'Show HTML from current folder' OnExecute = ActionShowHtmlExecute end object ActionShowInfo: TAction Category = 'View' Caption = 'Show info...' Hint = 'Show EXIF info from picture' OnExecute = ActionShowInfoExecute end object ActionViewStatusbar: TAction Category = 'View' AutoCheck = True Caption = 'View statusbar' Checked = True OnExecute = ActionViewStatusbarExecute end object ActionViewEXIF: TAction Category = 'View' AutoCheck = True Caption = 'View EXIF-info' Hint = 'View selected EXIF-info ' OnExecute = ActionViewEXIFExecute end object ActionMakeThumbs: TAction Caption = 'Make thumbs' Hint = 'Make thumb size pictures' OnExecute = ActionMakeThumbsExecute end object ActionMakeSmallerPictures: TAction Caption = 'Smaller pictures' Hint = 'Make smaller pictures for HTML' OnExecute = ActionMakeSmallerPicturesExecute end object ActionFasterLoad: TAction Category = 'View' AutoCheck = True Caption = 'Faster load' Checked = True ShortCut = 119 OnExecute = ActionFasterLoadExecute end object ActionScale: TAction Category = 'View' Caption = 'Picture scale' ShortCut = 118 OnExecute = ActionScaleExecute end object ActionViewThumbs: TAction Category = 'View' Caption = 'View &Thumbs' Hint = 'Show small picture from this folder' ShortCut = 116 SecondaryShortCuts.Strings = ( 'Ctrl+T') OnExecute = ActionViewThumbsExecute end object ActionLongerHelp: TAction Category = 'Help' Caption = 'Lon&ger help' Hint = 'Opens a html-help file' OnExecute = ActionLongerHelpExecute end object ActionChangeDirectory: TAction Category = 'File' Caption = 'Change directory' OnExecute = ActionChangeDirectoryExecute end object ActionShowMode: TAction Category = 'View' Caption = 'Show &Mode' Hint = 'Change to show mode, so do not scand folders any more' ShortCut = 114 OnExecute = ActionShowModeExecute end object ActionEditCopy: TAction Caption = 'Copy' Hint = 'Copy filename to clipboard' ShortCut = 16451 OnExecute = ActionEditCopyExecute end object ActionDelete: TAction Caption = 'Delete' Hint = 'Send picture to trash' ShortCut = 46 OnExecute = ActionDeleteExecute end object ActionDeletePermanent: TAction Caption = 'Delete permanent' Hint = 'Delete file peramanent' ShortCut = 16430 OnExecute = ActionDeletePermanentExecute end end object TimerShow: TTimer Enabled = False OnTimer = TimerShowTimer Left = 216 Top = 136 end object PopupMenu1: TPopupMenu Left = 528 Top = 80 object FullScreen2: TMenuItem Action = ActionFullScreen end object Next2: TMenuItem Action = ActionNextPicture end object Previouspicture2: TMenuItem Action = ActionPreviousPicture end object Startshow1: TMenuItem Action = ActionShow end object StopShow2: TMenuItem Action = ActionStopShow end object N4: TMenuItem Caption = '-' end object N1002: TMenuItem Action = ActionZoom100 end object Zoom3: TMenuItem Action = ActionZoomMiinus end object Zoom4: TMenuItem Action = ActionZoomPlus end object Zoomwidth2: TMenuItem Action = ActionZoomWidth end object N3: TMenuItem Caption = '-' end object ViewThumbs2: TMenuItem Action = ActionViewThumbs end object Help3: TMenuItem Action = ActionHelp end object N6: TMenuItem Caption = '-' end object Copy2: TMenuItem Action = ActionEditCopy end end object OpenPictureDialog1: TOpenPictureDialog Left = 312 Top = 96 end end