paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 11:39:40 +01:00
Code Issues Packages Projects Releases Wiki Activity
17d81f45a5
fpc/fvision/fvconsts.pas
peter 01dfac4a4e * old logs removed and tabs fixed
2002-09-07 15:06:34 +00:00

639 lines
17 KiB
ObjectPascal
Raw Blame History

{ $Id$ }
{********[ 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 ObjTypes 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;
idMultiCheckBoxes = 27;
idListBox = 16;
idStaticText = 17;
idLabel = 18;
idHistory = 19;
idParamText = 20;
idCommandCheckBoxes = 21;
idCommandRadioButtons = 22;
idCommandIcon = 23;
idBrowseButton = 24;
idEditListBox = 25;
idModalInputLine = 26;
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;
{ 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;
{ 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 }
{
The Commands 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 = 35;
cmChangeDir = 36;
cmDosShell = 37;
cmCloseAll = 38;
cmDelete = 39;
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 HelpCtx 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 History 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.
{
$Log$
Revision 1.5 2002-09-07 15:06:36 peter
* old logs removed and tabs fixed
Revision 1.4 2002/05/21 12:21:53 pierre
* fix various graphic problems
Revision 1.3 2002/05/21 12:00:49 pierre
+ cmResizeApp added
}
Reference in New Issue View Git Blame Copy Permalink