home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / CMCD1004.ISO / Software / Freeware / Programare / alite / D6 / sMessages.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2004-05-08  |  7.3 KB  |  232 lines
  1. unit sMessages;
  2. (************************************************************************
  3. AlphaControls
  4. Copyright (c) 2002-2003 Serge Goncharov. All rights reserved.
  5.                             Ukraine, Odessa
  6.                             http://sstyle.swrus.com
  7.                             support@sstyle.swrus.com
  8.  Version:    3.00, 02-04-2003
  9. *************************************************************************)
  10. {In this file defined messages for grouped operations under editors from package}
  11.  
  12. {$I sDefs.inc}
  13.  
  14. interface
  15.  
  16. uses Messages, Graphics, sStyleUtil, sSkinManager,
  17.   {$IFNDEF ALITE}
  18.     sEditorsManager, sControlsManager,
  19.   {$ENDIF}
  20.   Controls, ExtCtrls, sConst;
  21.  
  22. const
  23.  
  24.   //UNIVERSAL MESSAGES -----------------------------------
  25.   SM_OFFSET                     = $A000;
  26.   SM_GETSTYLEINFO               = SM_OFFSET;
  27.   SM_SETBGCHANGED               = WM_USER + SM_OFFSET + 1;
  28.  
  29.   SM_SETNEWSKIN                 = WM_USER + SM_OFFSET + 2;
  30.   SM_REMOVESKIN                 = WM_USER + SM_OFFSET + 3;
  31.   SM_CLEARINDEXES               = WM_USER + SM_OFFSET + 4;
  32.  
  33.   SM_GETSSTYLE                  = WM_USER + SM_OFFSET + 5;
  34.   SM_GETPROVIDER                = WM_USER + SM_OFFSET + 6;
  35.   SM_REFRESH                    = WM_USER + SM_OFFSET + 7;
  36.   SM_GETCACHE                   = WM_USER + SM_OFFSET + 8;
  37.   SM_UPDATESECTION              = WM_USER + SM_OFFSET + 9;
  38.   SM_REPAINTSMOOTH              = WM_USER + SM_OFFSET + 10;
  39.   SM_BGCHANGED                  = WM_USER + SM_OFFSET + 11;
  40.   SM_DROPPEDDOWN                = WM_USER + SM_OFFSET + 12;
  41.   SM_SHARED                     = WM_USER + SM_OFFSET + 20;
  42.   // EDITORS ---------------------------------------------
  43.   EM_SETSOFT                    = WM_USER + SM_OFFSET + 21;
  44.   // Painting
  45.   EM_SETCOLOR                   = WM_USER + SM_OFFSET + 31;
  46.   EM_SETBORDERTOP               = WM_USER + SM_OFFSET + 33;
  47.   EM_SETBORDERBOTTOM            = WM_USER + SM_OFFSET + 34;
  48.   EM_SETBEVEL                   = WM_USER + SM_OFFSET + 35;
  49.   // Selection
  50.   EM_SETCOLORHOT                = WM_USER + SM_OFFSET + 36;
  51.   EM_SETBEVELWIDTHHOT           = WM_USER + SM_OFFSET + 37;
  52.   EM_SETBEVELHOT                = WM_USER + SM_OFFSET + 38;
  53.   // Shadow
  54.   EM_SETSHADOWENABLED           = WM_USER + SM_OFFSET + 41;
  55.   EM_SETCOLORSHADOW             = WM_USER + SM_OFFSET + 42;
  56.   EM_SHADOWTRANSPARENCY         = WM_USER + SM_OFFSET + 43;
  57.   EM_SHADOWOFFSET               = WM_USER + SM_OFFSET + 44;
  58.   EM_SHADOWBLUR                 = WM_USER + SM_OFFSET + 45;
  59.   EM_UPDATESHADOWS              = WM_USER + SM_OFFSET + 46;
  60.   // -----------------------------------------------------
  61.   EM_CHANGEALL                  = WM_USER + SM_OFFSET + 50;
  62.   // CONTROLS --------------------------------------------
  63.   CM_SETSOFT                    = WM_USER + SM_OFFSET + 51;
  64.   // Painting
  65.   CM_SETCOLOR                   = WM_USER + SM_OFFSET + 61;
  66.   CM_SETBEVEL                   = WM_USER + SM_OFFSET + 62;
  67.   CM_SETTRANSPARENCY            = WM_USER + SM_OFFSET + 63;
  68.  
  69.   // Background
  70.   CM_SETPATTERN                 = WM_USER + SM_OFFSET + 71;
  71.   // Shadow
  72.   CM_SETSHADOWENABLED           = WM_USER + SM_OFFSET + 81;
  73.   CM_SETCOLORSHADOW             = WM_USER + SM_OFFSET + 82;
  74.   CM_SHADOWTRANSPARENCY         = WM_USER + SM_OFFSET + 83;
  75.   CM_SHADOWOFFSET               = WM_USER + SM_OFFSET + 84;
  76.   CM_SHADOWBLUR                 = WM_USER + SM_OFFSET + 85;
  77.   CM_UPDATESHADOWS              = WM_USER + SM_OFFSET + 86;
  78.   // -----------------------------------------------------
  79.   CM_CHANGEALL                  = WM_USER + SM_OFFSET + 100;
  80.   SM_LAST                       = WM_USER + SM_OFFSET + 100;
  81.   /////////////////////////////////////////////////////////
  82.  
  83.   // Reserved groupindexes
  84.   GI_START                      = 20;
  85.   GI_FORPANELPATTERN            = 21; 
  86.  
  87. type                                  
  88.  
  89.   TSMessage = packed record
  90.     Msg: Cardinal;
  91.     GroupIndex: Longint;
  92.     Result: Longint;
  93.   end;
  94.  
  95.   TSMGetSStyle = packed record
  96.     Msg: Cardinal;
  97.     GroupIndex: Longint;
  98.     SStyle: Pointer;
  99.     Result: Longint;
  100.   end;
  101.  
  102.   TSMSetFont = packed record
  103.     Msg: Cardinal;
  104.     GroupIndex: Longint;
  105.     Value: Longint;
  106.     Result: Longint;
  107.   end;
  108.  
  109.   TSMSetColor = packed record
  110.     Msg: Cardinal;
  111.     GroupIndex: Longint;
  112.     Value: TColor;
  113.     Result: Longint;
  114.   end;
  115.  
  116.   TSMSetString = packed record
  117.     Msg: Cardinal;
  118.     GroupIndex: Longint;
  119.     Value: string;
  120.     Result: Longint;
  121.   end;
  122.  
  123.   TSMSetInteger = packed record
  124.     Msg: Cardinal;
  125.     GroupIndex: Longint;
  126.     Value: Longint;
  127.     Result: Longint;
  128.   end;
  129.  
  130.   TSMSetBoolean = packed record
  131.     Msg: Cardinal;
  132.     GroupIndex: Longint;
  133.     Value: LongBool;
  134.     Result: Longint;
  135.   end;
  136.  
  137.   TSMGetStyleInfo = packed record
  138.     Msg: Cardinal;
  139.     WParam: Longint;
  140.     LParam: Longint;
  141.     Result: Longint; // sPaintStyle - 1,
  142.                      // sPassiveBGStyle - 2,
  143.                      // ... reserved
  144.                      // sCustomStyle - 4,
  145.                      // sStyle - 5,
  146.                      // sStyleDB - 6
  147.   end;
  148.  
  149.   TSMSkin = packed record
  150.     Msg: Cardinal;
  151.     GroupIndex: Longint;
  152.     SkinManager: TsSkinManager;
  153.     Result: Longint;
  154.   end;
  155.  
  156.   {$IFNDEF ALITE}
  157.   TEMChangeAll = packed record
  158.     Msg: Cardinal;
  159.     GroupIndex: Longint;
  160.     sStyleControl: TsEditorsManager;
  161.     Result: Longint;
  162.   end;
  163.  
  164.   TCMChangeAll = packed record
  165.     Msg: Cardinal;
  166.     GroupIndex: Longint;
  167.     sStyleControl: TsControlsManager;
  168.     Result: Longint;
  169.   end;
  170.   TSMChangeEditors = packed record
  171.     Msg: Cardinal;
  172.     GroupIndex: Longint;
  173.     sStyleControl: TsEditorsManager;
  174.     Result: Longint;
  175.   end;
  176.  
  177.   TSMSetBground = packed record
  178.     Msg: Cardinal;
  179.     GroupIndex: Longint;
  180.     sBackground: TsControlBackground;
  181.     Result: Longint;
  182.   end;
  183.   {$ENDIF}
  184.  
  185.   TSMSetBevel = packed record
  186.     Msg: Cardinal;
  187.     GroupIndex: Longint;
  188.     Value: Longint;
  189.     Result: Longint;
  190.   end;
  191.  
  192. function sMsgToString(i : integer) : string;
  193.  
  194. implementation
  195.  
  196. function sMsgToString(i : integer) : string;
  197. begin
  198.   case i of
  199. {
  200.     SM_OFFSET              : Result := 'SM_OFFSET / SM_GETSTYLEINFO';
  201.  
  202.     SM_SETCAPTIONFONT      : Result := 'SM_SETCAPTIONFONT';
  203.     SM_SETFONT             : Result := 'SM_SETFONT';
  204.  
  205.     SM_SETSHADOWENABLED    : Result := 'SM_SETSHADOWENABLED';
  206.     SM_SETPARENTCOLOR      : Result := 'SM_SETPARENTCOLOR';
  207.     SM_SETHOTTRACK         : Result := 'SM_SETMOUSELIVE';
  208.     SM_SETEDITABLED        : Result := 'SM_SETEDITABLED';
  209.  
  210.     SM_SETColor    : Result := 'SM_SETColor';        
  211.     SM_SETCOLORACTIVE      : Result := 'SM_SETCOLORACTIVE';          
  212.     SM_SETBORDERTOP        : Result := 'SM_SETBORDERTOP';            
  213.     SM_SETBORDERBOTTOM     : Result := 'SM_SETBORDERBOTTOM';         
  214.     SM_SETCOLORSHADOW      : Result := 'SM_SETCOLORSHADOW';          
  215.  
  216.     SM_SETKEYNEXT          : Result := 'SM_SETKEYNEXT';
  217.     SM_SETKEYPREV          : Result := 'SM_SETKEYPREV';
  218.     SM_SETPATTERN          : Result := 'SM_SETPATTERN';              
  219.  
  220.     SM_SHADOWTRANSPARENCY  : Result := 'SM_SHADOWTRANSPARENCY';      
  221.     SM_SHADOWOFFSET        : Result := 'SM_SHADOWOFFSET';
  222.     SM_SHADOWBLUR          : Result := 'SM_SHADOWBLUR';
  223.  
  224.     SM_CHANGESTYLECONTROL  : Result := 'SM_CHANGESTYLECONTROL';
  225. }
  226.     SM_LAST                : Result := 'SM_LAST'
  227.     else                     Result := 'UNKNOWN';
  228.   end;
  229. end;
  230.  
  231. end.
  232.