?? rm_const1.pas
字號:
unit RM_Const1;
interface
uses
Graphics;
const
RMCurrentVersion = 43; // this is current version (2.6)
RMCurrentVersionStr = 'Version 2.6 (Build 2002.08.26)';
RMInchPerMM: Single = 0.03937;
RMFormatNumCount = 4;
RMFormatDateCount = 7;
RMFormatTimeCount = 4;
RMFormatBooleanCount = 4;
RMSpecCount = 10;
RMSpecFuncs: array[0..RMSpecCount - 1] of string =
('Page#', 'ApplicationPath#', 'Date', 'Time', 'DateTime#', 'Line#', 'LineThough#', 'Column#',
'Current#', 'TotalPages');
RMColors: array[0..41] of TColor =
(clWhite, clBlack, clMaroon, clGreen, clOlive, clNavy, clPurple, clTeal,
clGray, clSilver, clRed, clLime, clYellow, clBlue, clFuchsia,
clAqua, clNone,
clScrollBar, clBackground, clActiveCaption, clInactiveCaption,
clMenu, clWindow, clWindowFrame, clMenuText, clWindowText,
clCaptionText, clActiveBorder, clInactiveBorder, clAppWorkSpace,
clHighlight, clHighlightText, clBtnFace, clBtnShadow, clGrayText,
clBtnText, clInactiveCaptionText, clBtnHighlight, cl3DDkShadow,
cl3DLight, clInfoText, clInfoBk);
RMColorNames: array[0..41] of string =
('clWhite', 'clBlack', 'clMaroon', 'clGreen', 'clOlive', 'clNavy',
'clPurple', 'clTeal', 'clGray', 'clSilver', 'clRed', 'clLime',
'clYellow', 'clBlue', 'clFuchsia', 'clAqua', 'clTransparent',
'clScrollBar', 'clBackground', 'clActiveCaption', 'clInactiveCaption',
'clMenu', 'clWindow', 'clWindowFrame', 'clMenuText', 'clWindowText',
'clCaptionText', 'clActiveBorder', 'clInactiveBorder', 'clAppWorkSpace',
'clHighlight', 'clHighlightText', 'clBtnFace', 'clBtnShadow', 'clGrayText',
'clBtnText', 'clInactiveCaptionText', 'clBtnHighlight', 'cl3DDkShadow',
'cl3DLight', 'clInfoText', 'clInfoBk');
RMDefaultFontSizeStr: array[0..31] of string = (
'初號', '小初', '一號', '小一', '二號', '小二', '三號', '小三', '四號', '小四', '五號',
'小五', '六號', '5', '6', '7', '8', '9', '10', '11', '12', '14', '16', '18', '20',
'22', '24', '26', '28', '36', '48', '72');
RMDefaultFontSize: array[0..12] of byte = (42, 36, 26, 24, 22, 18, 16, 15, 14, 12, 11, 9,
8);
const
rsToolBar = 'ToolBar\';
rsForm = 'Form\';
rsWidth = 'Width';
rsHeight = 'Height';
rsTop = 'Top';
rsLeft = 'Left';
rsVisible = 'isVisible';
rsX = 'XPosition';
rsY = 'YPosition';
rsDockName = 'DockName';
rsDocked = 'Docked';
rsWindowState = 'WindowState';
rsMaximized = 'Maximized';
rsLocalPropNames = 'LocalPropNames';
rsUseTableName = 'UseTableName';
rsOpenFiles = 'Last Open Files';
var
RMIsChineseGB: Boolean;
implementation
uses RM_Const, RM_Utils;
initialization
RMIsChineseGB := RMLoadStr(SRMIsChineseGB) = '1';
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -