home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue31 / cm20 / CM20.ZIP / Demo / Main.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1997-12-31  |  2.4 KB  |  93 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.     Forms, SysUtils, WinTypes, WinProcs, Messages, ColMemo, 
  7.     StdCtrls,  Controls, ExtCtrls, Classes;
  8.  
  9. Var GoodHeight:Word;
  10.  
  11. type
  12.   TMainForm = class(TForm)
  13.     ToolBarPanel: TPanel;
  14.     Bevel1: TBevel;
  15.     Bevel3: TBevel;
  16.     Bevel2: TBevel;
  17.     Label7: TLabel;
  18.     ColorMemo3: TColorMemo;
  19.     ColorMemo4: TColorMemo;
  20.     ColorMemo1: TColorMemo;
  21.     ColorMemo2: TColorMemo;
  22.     procedure FormCreate(Sender: TObject);
  23.     procedure ColorMemo1HotSpotClick(Sender: TObject; const SRC: String);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.     procedure MinMax(var m: TWMGETMINMAXINFO); message wm_getminmaxinfo;
  29.   end;
  30.  
  31. var
  32.   MainForm: TMainForm;
  33.  
  34. implementation
  35. {$R *.DFM}
  36. uses cm_pasc, cm_html, cm_even, cm_hyper;
  37.  
  38. procedure TMainForm.FormCreate(Sender: TObject);
  39. var I: word;
  40. begin
  41.      { What size should we be ? }
  42.      with ToolBarPanel do begin
  43.           i:=0;
  44.           GoodHeight:=Controls[i].Top+Controls[i].Height;
  45.           for i:=1 to ControlCount-1 do
  46.               if Controls[i].Top+Controls[i].Height>GoodHeight then
  47.                  GoodHeight:=Controls[i].Top+Controls[i].Height;
  48.      end;
  49.      GoodHeight:= GoodHeight+
  50.                   +11+
  51.                   +GetSystemMetrics(SM_CYCAPTION);
  52.      Top:=0; Left:=0;
  53.      Width:=ROUND(GetSystemMetrics(SM_CXSCREEN));
  54.      Height:=GoodHeight;
  55.  
  56.      ColorMemo2.Width := Width - ColorMemo2.Left - 10;
  57.      ColorMemo2.WordWrap := TRUE;
  58. end;
  59.  
  60. procedure TMainForm.minmax(var m : TWMGETMINMAXINFO);
  61. begin
  62.      m.minmaxinfo^.ptmaxsize.x:=ROUND(GetSystemMetrics(SM_CXSCREEN    ));
  63.      m.minmaxinfo^.ptmaxsize.y:=GoodHeight;
  64.      m.minmaxinfo^.ptmaxTracksize.x:=ROUND(GetSystemMetrics(SM_CXSCREEN    ));
  65.      m.minmaxinfo^.ptmaxTracksize.y:=GoodHeight;
  66.      m.minmaxinfo^.ptminTracksize.x:=600;
  67.      m.minmaxinfo^.ptminTracksize.y:=GoodHeight;
  68. end;
  69.  
  70. procedure TMainForm.ColorMemo1HotSpotClick(Sender: TObject;
  71.   const SRC: String);
  72. begin
  73.   If SRC = 'Pascal' then 
  74.     FrmPascalDemo.Show
  75.   else
  76.   if SRC = 'HTML' then
  77.     FrmHTMLDemo.Show
  78.   else
  79.   if SRC = 'Events' then
  80.     FrmEventsDemo.Show
  81.   else
  82.   if SRC = 'HyperText' then
  83.     FrmHyperTextDemo.Show
  84.   else
  85.   if SRC = 'help file' then begin
  86.     Application.HelpFile := 'colormemo.hlp';
  87.     Application.HelpCommand(Help_Contents,0);
  88.   end;
  89. end;
  90.  
  91. end.
  92.  
  93.