paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 16:58:02 +02:00
Code Issues Packages Projects Releases Wiki Activity
b6b442d4be
fpc/fv/fvconsts.pas
daniel b6b442d4be * Modify constants to match app.pas. 
git-svn-id: trunk@4802 -
2006-10-05 06:58:03 +00:00

643 lines
17 KiB
ObjectPascal
Raw Blame History

{********[ SOURCE FILE OF GRAPHICAL FREE VISION ]**********}
{ }
{ System independent GRAPHICAL clone of DIALOGS.PAS }
{ }
{ Interface Copyright (c) 1992 Borland International }
{ }
{ Copyright (c) 1996, 1997, 1998, 1999 by Leon de Boer }
{ ldeboer@attglobal.net - primary e-mail addr }
{ ldeboer@starwon.com.au - backup e-mail addr }
{ }
{****************[ THIS CODE IS FREEWARE ]*****************}
{ }
{ This sourcecode is released for the purpose to }
{ promote the pascal language on all platforms. You may }
{ redistribute it and/or modify with the following }
{ DISCLAIMER. }
{ }
{ This SOURCE CODE is distributed "AS IS" WITHOUT }
{ WARRANTIES AS TO PERFORMANCE OF MERCHANTABILITY OR }
{ ANY OTHER WARRANTIES WHETHER EXPRESSED OR IMPLIED. }
{ }
{*****************[ SUPPORTED PLATFORMS ]******************}
{ }
{ Only Free Pascal Compiler supported }
{ }
{**********************************************************}
unit FVConsts;
interface
{
The FVConsts unit declares constants for all object type IDs used in the
FreeVision library. They have been moved here for easier management. No
values for views declared in TV 2.0 have been changed from so that original
resource files may still be used.
}
const
{ Views Unit }
idView = 1;
idFrame = 2;
idScrollBar = 3;
idScroller = 4;
idListViewer = 5;
idGroup = 6;
idWindow = 7;
{ Dialogs Unit 10 - ? }
idDialog = 10;
idInputLine = 11;
idButton = 12;
idCluster = 13;
idRadioButtons = 14;
idCheckBoxes = 15;
idListBox = 16;
idStaticText = 17;
idLabel = 18;
idHistory = 19;
idParamText = 20;
idCommandCheckBoxes = 21;
idCommandRadioButtons = 22;
idCommandIcon = 23;
idBrowseButton = 24;
idEditListBox = 25;
idModalInputLine = 26;
idMultiCheckBoxes = 27;
idListDlg = 28;
{ App Unit }
idBackground = 30;
idDesktop = 31;
{ Config Unit }
idConfig = 32;
idMouseDlg = 33;
idVideoDlg = 34;
idClickTester = 35;
{ Menus Unit }
idMenuBar = 40;
idMenuBox = 41;
idStatusLine = 42;
idMenuPopup = 43;
idMenuButton = 44;
{ Objects Unit }
idCollection = 50;
idStringCollection = 51;
idStringList = 52;
idStrListMaker = 52;
idStrCollection = 69;
{ Resource Unit }
idMemStringList = 52;
{ Tabs Unit }
idTab = 55;
{ StdDlg Unit }
idFileInputLine = 60;
idFileCollection = 61;
idFileList = 62;
idFileInfoPane = 63;
idFileDialog = 64;
idDirCollection = 65;
idDirListBox = 66;
idChDirDialog = 67;
idSortedListBox = 68;
idEditChDirDialog = 69;
{ Editors Unit 70 - ? }
idEditor = 70;
idMemo = 71;
idFileEditor = 72;
idIndicator = 73;
idEditWindow = 74;
idEditWindowCollection = 75; { this value may need to be changed }
idEditorEngine = 76;
{ Validate Unit }
idPXPictureValidator = 80;
idFilterValidator = 81;
idRangeValidator = 82;
idStringLookupValidator = 83;
idRealValidator = 84;
idByteValidator = 85;
idIntegerValidator = 86;
idSingleValidator = 87;
idWordValidator = 88;
idDateValidator = 89;
idTimeValidator = 90;
{ Outline Unit }
idOutline = 91;
{ ColorSel Unit }
idColorSelector = 92;
idMonoSelector = 93;
idColorDisplay = 94;
idColorGroupList = 95;
idColorItemList = 96;
idColorDialog = 97;
{ TimedDlg Unit }
idTimedDialog = 98;
idTimedDialogText = 99;
{ Statuses Unit }
idStatus = 300;
idStatusDlg = 301;
idStatusMessageDlg = 302;
idGauge = 303;
idArrowGauge = 304;
idBarGauge = 305;
idPercentGauge = 306;
idSpinnerGauge = 307;
idAppStatus = 308;
idHeapMinAvail = 309;
idHeapMemAvail = 310;
{ FVList Unit }
{ ColorTxt Unit }
idColoredText = 611;
{ InpLong Unit }
idInputLong = 711;
{ ASCIITab Unit }
idTable = 10030;
idReport = 10031;
idASCIIChart = 10032;
{
The FVConsts unit contains all command constants used in the FreeVision
library. They have been extracted from their original units and placed here
for easier maintainence and modification to remove conflicts, such as Borland
created with the cmChangeDir constant in the StdDlg and App units.
}
const
{ App Unit }
cmNew = 30;
cmOpen = 31;
cmSave = 32;
cmSaveAs = 33;
cmSaveAll = 34;
cmSaveDone = 39; {! Needs to match value in app.pas}
cmChangeDir = 35; {!}
cmDosShell = 36; {!}
cmCloseAll = 37;
cmDelete = 38;
cmEdit = 40;
cmAbout = 41;
cmDesktopLoad = 42;
cmDesktopStore = 43;
cmNewDesktop = 44;
cmNewMenuBar = 45;
cmNewStatusLine = 46;
cmNewVideo = 47;
cmTransfer = 48;
cmResizeApp = 49;
cmQuitApp = 57;
cmRecordHistory = 60;
cmGrabDefault = 61;
cmReleaseDefault = 62;
cmHelpContents = 256;
cmHelpIndex = 257;
cmHelpTopic = 258;
cmHelpPrev = 259;
cmHelpUsingHelp = 260;
cmHelpAbout = 261;
cmBrowseDir = 262;
cmBrowseFile = 263;
{ Views Unit }
cmValid = 0;
cmQuit = 1;
cmError = 2;
cmMenu = 3;
cmClose = 4;
cmZoom = 5;
cmResize = 6;
cmNext = 7;
cmPrev = 8;
cmHelp = 9;
cmOK = 10;
cmCancel = 11;
cmYes = 12;
cmNo = 13;
cmDefault = 14;
cmCut = 20;
cmCopy = 21;
cmPaste = 22;
cmUndo = 23;
cmClear = 24;
cmTile = 25;
cmCascade = 26;
cmHide = 27;
cmReceivedFocus = 50;
cmReleasedFocus = 51;
cmCommandSetChanged = 52;
cmScrollBarChanged = 53;
cmScrollBarClicked = 54;
cmSelectWindowNum = 55;
cmListItemSelected = 56;
{ ColorSel Unit }
cmColorForegroundChanged = 71;
cmColorBackgroundChanged = 72;
cmColorSet = 73;
cmNewColorItem = 74;
cmNewColorIndex = 75;
cmSaveColorIndex = 76;
{ StdDlg Unit 800 - ? }
cmFileOpen = 800; { Returned from TFileDialog when Open pressed }
cmFileReplace = 801; { Returned from TFileDialog when Replace pressed }
cmFileClear = 802; { Returned from TFileDialog when Clear pressed }
cmFileInit = 803; { Used by TFileDialog internally }
cmRevert = 805; { Used by TChDirDialog internally }
cmFileFocused = 806; { A new file was focused in the TFileList }
cmFileDoubleClicked = 807; { A file was selected in the TFileList }
{ Config Unit 130-140, 900-999 }
cmConfigMouse = 130; { Mouse command disabled by Init if no mouse }
cmConfigOpen = 900;
cmConfigSave = 901;
cmConfigSaveAs = 902;
cmConfigMenu = 903;
cmConfigColors = 904;
cmConfigVideo = 905;
cmConfigCO80 = 906;
cmConfigBW80 = 907;
cmConfigMono = 908;
cmClock = 909;
cmClockSetFormat = 910;
{ Editors Unit }
cmFind = 82;
cmReplace = 83;
cmSearchAgain = 84;
cmPrint = 85;
cmRedo = 86;
cmJumpLine = 87;
cmWindowList = 88;
cmCharLeft = 500;
cmCharRight = 501;
cmWordLeft = 502;
cmWordRight = 503;
cmLineStart = 504;
cmLineEnd = 505;
cmLineUp = 506;
cmLineDown = 507;
cmPageUp = 508;
cmPageDown = 509;
cmTextStart = 510;
cmTextEnd = 511;
cmNewLine = 512;
cmBackSpace = 513;
cmDelChar = 514;
cmDelWord = 515;
cmDelStart = 516;
cmDelEnd = 517;
cmDelLine = 518;
cmInsMode = 519;
cmStartSelect = 520;
cmHideSelect = 521;
cmEndSelect = 522;
cmIndentMode = 523;
cmUpdateTitle = 524;
cmReformPara = 525;
cmTabKey = 526;
cmInsertLine = 527;
cmScrollUp = 528;
cmScrollDown = 529;
cmHomePage = 530;
cmEndPage = 531;
cmJumpMark0 = 532;
cmJumpMark1 = 533;
cmJumpMark2 = 534;
cmJumpMark3 = 535;
cmJumpMark4 = 536;
cmJumpMark5 = 537;
cmJumpMark6 = 538;
cmJumpMark7 = 539;
cmJumpMark8 = 540;
cmJumpMark9 = 541;
cmReformDoc = 542;
cmSetMark0 = 543;
cmSetMark1 = 544;
cmSetMark2 = 545;
cmSetMark3 = 546;
cmSetMark4 = 547;
cmSetMark5 = 548;
cmSetMark6 = 549;
cmSetMark7 = 550;
cmSetMark8 = 551;
cmSetMark9 = 552;
cmSelectWord = 553;
cmSaveExit = 554;
cmCenterText = 555;
cmSetTabs = 556;
cmRightMargin = 557;
cmWordwrap = 558;
cmBludgeonStats = 559;
cmPrinterSetup = 560;
cmClipboard = 561;
cmSpellCheck = 562;
cmCopyBlock = 563;
cmMoveBlock = 564;
cmDelSelect = 565;
cmIdentBlock = 566;
cmUnidentBlock = 567;
cmFileHistory = 600;
{ Statuses Unit }
cmStatusUpdate = 300; { note - need to set to valid value }
cmStatusDone = 301;
cmStatusPause = 302;
cmStatusResume = 303;
cmCursorChanged = 700;
{
The FVConsts unit declares standard help contexts used in FreeVision. By
placing all help contexts in one unit, duplicate help contexts are more
easily prevented
}
const
hcNoContext = 0;
hcDragging = 1;
hcOk = 2;
hcCancel = 3;
hcEdit = 4;
hcDelete = 5;
hcInsert = 6;
{ App Unit }
hcNew = 65281; hcFileNew = hcNew;
hcOpen = 65282; hcFileOpen = hcOpen;
hcSave = 65283; hcFileSave = hcSave;
hcSaveAs = 65284; hcFileSaveAs = hcSaveAs;
hcSaveAll = 65285; hcFileSaveAll = hcSaveAll;
hcChangeDir = 65286; hcFileChangeDir = hcChangeDir;
hcDosShell = 65287; hcFileDOSShell = hcDosShell;
hcExit = 65288; hcFileExit = hcExit;
hcEditMenu = 65289;
hcHelpMenu = 65291;
hcHelpContents = 65292;
hcHelpIndex = 65293;
hcHelpTopic = 65294;
hcHelpPrev = 65295;
hcHelpUsingHelp = 65296;
hcHelpAbout = 65297;
hcWindowMenu = 65298;
hcUndo = $FF10;
hcCut = $FF11;
hcCopy = $FF12;
hcPaste = $FF13;
hcClear = $FF14;
hcTile = $FF20;
hcCascade = $FF21;
hcCloseAll = $FF22;
hcResize = $FF23;
hcZoom = $FF24;
hcNext = $FF25;
hcPrev = $FF26;
hcClose = $FF27;
hcHide = $FF28;
hcFileMenu = 65320;
hcSearchAndReplace =65325;
{ Editors Unit }
hcFile_Menu = 2100;
{ hcOpen = 2101; }
{ hcNew = 2102; }
{ hcSave = 2103; }
hcSaveDone = 2104;
{ hcSaveAs = 2105; }
{ hcChangeDir = 2106; }
{ hcShellToDos = 2107; }
{ hcExit = 2108; }
hcFile_Menu_Items = hcExit;
hcEdit_Menu = 2200;
{ hcUndo = 2201; }
{ hcCopy = 2202; }
{ hcCut = 2203; }
{ hcPaste = 2204; }
hcClipboard = 2205;
{ hcClear = 2206; }
hcSpellCheck = 2207;
hcEdit_Menu_Items = hcSpellCheck;
hcSearch_Menu = 2300;
hcFind = 2301;
hcReplace = 2302;
hcAgain = 2303;
hcSearch_Menu_Items = hcAgain;
hcWindows_Menu = 2400;
{ hcResize = 2401; }
{ hcZoom = 2402; }
{ hcPrev = 2403; }
{ hcNext = 2404; }
{ hcClose = 2405; }
{ hcTile = 2406; }
{ hcCascade = 2407; }
hcWindows_Menu_Items = hcCascade;
hcDesktop_Menu = 2500;
hcLoadDesktop = 2501;
hcSaveDesktop = 2502;
hcToggleVideo = 2503;
hcDesktop_Menu_Items = hcToggleVideo;
hcMisc_Commands = 2600;
hckbShift = 2601;
hckbCtrl = 2602;
hckbAlt = 2603;
hcMisc_Items = hckbAlt;
hcEditor_Commands = 2700;
hcCursor = 2701;
hcDeleting = 2702;
hcFormatting = 2703;
hcMarking = 2704;
hcMoving = 2705;
hcSaving = 2706;
hcSelecting = 2707;
hcTabbing = 2708;
hcBackSpace = 2709;
hcCenterText = 2710;
hcCharLeft = 2711;
hcCharRight = 2712;
hcDelChar = 2713;
hcDelEnd = 2714;
hcDelLine = 2715;
hcDelStart = 2716;
hcDelWord = 2717;
hcEndPage = 2718;
hcHideSelect = 2719;
hcHomePage = 2720;
hcIndentMode = 2721;
hcInsertLine = 2722;
hcInsMode = 2723;
hcJumpLine = 2724;
hcLineDown = 2725;
hcLineEnd = 2726;
hcLineStart = 2727;
hcLineUp = 2728;
hcNewLine = 2729;
hcPageDown = 2730;
hcPageUp = 2731;
hcReformDoc = 2732;
hcReformPara = 2733;
hcRightMargin = 2734;
hcScrollDown = 2735;
hcScrollUp = 2736;
hcSearchAgain = 2737;
hcSelectWord = 2738;
hcSetTabs = 2739;
hcStartSelect = 2740;
hcTabKey = 2741;
hcTextEnd = 2742;
hcTextStart = 2743;
hcWordLeft = 2744;
hcWordRight = 2745;
hcWordWrap = 2746;
hcJMarker_Menu = 2750;
hcJumpMark1 = 2751;
hcJumpMark2 = 2752;
hcJumpMark3 = 2753;
hcJumpMark4 = 2754;
hcJumpMark5 = 2755;
hcJumpMark6 = 2756;
hcJumpMark7 = 2757;
hcJumpMark8 = 2758;
hcJumpMark9 = 2759;
hcJumpMark0 = 2760;
hcJMarker_Menu_Items = 2761;
hcSMarker_Menu = 2770;
hcSetMark1 = 2771;
hcSetMark2 = 2772;
hcSetMark3 = 2773;
hcSetMark4 = 2774;
hcSetMark5 = 2775;
hcSetMark6 = 2776;
hcSetMark7 = 2777;
hcSetMark8 = 2778;
hcSetMark9 = 2779;
hcSetMark0 = 2780;
hcSMarker_Menu_Items = 2781;
hcEditor_Items = hcSMarker_Menu_Items;
{ Dialog }
hcDialogs = 2800;
hcDCancel = 2801;
hcDNo = 2802;
hcDOk = 2803;
hcDYes = 2804;
hcDAbout = 2805;
hcDDirName = 2806;
hcDDirTree = 2807;
hcDChDir = 2808;
hcDRevert = 2809;
hcDName = 2810;
hcDFiles = 2811;
hcDFindText = 2812;
hcDLineNumber = 2813;
hcDReformDoc = 2814;
hcDReplaceTExt = 2815;
hcDRightMargin = 2816;
hcDTabStops = 2817;
hcListDlg = 2818;
{ Checkbox help }
hcCCaseSensitive = 2900;
hcCWholeWords = 2901;
hcCPromptReplace = 2902;
hcCReplaceAll = 2903;
hcCReformCurrent = 2904;
hcCReformEntire = 2905;
{ Statuses unit }
hcStatusPause = 2950;
hcStatusResume = 2951;
{ Glossary }
Glossary = 3000;
GCloseIcon = 3001;
GDesktop = 3002;
GDialogBox = 3003;
GHistoryIcon = 3004;
GInputLine = 3005;
GMemIndicator = 3006;
GMenuBar = 3007;
GPulldownMenu = 3008;
GResizeCorner = 3009;
GSelectedText = 3010;
GStatusBar = 3011;
GTitleBar = 3012;
GWindowBorder = 3013;
GZoomIcon = 3014;
hcGlossary_Items = GZoomIcon;
{ INI Unit }
hcDateFormatDlg = 1;
hcDateParts = 1;
hcDateOrder = 1;
hcTimeFormatDlg = 1;
hcClockFormatDlg = 1;
hcClockDateParts = 1;
hcClockTimeFormat = 1;
hcListViewer = 1;
{ Options Help Contexts }
hcConfigMenu = 100;
hcConfigColors = hcConfigMenu + 1;
hcConfigDate = hcConfigColors + 1;
hcConfigEnvironment = hcConfigDate + 1;
hcConfigMouse = hcConfigEnvironment + 1;
hcConfigOpen = hcConfigMouse + 1;
hcConfigSave = hcConfigOpen + 1;
hcConfigSaveAs = hcConfigSave + 1;
hcConfigTime = hcConfigSaveAs + 1;
hcConfigVideo = hcConfigTime + 1;
hcConfigDesktopDlg = hcConfigVideo + 1;
hcConfigMouseDlg = hcConfigDesktopDlg + 1;
hcConfigTimeFormatDlg = hcConfigMouseDlg + 1;
hcConfigTimeSeparator = hcConfigTimeFormatDlg + 1;
hcConfigTimeComponents = hcConfigTimeSeparator + 1;
hcConfigTimeStyle = hcConfigTimeComponents + 1;
hcConfigClock = hcConfigTimeStyle + 1;
hcBrowseDir = 1;
hcBrowseFile = 1;
{
The FVConsts unit contains all history list constants used in the FreeVision
Library.
}
const
hiConfig = 1;
hiDirectories = 2; { non-specific }
hiDesktop = 3;
hiCurrentDirectories = 1;
hiFiles = 4;
implementation
end.
Reference in New Issue View Git Blame Copy Permalink