aclconst.pas

来自「delphi编程控件」· PAS 代码 · 共 55 行

unit aclconst;
(*
 COPYRIGHT (c) RSD Software 1997 - 98
 All Rights Reserved.
*)
interface

uses Windows, Graphics;

const
  acDBIncControlSearsh_VK = VK_F3;
  acMacrosChar = '&';
  acOutLookHintShowDelay = 3000;
  acOutLookDragCursor = -1021;
  acOutLookDragCopyCursor = -1022;
  acOutLookDragDeleteCursor = -1023;
  acAutoDBGridDeleteCursor = -1024;
  acOutLookDefaultLargeImageHeight = 32;
  acOutLookDefaultLargeImageWidth = 32;
  acURLLabelCursor = -1101;
  acRichEditCursor = -1102;  
  acAutoDBPanelDeleteCursor =  acAutoDBGridDeleteCursor;

  AutoDBGridMinColWidth = 10;
  AutoDBGridMaxResizeWidth = 4;
  AutoDBGridLineWidth = 1;
  AutoDBGridDownedColumnColor = clGray;
  AutoDBGridMaxLevels = 5;
  AutoGridbmArrow = 'ADBGRIDARROW';
  AutoGridbmEdit = 'ADBGRIDEDIT';
  AutoGridbmInsert = 'ADBGRIDINSERT';
  AutoDBGridDeleteCursor = 'ACAUTODBGRIDDELETECURSOR';
  AutoRichEditURLCursor = 'ACAUTORICHEDITURL';

  AutoPanelControlDY = 4;
  AutoPanelLabelDY = 2;

  ACLDBTEMPLRESIMAGESTR = 'ACLDBTEMPL_';
  ACLDBTEMPLRESIMAGECOUNT = 10;

  ACLStartOfWeek = 0;
  
  //Quick typer consts
  ACLQTSTR_CANCEL = 'Ctrl+C';
  ACLQTSTR_DELETE = 'Ctrl+D';
  ACLQTSTR_INSERT = 'Ctrl+I';
  ACLQTSTR_POST = 'Ctrl+P';

  //Reference
  ReferenceShareEdit = 5;

  REGISTRYRSDPATHTOACL = 'Software\RSDSoftware\DELPHI\ACL\';

implementation
end.