dialogconsts.pas

學習資料網上下載

unit DialogConsts;

interface

uses Windows;

const
  BUTTON_ID    = $80;
  EDIT_ID      = $81;
  STATIC_ID    = $82;
  LISTBOX_ID   = $83;
  SCROLLBAR_ID = $84;
  COMBOBOX_ID  = $85;

type
  TSZOrID = record
    isID : Boolean;
    sz : string;
    id : Integer
  end;

  TDlgTemplateEx = packed record
    dlgVer : word;
    signature : word;
    helpID : DWORD;
    exStyle : DWORD;
    style : DWORD;
    cDlgItems : WORD;
    x, y, cx, cy : smallint;

    // Then follows menu, class, title sz or id

    // if DS_SETFONT in style then follows

(*
    pointsize : Word;
    weight : Word;
    italic : Byte;
    charset : Byte;
    typeface : TszOrID;  //(sz only!)
*)

  end;

  PDlgTemplateEx = ^TDlgTemplateEx;

  TDlgItemTemplateEx = packed record
    helpID : DWORD;
    exStyle : DWORD;
    Style : DWORD;
    x : Smallint;
    y : Smallint;
    cx : Smallint;
    cy : Smallint;
    id : Word;

    // Then follows class and title sz or ID

    // Then follows extraCount : WORD, followed by creation data
  end;
  PDlgItemTemplateEx = ^TDlgItemTemplateEx;

resourcestring
  rstDialog = 'Dialog';
  rstControl = 'Control';
  rstButton = 'Button';
  rstCheckbox = 'Check box';
  rstGroupBox = 'Group box';
  rstEdit = 'Edit';
  rstPicture = 'Picture';
  rstRadiobutton = 'Radio Button';
  rstListbox = 'Listbox';

  rstLeft = 'Left';
  rstTop = 'Top';
  rstWidth = 'Width';
  rstHeight = 'Height';
  rstCaption = 'Caption';
  rstDisabled = 'Disabled';
  rstVisible = 'Visible';
  rstClientEdge = 'Client Edge';
  rstStaticEdge = 'Static Edge';
  rstAcceptFiles = 'Accept Files';
  rstTransparent = 'Transparent';
  rstID = 'ID';
  rstGroup = 'Group';
  rstContextHelp = 'Context Help';
  rstTabstop = 'Tab Stop';
  rstFont = 'Font';
  rstMenu = 'Menu';
  rstFontDesc = '%d pt %s';
  rstStyle = 'Style';
  rstPopup = 'Popup';
  rstOverlapped = 'Overlapped';
  rstChild = 'Child';
  rstBorder = 'Border';
  rstTitleBar = 'Title Bar';
  rstSystemMenu = 'System Menu';
  rstMinimizaBox = 'Minimize Box';
  rstMaximimizeBox = 'Maximize Box';
  rstClipSiblings = 'Clip Siblings';
  rstClipChildren = 'Clip Children';
  rstHScroll = 'Horiz Scroll';
  rstVScroll = 'Vert Scroll';
  rstSystemModal = 'System Modal';
  rstAbsoluteAlign = 'Absolute Align';
  rstCenter = 'Centre';
  rstCenterMouse = 'Centre Mouse';
  rstLocalEdit = 'Local Edit';
  rstMinimizeBox = 'Minimize Box';
  rstMaximizeBox = 'Maximize Box';
  rstNoFailCreate = 'No Fail Create';
  rstNoIdleMsg = 'No Idle Message';
  rstSetForeground = 'Set Foreground';
  rstNone = 'None';
  rstThin = 'Thin';
  rstResizing = 'Resizing';
  rstToolWindow = 'Tool Window';
  rstControlParent = 'Control Parent';
  rstNoParentNotify = 'No Parent Notify';
  rstRTLReadingOrder = 'RTL Reading Order';
  rstRightAlignedText = 'Right Aligned Text';
  rstLeftScrollBar = 'Scroll Bar on Left';
  rstSunken = 'Sunken';
  rstNotify = 'Notify';
  rstColor = 'Colour';
  rstImageID = 'Image ID';
  rstType = 'Type';
  rstBlack = 'Black';
  rstGrey = 'Grey';
  rstWhite = 'White';
  rstEtched = 'Etched';
  rstEtchedHorz = 'Etched Horizontal';
  rstEtchedVert = 'Etched Vertical';
  rstFrame = 'Frame';
  rstRectangle = 'Rectangle';
  rstIcon = 'Icon';
  rstBitmap = 'Bitmap';
  rstEnhancedMetaFile = 'Enhanced Metafile';
  rstAutoHScroll = 'Auto H Scroll';
  rstAutoVScroll = 'Auto VScroll';
  rstMultiline = 'Multiline';
  rstAlign = 'Alignment';
  rstRight = 'Right';
  rstWantReturn = 'Want Return';
  rstOEMConvert = 'OEM Convert';
  rstReadOnly = 'Read Only';
  rstMask = 'Mask';
  rstUppercase = 'Uppercase';
  rstLowercase = 'Lowercase';
  rstNumeric = 'Numeric';
  rstText = 'Text';
  rstStaticText = 'Static Text';
  rstImagePositioning = 'Image Positioning';
  rstCenterImage = 'Centre Image';
  rstRealSizeImage = 'Real Size Image';
  rstRealSizeControl = 'Real Size Control';
  rstRightJustify = 'Right Justify';
  rstEllipsis = 'Ellipsis';
  rstEndEllipsis = 'End Ellipsis';
  rstWordEllipsis = 'Word Ellipsis';
  rstPathEllipsis = 'Path Ellipsis';
  rstModalFrame = 'Modal Frame';
  rstCenterVertically = 'Centre Vertically';
  rstNoPrefix = 'No Prefix';
  rstNoWrap = 'No Wrap';
  rstSimple = 'Simple';
  rstPassword = 'Password';
  rstHAlign = 'Horizontal Alignment';
  rstVAlign = 'Vertical Alignment';
  rstFlat = 'Flat';
  rstDefault = 'Default';
  rstOwnerDraw = 'Owner Draw';
  rstBottom = 'Bottom';
  rstDefaultButton = 'Default Button';
  rstAuto = 'Auto';
  rstLeftText = 'Left Text';
  rstTriState = 'Tri-state';
  rstPushLike = 'Push-like';
  rstComboBox = 'Combo Box';
  rstSort = 'Sort';
  rstNoIntegralHeight = 'No Integral Height';
  rstDisableNoScroll = 'Disable No Scroll';
  rstDropdown = 'Drop Down';
  rstDropdownList = 'Drop Down List';
  rstNo = 'No';
  rstFixed = 'Fixed';
  rstVariable = 'Variable';
  rstSelection = 'Selection';
  rstMultiColumn = 'Multi Column';
  rstUseTabstops = 'Use Tabstops';
  rstWantKeyInput = 'Want Key Input';
  rstNoredraw = 'No Redraw';
  rstSingle = 'Single';
  rstMultiple = 'Multiple';
  rstExtended = 'Extended';
  rstHScrollbar = 'Horizontal Scrollbar';
  rstVScrollbar = 'Vertical Scrollbar';
  rstOrientation = 'Orientation';
  rstAlignment = 'Alignment';
  rstAutoBuddy = 'Auto Buddy';
  rstSetBuddyInteger = 'Set Buddy Integer';
  rstNoThousands = 'No Thousands';
  rstArrowKeys = 'Arrow Keys';
  rstWrap = 'Wrap';
  rstHotTrack = 'Hot Track';
  rstUpDown = 'Spin';
  rstHorizontal = 'Horizontal';
  rstVertical = 'Vertical';
  rstUnattached = 'Unattached';
  rstSmooth = 'Smooth';
  rstProgressBar = 'Progress Bar';


(*
  TControlProperty = (cpAcceptFiles, cpBorder, cpClientEdge, cpEnabled, cpGroup, cpHeight, cpHelpID, cpLeft,
                      cpStaticEdge, cpTabStop, cpText, cpTop, cpVisible, cpWidth);
*)


implementation

end.