util.pas

来自「在深度历险网站上发布的所有delphi程序原码。对初学delphi者很有用。」· PAS 代码 · 共 41 行

unit util;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TMyColor = (ActiveTitle, GradientActiveTitle, Background, Hilight,
    HilightText, TitleText, Window, WindowTextColor, ScrollBar,
    InactiveTitle, GradientInactiveTitle, MenuColor, WindowFrame, MenuText,
    ActiveBorder, InactiveBorder, AppWorkspace, ButtonFace, ButtonShadow,
    GrayText, ButtonText, InactiveTitleText, ButtonHilight, ButtonDkShadow,
    ButtonLight, InfoText, InfoWindow);
  
  TMyCursor = (mcrArrow, mcrHelp, mcrAppStarting, mcrWait, mcrNWPen, mcrNo,
    mcrSizeNS, mcrSizeWE, mcrCrosshair, mcrIBeam, mcrSizeNWSE, mcrSizeNESW,
    mcrSizeAll, mcrUpArrow);
  
  TMySound = (sdDefault, dsAppGPFault, dsMaximize, dsMenuCommand,
    dsMenuPopup, dsMinimize, dsOpen, dsClose, dsRestoreDown, dsRestoreUp,
    dsRingIn, dsRingout, dsSystemAsterisk, dsSystemDefault,
    dsSystemExclamation, dsSystemExit, dsSystemHand, dsSystemQuestion,
    dsSystemStart, dsEmptyRecycleBin);
  
  TMyFont = (mfIcon, mfCaptionFont, mfsmCaptionFont, mfMenuFont,
    mfStatusFont, mfMessageFont);
  
  TMyIcon = (mcMyComputer, mcNeighbor, mcRecycleBinFull,
    mcRecycleBinEmpty);
  
  TMyDesktop = (mdWallPaper, mdBackgroundPattern, mdScreenSaver,
    mdMetrics);
  
const
  secColors        = 'Control Panel\Colors';             
  secCursors       = 'Control Panel\Cursors';            
  secDesktop       = 'Control Panel\Desktop';            
  secMetrics       = 'Metrics';                          
  secBoot          = 'Boot';                             
  
  // ╰参肅︹: ノ