home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue36 / resource / DemoForm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-04-19  |  2.0 KB  |  95 lines
  1. unit DemoForm;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   TfrmMain = class(TForm)
  11.     btnHello: TButton;
  12.     Icons: TGroupBox;
  13.     imgIcon: TImage;
  14.     btnTom: TButton;
  15.     btnJerry: TButton;
  16.     grpBitmaps: TGroupBox;
  17.     btnExit: TButton;
  18.     btnLoad: TButton;
  19.     imgBitmap: TImage;
  20.     lstSource: TListBox;
  21.     btnSource: TButton;
  22.     procedure btnHelloClick(Sender: TObject);
  23.     procedure btnTomClick(Sender: TObject);
  24.     procedure FormCreate(Sender: TObject);
  25.     procedure FormDestroy(Sender: TObject);
  26.     procedure btnJerryClick(Sender: TObject);
  27.     procedure btnExitClick(Sender: TObject);
  28.     procedure btnLoadClick(Sender: TObject);
  29.     procedure btnSourceClick(Sender: TObject);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end;
  35.  
  36. var
  37.   frmMain: TfrmMain;
  38.  
  39. implementation
  40.  
  41. uses
  42.   Resources;
  43.  
  44. var
  45.   ResourceLib: TResourceLibrary;
  46.  
  47. {$R *.DFM}
  48.  
  49. // we must include the constants so that we can identify the resources
  50.  
  51. {$I ResourceConstants.INC}
  52.  
  53. procedure TfrmMain.btnHelloClick(Sender: TObject);
  54. begin
  55.   ShowMessage (ResourceLib[TxtHelloWorld]);
  56. end;
  57.  
  58. procedure TfrmMain.btnTomClick(Sender: TObject);
  59. begin
  60.   ResourceLib.LoadIcon (TomIcon, imgIcon.Picture.Icon);
  61. end;
  62.  
  63. procedure TfrmMain.btnJerryClick(Sender: TObject);
  64. begin
  65.   ResourceLib.LoadIcon (JerryIcon, imgIcon.Picture.Icon);
  66. end;
  67.  
  68. procedure TfrmMain.FormCreate(Sender: TObject);
  69. begin
  70.   ResourceLib := TResourceLibrary.CreateForDLL ('ResourceDLL.DLL');
  71. end;
  72.  
  73. procedure TfrmMain.FormDestroy(Sender: TObject);
  74. begin
  75.   ResourceLib.Free;
  76. end;
  77.  
  78. procedure TfrmMain.btnExitClick(Sender: TObject);
  79. begin
  80.   Application.Terminate;
  81. end;
  82.  
  83. procedure TfrmMain.btnLoadClick(Sender: TObject);
  84. begin
  85.   ResourceLib.LoadBitmap (SeasetBitmap, imgBitmap.Picture.Bitmap);
  86. end;
  87.  
  88. procedure TfrmMain.btnSourceClick(Sender: TObject);
  89. begin
  90.   lstSource.Items.LoadFromStream (ResourceLib.ResourceStream[ResourcesSourceCode]);
  91. end;
  92.  
  93. end.
  94.  
  95.