开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
am2000cache.pas
资源名称：am2000.zip　[点击查看]
上传用户：powellwoo
上传日期：2007-01-07
资源大小：109k
文件大小：15k
源码类别：

Delphi控件源码

开发平台：

C++ Builder

am2000cache.pas：源码内容
  2. {*******************************************************}
  3. {                                                       }
  4. {       AnimatedMenus/2000                              }
  5. {       T_AM2000_MenuItemCache Unit                     }
  6. {       English Version                                 }
  7. {                                                       }
  8. {       Copyright (c) 1997-99 AnimatedMenus.com         }
  9. {       All rights reserved.                            }
  10. {                                                       }
  11. {*******************************************************}
  14. unit am2000cache;
  16. interface
  18. uses
  19.   Windows, Classes, Graphics;
  21. type
  22.   T_AM2000_MenuItemCacheItem = class
  23.   private
  24.     FBitmap   : HBitmap;
  25.     FBmpRes   : Integer;
  27.     function GetBitmap: HBitmap;
  29.   public
  30.     ShortCuts : String;
  31.     Hint      : String;
  32.     IsDefault : Boolean;
  34.     property Bitmap : HBitmap
  35.       read GetBitmap write FBitmap;
  37.     destructor Destroy; override;
  39.   end;
  41.   T_AM2000_MenuItemCache = class(TStringList)
  42.   private
  43.     function GetItem(const Caption: String): T_AM2000_MenuItemCacheItem;
  45.   public
  46.     property Items    [const Caption: String]: T_AM2000_MenuItemCacheItem read GetItem; default;
  48.     constructor Create;
  49.     destructor Destroy; override;
  50.     function AddCache(ACaption, AShortCuts, AHint: String; ABitmap: HBitmap; ADefault: Boolean): T_AM2000_MenuItemCacheItem;
  51.     function AddCacheRes(ACaption, AShortCuts, AHint: String; ABitmapResource: Integer; ADefault: Boolean): T_AM2000_MenuItemCacheItem;
  52.     function GetDefaultBitmap(Index: Integer): HBitmap;
  54.   end;
  56. var
  57.   MenuItemCache: T_AM2000_MenuItemCache;
  59. implementation
  61. uses
  62.   SysUtils,
  63.   am2000const;
  65. { Utilities }
  67. function GetStandardCaption(S: String): String;
  68. var
  69.   J: Integer;
  70. begin
  71.   Result:= '';
  72.   S:= AnsiUpperCase(S);
  73.   for J:= 1 to Length(S) do
  74.     if IsCharAlpha(S[J])
  75.     then AppendStr(Result, S[J]);
  76. end;
  79. { T_AM2000_MenuItemCacheItem }
  81. destructor T_AM2000_MenuItemCacheItem.Destroy;
  82. begin
  83.   if FBitmap <> 0
  84.   then DeleteObject(FBitmap);
  86.   inherited;
  87. end;
  89. function T_AM2000_MenuItemCacheItem.GetBitmap: HBitmap;
  90. begin
  91.   if (FBitmap = 0) and (FBmpRes <> 0)
  92.   then FBitmap:= LoadBitmap(HInstance, MakeIntResource(FBmpRes));
  93.   Result:= FBitmap;
  94. end;
  96. { T_AM2000_MenuItemCache }
  98. constructor T_AM2000_MenuItemCache.Create;
  99. begin
  100.   inherited;
  101.   Sorted:= True;
  103.   // initialize default menu items
  104.   AddCacheRes('ADDRESSBOOK', '', 'Displays the list of contacts', BMP_AM2000_ADDRESSBOOK, True);
  105.   AddCacheRes('ALIGNCENTER', SCtrl+'+E', 'Centers the paragraph between the margins', BMP_AM2000_ALIGNCENTER, True);
  106.   AddCacheRes('ALIGNLEFT', SCtrl+'+L', 'Aligns the paragraph at the left margin', BMP_AM2000_ALIGNLEFT, True);
  107.   AddCacheRes('ALIGNRIGHT', SCtrl+'+R', 'Aligns the paragraph at the right margin', BMP_AM2000_ALIGNRIGHT, True);
  108.   AddCacheRes('AUTOPREVIEW', '', 'Shows or hides the autopreview pane', BMP_AM2000_AUTOPREVIEW, True);
  109.   AddCacheRes('BOLD', SCtrl+'+B', 'Bold Text', BMP_AM2000_BOLD, True);
  110.   AddCacheRes('BOOKMARKS', '', 'Insert a bookmark at the cursor', BMP_AM2000_BOOKMARKS, True);
  111.   AddCacheRes('BULLETS', '', 'Inserts a bullet on this line', BMP_AM2000_BULLETS, True);
  112.   AddCacheRes('CASCADE', '', 'Arranges the windows as overlapping tiles', BMP_AM2000_CASCADE, True);
  113.   AddCacheRes('CONTENTS', '', 'Displays help topics', BMP_AM2000_CONTENTS, False);
  114.   AddCacheRes('CONTENTSANDINDEX', 'F1', 'Displays help topics', BMP_AM2000_CONTENTSANDINDEX, True);
  115.   AddCacheRes('COPY', SCtrl+'+C;'+SCtrl+'+'+SIns, 'Copies the selection to the clipboard', BMP_AM2000_COPY, True);
  116.   AddCacheRes('CUT', SCtrl+'+X;'+SShift+'+'+SDel, 'Cuts the selection and moves it to the clipboard', BMP_AM2000_CUT, True);
  117.   AddCacheRes('DATE', '', 'Inserts today''s date', BMP_AM2000_SETDATE, False);
  118.   AddCacheRes('DATEANDTIME', '', 'Inserts today''s date and/or time', BMP_AM2000_DATEANDTIME, True);
  119.   AddCacheRes('DATETIME', '', 'Inserts today''s date and/or time', BMP_AM2000_DATEANDTIME, False);
  120.   AddCacheRes('DECREASEINDENT', '', 'Decrease indent', BMP_AM2000_DECREASEINDENT, True);
  121.   AddCacheRes('DELETE', ''+SDel+';'+SCtrl+'+'+SDel, 'Erases the selection', BMP_AM2000_DELETE, True);
  122.   AddCacheRes('FIND', SCtrl+'+F;F3', 'Finds the specified text in the active document', BMP_AM2000_FIND, True);
  123.   AddCacheRes('FINDNEXT', SShift+'+F3', 'Repeats the last find', BMP_AM2000_FINDNEXT, True);
  124.   AddCacheRes('FONT', '', 'View or edit the character attributes of the selected text', BMP_AM2000_SETFONT, False);
  125.   AddCacheRes('FONTSIZE', '', 'View or edit the font size of the selected text', BMP_AM2000_FONTSIZE, True);
  126.   AddCacheRes('FONTSTYLE', '', 'View or edit the font style of the selected text', BMP_AM2000_FONTSTYLE, True);
  127.   AddCacheRes('FULLSCREEN', 'F11', 'Zooms the active document to the full screen', BMP_AM2000_FULLSCREEN, True);
  128.   AddCacheRes('GOTOBOOKMARK', '', 'Moves the cursor to the specified bookmark', BMP_AM2000_SETBOOKMARK, False);
  129.   AddCacheRes('HELPONHELP', 'F1', 'Display instructions about how to use help', BMP_AM2000_HELP, True);
  130.   AddCacheRes('HOME', '', 'Browses the web', BMP_AM2000_HOME, True);
  131.   AddCacheRes('HYPERLINK', '', 'Insert a new hyperlink', BMP_AM2000_HYPERLINK, True);
  132.   AddCacheRes('INCREASEINDENT', '', 'Increase indent', BMP_AM2000_INCREASEINDENT, True);
  133.   AddCacheRes('INDENT', '', 'Increase Indent', BMP_AM2000_INCREASEINDENT, False);
  134.   AddCacheRes('ITALIC', SCtrl+'+I', 'Italic Text', BMP_AM2000_ITALIC, True);
  135.   AddCacheRes('ALIGNJUSTIFY', SCtrl+'+J', 'Justifies the paragraph between the margins', BMP_AM2000_JUSTIFY, True);
  136.   AddCacheRes('JUSTIFY', SCtrl+'+J', 'Justifies the paragraph between the margins', BMP_AM2000_JUSTIFY, False);
  137.   AddCacheRes('MARKASREAD', '', 'Marks the selected messages as read', BMP_AM2000_MARKASREAD, True);
  138.   AddCacheRes('MARKASUNREAD', '', 'Marks the selected messages as unread', BMP_AM2000_MARKASUNREAD, True);
  139.   AddCacheRes('MOVETOFOLDER', '', 'Moves selected items to another folder', BMP_AM2000_MOVETOFOLDER, True);
  140.   AddCacheRes('NEW', SCtrl+'+N', 'Create a new document', BMP_AM2000_NEW, True);
  141.   AddCacheRes('NEWFOLDER', '', 'Create a new folder', BMP_AM2000_NEWFOLDER, True);
  142.   AddCacheRes('NEWMAIL', '', 'Create a new email message', BMP_AM2000_NEWMAIL, True);
  143.   AddCacheRes('NEWMAILMESSAGE', '', 'Create a new email message', BMP_AM2000_NEWMAIL, False);
  144.   AddCacheRes('NEWNOTE', '', 'Create a new note', BMP_AM2000_NEWNOTE, True);
  145.   AddCacheRes('NEWTASK', '', 'Create a new task', BMP_AM2000_NEWTASK, True);
  146.   AddCacheRes('NOTE', '', 'Create a new note', BMP_AM2000_NEWNOTE, False);
  147.   AddCacheRes('NUMBERING', '', 'Inserts a numbering on this line', BMP_AM2000_NUMBERING, True);
  148.   AddCacheRes('OPEN', SCtrl+'+O', 'Opens an existing document from a file', BMP_AM2000_OPEN, True);
  149.   AddCacheRes('PASTE', SCtrl+'+V;'+SShift+'+'+SIns, 'Inserts the clipboard contents at the insertion point', BMP_AM2000_PASTE, True);
  150.   AddCacheRes('PRINT', SCtrl+'+P', 'Print the active document', BMP_AM2000_PRINT, True);
  151.   AddCacheRes('PRINTPREVIEW', '', 'Display full pages', BMP_AM2000_PRINTPREVIEW, True);
  152.   AddCacheRes('PROPERTIES', '', 'Display properties for the active document', BMP_AM2000_PROPERTIES, True);
  153.   AddCacheRes('REDO', SCtrl+'+'+SShift+'+Z', 'Redoes the last action that was undone', BMP_AM2000_REDO, True);
  154.   AddCacheRes('REFRESH', '', 'Updates the display to reflect any changes', BMP_AM2000_REFRESH, True);
  155.   AddCacheRes('RELOAD', '', 'Reloads the content of the current page', BMP_AM2000_REFRESH, False);
  156.   AddCacheRes('REPEAT', '', 'Repeats the last action', BMP_AM2000_REPEAT, True);
  157.   AddCacheRes('REPLACE', SCtrl+'+H', 'Replaces specific text with different text', BMP_AM2000_REPLACE, True);
  158.   AddCacheRes('SAVE', SCtrl+'+S;'+SShift+'+F12;'+SAlt+'+'+SShift+'+F2', 'Saves the active document', BMP_AM2000_SAVE, True);
  159.   AddCacheRes('SAVEALL', '', 'Saves all opened documents', BMP_AM2000_SAVEALL, True);
  160.   AddCacheRes('SEARCHTHEWEB', '', 'Searches the Word Wide Web for the specified resource', BMP_AM2000_SEARCHTHEWEB, True);
  161.   AddCacheRes('SENDMAIL', '', 'Compose and send new mail message', BMP_AM2000_SENDMAIL, True);
  162.   AddCacheRes('SETBOOKMARK', '', 'Insert a bookmark at the cursor', BMP_AM2000_SETBOOKMARK, True);
  163.   AddCacheRes('SETDATE', '', 'Set today''s date', BMP_AM2000_SETDATE, True);
  164.   AddCacheRes('SETFONT', '', 'View or edit the character attributes of the selected text', BMP_AM2000_SETFONT, True);
  165.   AddCacheRes('SETTIME', '', 'Set current time', BMP_AM2000_SETTIME, True);
  166.   AddCacheRes('SORT', '', 'Arranges items in the window', BMP_AM2000_SORT, True);
  167.   AddCacheRes('SPELLCHECK', 'F7', 'Checks the spelling in the active document', BMP_AM2000_SPELLCHECK, True);
  168.   AddCacheRes('CHECKSPELLING', 'F7', 'Checks the spelling in the active document', BMP_AM2000_SPELLCHECK, False);
  169.   AddCacheRes('SPLITWINDOW', '', 'Splits the active document window horizontally', BMP_AM2000_SPLITWINDOW, True);
  170.   AddCacheRes('TASK', '', 'Create a new task', BMP_AM2000_NEWTASK, False);
  171.   AddCacheRes('TILE', '', 'Arranges the windows as nonoverlapping tiles', BMP_AM2000_TILE, True);
  172.   AddCacheRes('TIME', '', 'Inserts current time', BMP_AM2000_SETTIME, False);
  173.   AddCacheRes('UNDERLINE', SCtrl+'+U', 'Underlined text', BMP_AM2000_UNDERLINE, True);
  174.   AddCacheRes('UNDO', SCtrl+'+Z', 'Reverses the last action', BMP_AM2000_UNDO, True);
  175.   AddCacheRes('UNINDENT', '', 'Decrease indent', BMP_AM2000_DECREASEINDENT, False);
  176.   AddCacheRes('WHATSTHIS', SShift+'+F1', 'Shows help about the selected element', BMP_AM2000_WHATSTHIS, True);
  177.   AddCacheRes('PARAGRAPH', '', 'View or edit the paragraph attributes of the selected text', BMP_AM2000_PARAGRAPH, True);
  178.   AddCacheRes('MOVEUP', '', 'Moves the selection up', BMP_AM2000_MOVEUP, True);
  179.   AddCacheRes('MOVEDOWN', '', 'Moves the selection down', BMP_AM2000_MOVEDOWN, True);
  180.   AddCacheRes('MOVELEFT', '', 'Moves the selection left', BMP_AM2000_MOVELEFT, True);
  181.   AddCacheRes('MOVERIGHT', '', 'Moves the selection right', BMP_AM2000_MOVERIGHT, True);
  182.   AddCacheRes('UPONELEVEL', '', 'Up one level', BMP_AM2000_UPONELEVEL, True);
  183.   AddCacheRes('RULER', '', 'Shows or hides the ruler', BMP_AM2000_RULER, True);
  184.   AddCacheRes('DELETE_B', '', 'Erases the selection', BMP_AM2000_DELETE2, True);
  185.   AddCacheRes('NEWFOLDER_B', '', 'Create a new folder', BMP_AM2000_NEWFOLDER2, True);
  186.   AddCacheRes('CREATE', '', 'Create a new document', BMP_AM2000_CREATE, True);
  187.   AddCacheRes('CREATE_B', '', 'Create a new document', BMP_AM2000_CREATE2, True);
  188.   AddCacheRes('BACKWARD', '', 'Return to the previous page in the hyperlink history list', BMP_AM2000_BACKWARD, True);
  189.   AddCacheRes('BACK', '', 'Return to the previous page in the hyperlink history list', BMP_AM2000_BACKWARD, False);
  190.   AddCacheRes('FORWARD', '', 'Go to the next page in the hyperlink history list', BMP_AM2000_FORWARD, True);
  192.   // system icons
  193.   AddCache('SYSTEMRESTORE', '', 'Restore the window to normal size', LoadBitmap(HInstance, 'AM2000_SYSTEMRESTORE'), False);
  194.   AddCache('SYSTEMMOVE', '', 'Change the window position', LoadBitmap(HInstance, 'AM2000_SYSTEMMOVE'), True);
  195.   AddCache('SYSTEMSIZE', '', 'Change the window size', LoadBitmap(HInstance, 'AM2000_SYSTEMSIZE'), True);
  196.   AddCache('SYSTEMMINIMIZE', '', 'Reduce the window to an icon', LoadBitmap(HInstance, 'AM2000_SYSTEMMINIMIZE'), False);
  197.   AddCache('SYSTEMMAXIMIZE', '', 'Enlarge the window to full size', LoadBitmap(HInstance, 'AM2000_SYSTEMMAXIMIZE'), False);
  198.   AddCache('SYSTEMCLOSE', '', 'Close the active window and prompts to save the pages', LoadBitmap(HInstance, 'AM2000_SYSTEMCLOSE'), True);
  200.   AddCache('CLEAR', SDel+';'+SShift+'+'+SDel, 'Erases the selection', 0, False);
  201.   AddCache('SELECTALL', SCtrl+'+A', 'Select the entire document', 0, False);
  202.   AddCache('GOTO', SCtrl+'+G', 'Moves the cursor to the specified line', 0, False);
  203.   AddCache('PAGESETUP', '', 'Change the printing options', 0, False);
  204.   AddCache('PRINTERSETUP', '', 'Change the printer and printing options', 0, False);
  205.   AddCache('SAVEAS', 'F12;'+SCtrl+'+'+SShift+'+S', 'Saves a copy of the document in a separate file', 0, False);
  206.   AddCache('PASTELINK', '', 'Insert Clipboard contents and a link to its source', 0, False);
  207.   AddCache('PASTESPECIAL', '', 'Insert Clipboard contents with options', 0, False);
  208.   AddCache('NEWWINDOW', '', 'Open another window for the active document', 0, False);
  209.   AddCache('ARRANGEICONS', '', 'Arrange icons at the bottom of the window', 0, False);
  210.   AddCache('EDIT', '', 'Contains commands for the clipboard, finding text, and editing links', 0, False);
  211.   AddCache('VIEW', '', 'Contains commands for controlling the display of your document', 0, False);
  212.   AddCache('FILE', '', 'Contains commands for saving documents and opening saved documents', 0, False);
  213.   AddCache('SEARCH', '', 'Contains commands for searching through your document', 0, False);
  214.   AddCache('TOOLS', '', 'Contains additional commands for working with external tools', 0, False);
  215.   AddCache('WINDOW', '', 'Contains commands for controlling position of windows of your application', 0, False);
  216.   AddCache('HELP', '', 'Contains commands for solving problem situations', 0, False);
  217. end;
  219. destructor T_AM2000_MenuItemCache.Destroy;
  220. var
  221.   I: Integer;
  222. begin
  223.   for I:= 0 to Count -1 do
  224.     Objects[I].Free;
  226.   inherited;
  227. end;
  229. function T_AM2000_MenuItemCache.AddCache(ACaption, AShortCuts, AHint: String;
  230.   ABitmap: HBitmap; ADefault: Boolean): T_AM2000_MenuItemCacheItem;
  231. var
  232.   Index: Integer;
  233. begin
  234.   ACaption:= GetStandardCaption(ACaption);
  235.   if not Find(ACaption, Index) then begin
  236.     Result:= T_AM2000_MenuItemCacheItem.Create;
  237.     AddObject(ACaption, Result);
  238.   end
  239.   else
  240.     Result:= T_AM2000_MenuItemCacheItem(Objects[Index]);
  242.   Result.ShortCuts:= AShortCuts;
  243.   Result.Hint:=      AHint;
  244.   Result.Bitmap:=    ABitmap;
  245.   Result.IsDefault:= ADefault;
  246. end;
  248. function T_AM2000_MenuItemCache.AddCacheRes(ACaption, AShortCuts, AHint: String;
  249.   ABitmapResource: Integer; ADefault: Boolean): T_AM2000_MenuItemCacheItem;
  250. begin
  251.   Result:= AddCache(ACaption, AShortCuts, AHint, 0, ADefault);
  252.   Result.FBmpRes:= ABitmapResource;
  253. end;
  255. function T_AM2000_MenuItemCache.GetItem(const Caption: String): T_AM2000_MenuItemCacheItem;
  256. var
  257.   Index: Integer;
  258.   S: String;
  259. begin
  260.   S:= GetStandardCaption(Caption);
  261.   if Find(S, Index)
  262.   then Result:= T_AM2000_MenuItemCacheItem(Objects[Index])
  263.   else Result:= AddCache(S, '', '', LoadBitmap(hInstance, PChar('BMP_AM2000_' + S)), False);
  264. end;
  266. function T_AM2000_MenuItemCache.GetDefaultBitmap(Index: Integer): HBitmap;
  267. var
  268.   I: Integer;
  269. begin
  270.   Result:= 0;
  271.   for I:= 0 to Count -1 do
  272.     with T_AM2000_MenuItemCacheItem(Objects[I]) do begin
  273.       if IsDefault
  274.       then Dec(Index);
  276.       if Index < 0 then begin
  277.         Result:= Bitmap;
  278.         Exit;
  279.       end;
  280.     end;
  281. end;
  283. initialization
  284.   MenuItemCache:= T_AM2000_MenuItemCache.Create;
  286. finalization
  287.   MenuItemCache.Free;
  288.   MenuItemCache:= nil;
  290. end.