📄 uformview.pas
字号:
//-----------------------------------------------------
{$I ATViewerOptions.inc} //ATViewer options.
{$I ATStreamSearchOptions.inc} //ATStreamSearch options.
{$I Compilers.inc} //Compilers defines.
{$I ViewerOptions.inc} //UV options.
unit UFormView;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Menus, ComCtrls, ImgList, IniFiles,
TntClasses, TntForms, TntDialogs,
ATBinHex, ATViewer, ATxCodepages, WLXProc,
ATxNextFile, ATxToolbarList, ATxUserTools, ATxIniFile,
{$ifdef PRO}
{$I Pro\ClassUses1.inc}
{$endif}
UFormViewToolList,
ToolWin, VistaAltFixUnit;
const
cViewerVersion = '3.9.1';
cViewerDate = '16 mar 2009';
const
cToolbarListDefault =
'FileOpen FileSaveAs Sep ' +
'FileRename FileDelete Sep ' +
'FilePrev FileNext Sep ' +
'EditCopy EditFind EditFindNext Sep ' +
{$ifdef PRO} 'ViewShowNav ' + {$endif}
'ViewModeMenu ViewImageFit ViewFullScreen Sep ' +
'ViewZoomIn ViewZoomOut ViewZoomOriginal Sep ' +
'OptionsConfigure OptionsPlugins Sep ' +
'UserTool1 UserTool2 UserTool3 UserTool4';
type
TRecentMenus = array[0 .. 9] of TMenuItem;
TPluginsList = array[1 .. WlxPluginsMaxCount] of record
FFileName: TWlxFilename;
FDetectStr: string;
FEnabled: boolean;
end;
TViewerGotoMode = (
vgPercent,
vgLine,
vgHex,
vgDec,
vgSelStart,
vgSelEnd);
type
TFormViewUV = class(TTntForm)
MainMenu1: TMainMenu;
mnuFile: TMenuItem;
mnuView: TMenuItem;
mnuFileExit: TMenuItem;
mnuSep: TMenuItem;
mnuFileOpen: TMenuItem;
N2: TMenuItem;
mnuViewTextOEM: TMenuItem;
mnuViewTextANSI: TMenuItem;
mnuViewTextWrap: TMenuItem;
mnuViewImageFit: TMenuItem;
mnuEdit: TMenuItem;
mnuEditFind: TMenuItem;
mnuEditFindNext: TMenuItem;
N4: TMenuItem;
mnuEditCopy: TMenuItem;
mnuEditSelectAll: TMenuItem;
mnuFileClose: TMenuItem;
mnuHelp: TMenuItem;
mnuHelpAbout: TMenuItem;
mnuViewWebOffline: TMenuItem;
N5: TMenuItem;
mnuFilePrint: TMenuItem;
mnuFilePrintSetup: TMenuItem;
mnuFilePrintPreview: TMenuItem;
N6: TMenuItem;
mnuOptionsConfigure: TMenuItem;
mnuFileReload: TMenuItem;
mnuFileSaveAs: TMenuItem;
N7: TMenuItem;
mnuEditGoto: TMenuItem;
N8: TMenuItem;
mnuFilePrev: TMenuItem;
mnuFileNext: TMenuItem;
mnuOptionsPlugins: TMenuItem;
mnuEditCopyHex: TMenuItem;
ImageList1: TImageList;
mnuViewAlwaysOnTop: TMenuItem;
mnuViewFullScreen: TMenuItem;
mnuOptions: TMenuItem;
mnuFileOpenRecent: TMenuItem;
mnuRecent0: TMenuItem;
mnuRecent1: TMenuItem;
mnuRecent2: TMenuItem;
mnuRecent3: TMenuItem;
mnuRecent4: TMenuItem;
mnuRecent5: TMenuItem;
mnuRecent6: TMenuItem;
mnuRecent7: TMenuItem;
mnuRecent8: TMenuItem;
mnuRecent9: TMenuItem;
N9: TMenuItem;
mnuRecentClear: TMenuItem;
MenuRecents: TPopupMenu;
mnuBarRecent0: TMenuItem;
mnuBarRecent1: TMenuItem;
mnuBarRecent2: TMenuItem;
mnuBarRecent3: TMenuItem;
mnuBarRecent4: TMenuItem;
mnuBarRecent5: TMenuItem;
mnuBarRecent6: TMenuItem;
mnuBarRecent7: TMenuItem;
mnuBarRecent8: TMenuItem;
mnuBarRecent9: TMenuItem;
mnuViewMode8: TMenuItem;
mnuViewMode7: TMenuItem;
mnuViewMode6: TMenuItem;
mnuViewMode5: TMenuItem;
mnuViewMode4: TMenuItem;
mnuViewMode3: TMenuItem;
mnuViewMode2: TMenuItem;
mnuViewMode1: TMenuItem;
mnuViewImageMenu: TMenuItem;
ToolBarMain: TToolBar;
ToolButton4: TToolButton;
mnuUserTool1: TMenuItem;
mnuUserTool2: TMenuItem;
mnuUserTool3: TMenuItem;
mnuUserTool4: TMenuItem;
mnuUserTool5: TMenuItem;
mnuUserTool6: TMenuItem;
mnuUserTool7: TMenuItem;
mnuUserTool8: TMenuItem;
MenuToolbar: TPopupMenu;
mnuToolbarCustomize: TMenuItem;
N1: TMenuItem;
mnuOptionsToolbar: TMenuItem;
mnuViewImageGrayscale: TMenuItem;
mnuViewImageRotateLeft: TMenuItem;
mnuViewImageRotateRight: TMenuItem;
mnuViewTextMenu: TMenuItem;
N3: TMenuItem;
mnuViewWebMenu: TMenuItem;
N12: TMenuItem;
mnuViewWebGoBack: TMenuItem;
mnuViewWebGoForward: TMenuItem;
mnuViewImageFitOnlyBig: TMenuItem;
N13: TMenuItem;
mnuHelpWebMenu: TMenuItem;
mnuHelpWebHomepage: TMenuItem;
mnuHelpWebEmail: TMenuItem;
N14: TMenuItem;
mnuFileDelete: TMenuItem;
mnuOptionsUserTools: TMenuItem;
N15: TMenuItem;
mnuViewImageShowLabel: TMenuItem;
mnuTools: TMenuItem;
mnuViewImageCenter: TMenuItem;
TimerShow: TTimer;
mnuViewInterfaceMenu: TMenuItem;
mnuViewShowMenu: TMenuItem;
mnuViewShowToolbar: TMenuItem;
mnuViewShowStatusbar: TMenuItem;
N16: TMenuItem;
mnuOptionsAdvanced: TMenuItem;
mnuOptionsEditIni: TMenuItem;
mnuViewZoomMenu: TMenuItem;
mnuViewZoomOut: TMenuItem;
mnuViewZoomIn: TMenuItem;
mnuViewZoomOriginal: TMenuItem;
mnuViewImageFitWindow: TMenuItem;
MenuImage: TPopupMenu;
mnuImageFit: TMenuItem;
mnuImageFitOnlyBig: TMenuItem;
mnuImageCenter: TMenuItem;
N17: TMenuItem;
mnuImageFitWindow: TMenuItem;
N18: TMenuItem;
mnuImageRotateRight: TMenuItem;
mnuImageRotateLeft: TMenuItem;
mnuImageGrayscale: TMenuItem;
mnuImageShowLabel: TMenuItem;
N20: TMenuItem;
mnuViewShowNav: TMenuItem;
mnuHelpWebPlugins: TMenuItem;
mnuViewNavMenu: TMenuItem;
mnuViewNavList: TMenuItem;
mnuViewNavDetails: TMenuItem;
mnuViewNavIcons: TMenuItem;
mnuViewNavThumb: TMenuItem;
MenuNavPanel: TPopupMenu;
mnuNavPanelIcons: TMenuItem;
mnuNavPanelList: TMenuItem;
mnuNavPanelDetails: TMenuItem;
mnuNavPanelThumbs: TMenuItem;
ViewerPanel: TPanel;
Viewer: TATViewer;
StatusBar1: TStatusBar;
mnuViewMediaPlayPause: TMenuItem;
mnuViewMediaVolumeUp: TMenuItem;
mnuViewMediaVolumeDown: TMenuItem;
mnuViewMediaVolumeMute: TMenuItem;
N10: TMenuItem;
mnuViewNavHorizTree: TMenuItem;
N23: TMenuItem;
mnuNavHorizTree: TMenuItem;
mnuOptionsEditIniHistory: TMenuItem;
N24: TMenuItem;
mnuFileRename: TMenuItem;
mnuHelpContents: TMenuItem;
mnuFileCopy: TMenuItem;
mnuFileMove: TMenuItem;
mnuHelpRegisterSep: TMenuItem;
mnuHelpRegister: TMenuItem;
mnuOptionsSavePos: TMenuItem;
mnuFileProp: TMenuItem;
mnuViewImageNegative: TMenuItem;
mnuViewImageFlipVert: TMenuItem;
mnuViewImageFlipHorz: TMenuItem;
mnuImageFlipHorz: TMenuItem;
mnuImageFlipVert: TMenuItem;
mnuImageNegative: TMenuItem;
mnuViewTextKOI8: TMenuItem;
mnuViewTextEBCDIC: TMenuItem;
mnuViewTextMac: TMenuItem;
mnuViewTextEncSubmenu: TMenuItem;
mnuViewTextEncMenu: TMenuItem;
N19: TMenuItem;
mnuViewTextEncNext: TMenuItem;
mnuViewTextEncPrev: TMenuItem;
N21: TMenuItem;
mnuViewTextISO: TMenuItem;
mnuViewTextNonPrint: TMenuItem;
mnuViewTextTail: TMenuItem;
mnuEditCopyToFile: TMenuItem;
mnuEditFindPrev: TMenuItem;
ImageListS: TImageList;
mnuViewImageShowEXIF: TMenuItem;
mnuImageShowEXIF: TMenuItem;
mnuViewMediaEffect: TMenuItem;
mnuViewMediaPlayback: TMenuItem;
N11: TMenuItem;
mnuViewMediaLoop: TMenuItem;
mnuEditPaste: TMenuItem;
N22: TMenuItem;
mnuFileEmail: TMenuItem;
MenuModes: TPopupMenu;
mnuModes1: TMenuItem;
mnuModes2: TMenuItem;
mnuModes3: TMenuItem;
mnuModes4: TMenuItem;
mnuModes5: TMenuItem;
mnuModes6: TMenuItem;
mnuModes7: TMenuItem;
mnuModes8: TMenuItem;
mnuViewModeMenu: TMenuItem;
mnuFileCopyFN: TMenuItem;
N25: TMenuItem;
mnuBarRecentClear: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure mnuFileExitClick(Sender: TObject);
procedure mnuFileOpenClick(Sender: TObject);
procedure mnuViewMode3Click(Sender: TObject);
procedure mnuViewMode2Click(Sender: TObject);
procedure mnuViewMode1Click(Sender: TObject);
procedure mnuViewMode4Click(Sender: TObject);
procedure mnuViewMode6Click(Sender: TObject);
procedure mnuViewTextOEMClick(Sender: TObject);
procedure mnuViewTextANSIClick(Sender: TObject);
procedure mnuViewTextWrapClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure mnuViewImageFitClick(Sender: TObject);
procedure mnuEditFindClick(Sender: TObject);
procedure mnuEditFindNextClick(Sender: TObject);
procedure mnuEditCopyClick(Sender: TObject);
procedure mnuEditSelectAllClick(Sender: TObject);
procedure mnuFileCloseClick(Sender: TObject);
procedure mnuHelpAboutClick(Sender: TObject);
procedure mnuViewMode5Click(Sender: TObject);
procedure mnuViewWebOfflineClick(Sender: TObject);
procedure mnuFilePrintClick(Sender: TObject);
procedure mnuFilePrintPreviewClick(Sender: TObject);
procedure mnuFilePrintSetupClick(Sender: TObject);
procedure mnuOptionsConfigureClick(Sender: TObject);
procedure mnuFileReloadClick(Sender: TObject);
procedure mnuFileSaveAsClick(Sender: TObject);
procedure mnuEditGotoClick(Sender: TObject);
procedure mnuFilePrevClick(Sender: TObject);
procedure mnuFileNextClick(Sender: TObject);
procedure mnuViewMode7Click(Sender: TObject);
procedure TntFormResize(Sender: TObject);
procedure mnuOptionsPluginsClick(Sender: TObject);
procedure WMDropFiles(var Message: TWMDROPFILES); message WM_DROPFILES;
procedure mnuEditCopyHexClick(Sender: TObject);
procedure mnuViewMode8Click(Sender: TObject);
procedure mnuViewAlwaysOnTopClick(Sender: TObject);
procedure mnuViewFullScreenClick(Sender: TObject);
procedure mnuRecent0Click(Sender: TObject);
procedure mnuRecentClearClick(Sender: TObject);
procedure btnImageRotate90Click(Sender: TObject);
procedure btnImageRotate270Click(Sender: TObject);
procedure btnImageNegativeClick(Sender: TObject);
procedure TntFormClose(Sender: TObject; var Action: TCloseAction);
procedure mnuToolbarCustomizeClick(Sender: TObject);
procedure mnuViewImageGrayscaleClick(Sender: TObject);
procedure mnuViewWebGoBackClick(Sender: TObject);
procedure mnuViewWebGoForwardClick(Sender: TObject);
procedure mnuViewImageFitOnlyBigClick(Sender: TObject);
procedure mnuHelpWebHomepageClick(Sender: TObject);
procedure mnuHelpWebEmailClick(Sender: TObject);
procedure mnuFileDeleteClick(Sender: TObject);
procedure mnuOptionsUserToolsClick(Sender: TObject);
procedure ViewerTextFileReload(Sender: TObject);
procedure ViewerMediaPlaybackEnd(Sender: TObject);
procedure ViewerPluginsAfterLoading(const APluginName: String);
procedure ViewerPluginsBeforeLoading(const APluginName: String);
procedure mnuViewImageShowLabelClick(Sender: TObject);
procedure mnuViewImageCenterClick(Sender: TObject);
procedure TimerShowTimer(Sender: TObject);
procedure mnuViewShowMenuClick(Sender: TObject);
procedure mnuViewShowToolbarClick(Sender: TObject);
procedure mnuViewShowStatusbarClick(Sender: TObject);
procedure mnuOptionsEditIniClick(Sender: TObject);
procedure mnuViewZoomInClick(Sender: TObject);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -