home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / rzcomps.exe / DEMO / DEMOMAIN.PA_ / DEMOMAIN.PA
Text File  |  1996-10-18  |  4KB  |  190 lines
  1. unit Demomain;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, Tabs, RzPanel, Menus, StdCtrls, RzCmboBx,
  8.   RzTrkBar, RzLabel, RzBorder, Buttons;
  9.  
  10. type
  11.   TFrmMain = class(TForm)
  12.     RzPanel1: TRzPanel;
  13.     RzBorder1: TRzBorder;
  14.     Image1: TImage;
  15.     RzLabel2: TRzLabel;
  16.     Image2: TImage;
  17.     RzLabel3: TRzLabel;
  18.     ImgToolbar: TImage;
  19.     LblToolbar: TRzLabel;
  20.     LblSplitter: TRzLabel;
  21.     LblLabel: TRzLabel;
  22.     LblPanel: TRzLabel;
  23.     LblData2: TRzLabel;
  24.     LblListComps: TRzLabel;
  25.     LblProgress: TRzLabel;
  26.     LblMail: TRzLabel;
  27.     LblData: TRzLabel;
  28.     LblExit: TRzLabel;
  29.     ImgSplitter: TImage;
  30.     ImgLabel: TImage;
  31.     ImgPanel: TImage;
  32.     ImgListComps: TImage;
  33.     ImgProgress: TImage;
  34.     ImgMail: TImage;
  35.     ImgData: TImage;
  36.     ImgData2: TImage;
  37.     ImgExit: TImage;
  38.     LblDemoVersion: TRzLabel;
  39.     procedure BtnLabelClick(Sender: TObject);
  40.     procedure BtnToolbarClick(Sender: TObject);
  41.     procedure BtnMailClick(Sender: TObject);
  42.     procedure BtnSplitterClick(Sender: TObject);
  43.     procedure BtnListCompsClick(Sender: TObject);
  44.     procedure FormCreate(Sender: TObject);
  45.     procedure BtnExitClick(Sender: TObject);
  46.     procedure BtnPanelClick(Sender: TObject);
  47.     procedure BtnProgressClick(Sender: TObject);
  48.     procedure BtnDataClick(Sender: TObject);
  49.     procedure BtnData2Click(Sender: TObject);
  50.     procedure RzPanel2Enter(Sender: TObject);
  51.     procedure RzPanel2Exit(Sender: TObject);
  52.     procedure MouseEnter(Sender: TObject);
  53.     procedure MouseLeave(Sender: TObject);
  54.   private
  55.     { Private declarations }
  56.   public
  57.     { Public declarations }
  58.   end;
  59.  
  60. var
  61.   FrmMain: TFrmMain;
  62.  
  63. implementation
  64.  
  65. {$R *.DFM}
  66. {$IFDEF WIN32}
  67. {$R HANDCUR.R32}
  68. {$ELSE}
  69. {$R HANDCUR.R16}
  70. {$ENDIF}
  71.  
  72. uses
  73.   LabelFrm, PanelFrm, TbarFrm, MailFrm, SplitFrm, ListFrm,
  74.   ProgFrm, DataFrm, DataFrm2;
  75.  
  76.  
  77. procedure TFrmMain.FormCreate(Sender: TObject);
  78. const
  79.   crHand = 34;
  80. begin
  81.   {$IFNDEF WIN32}
  82.   MsgDlgButtonStyle := bsNew;
  83.   MsgDlgGlyphs := False;
  84.   {$ENDIF}
  85.  
  86.   {$IFDEF WIN32}
  87.   LblDemoVersion.Caption := '32-bit Demo';
  88.   {$ENDIF}
  89.   
  90.   Screen.Cursors[ crHand ] := LoadCursor( HInstance, 'RZHANDCURSOR' );
  91.   ImgSplitter.Cursor := crHand;
  92.   LblSplitter.Cursor := crHand;
  93.   ImgToolbar.Cursor := crHand;
  94.   LblToolbar.Cursor := crHand;
  95.   ImgLabel.Cursor := crHand;
  96.   LblLabel.Cursor := crHand;
  97.   ImgPanel.Cursor := crHand;
  98.   LblPanel.Cursor := crHand;
  99.   ImgListComps.Cursor := crHand;
  100.   LblListComps.Cursor := crHand;
  101.   ImgProgress.Cursor := crHand;
  102.   LblProgress.Cursor := crHand;
  103.   ImgMail.Cursor := crHand;
  104.   LblMail.Cursor := crHand;
  105.   ImgData.Cursor := crHand;
  106.   LblData.Cursor := crHand;
  107.   ImgData2.Cursor := crHand;
  108.   LblData2.Cursor := crHand;
  109.   ImgExit.Cursor := crHand;
  110.   LblExit.Cursor := crHand;
  111. end;
  112.  
  113.  
  114. procedure TFrmMain.BtnLabelClick(Sender: TObject);
  115. begin
  116.   FrmLabel.ShowModal;
  117. end;
  118.  
  119. procedure TFrmMain.BtnToolbarClick(Sender: TObject);
  120. begin
  121. {  FrmToolbar := TFrmToolbar.Create( Application );}
  122.   FrmToolbar.ShowModal;
  123. end;
  124.  
  125. procedure TFrmMain.BtnMailClick(Sender: TObject);
  126. begin
  127.   FrmMail.ShowModal;
  128. end;
  129.  
  130. procedure TFrmMain.BtnSplitterClick(Sender: TObject);
  131. begin
  132.   FrmSplitter.ShowModal;
  133. end;
  134.  
  135. procedure TFrmMain.BtnListCompsClick(Sender: TObject);
  136. begin
  137.   FrmListComps.ShowModal;
  138. end;
  139.  
  140.  
  141. procedure TFrmMain.BtnExitClick(Sender: TObject);
  142. begin
  143.   Close;
  144. end;
  145.  
  146. procedure TFrmMain.BtnPanelClick(Sender: TObject);
  147. begin
  148.   FrmPanelEditor := TFrmPanelEditor.Create( Application );
  149.   FrmPanelEditor.ShowModal;
  150. end;
  151.  
  152. procedure TFrmMain.BtnProgressClick(Sender: TObject);
  153. begin
  154.   FrmProgress.ShowModal;
  155. end;
  156.  
  157. procedure TFrmMain.BtnDataClick(Sender: TObject);
  158. begin
  159.   FrmData1 := TFrmData1.Create( Application );
  160.   FrmData1.ShowModal;
  161. end;
  162.  
  163. procedure TFrmMain.BtnData2Click(Sender: TObject);
  164. begin
  165.   FrmData2 := TFrmData2.Create( Application );
  166.   FrmData2.ShowModal;
  167. end;
  168.  
  169. procedure TFrmMain.RzPanel2Enter(Sender: TObject);
  170. begin
  171.   LblToolbar.Font.Color := clRed;
  172. end;
  173.  
  174. procedure TFrmMain.RzPanel2Exit(Sender: TObject);
  175. begin
  176.   LblToolbar.Font.Color := clWhite;
  177. end;
  178.  
  179. procedure TFrmMain.MouseEnter(Sender: TObject);
  180. begin
  181.   TRzLabel( Sender ).Font.Color := clPurple;
  182. end;
  183.  
  184. procedure TFrmMain.MouseLeave(Sender: TObject);
  185. begin
  186.   TRzLabel( Sender ).Font.Color := clWhite;
  187. end;
  188.  
  189. end.
  190.