home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / header1 / main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-21  |  1.1 KB  |  53 lines
  1. unit Main;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: HEADER1 }
  5.  
  6. { A simple example of using the Header Component.
  7.   Run the program, and use the mouse to grab the
  8.   line between the words Left and Right at the
  9.   top of the program. Now move the line back and
  10.   forth to the right and left. }
  11.  
  12. interface
  13.  
  14. uses
  15.   WinTypes, WinProcs, Classes,
  16.   Graphics, Forms, Controls,
  17.   ExtCtrls, StdCtrls, SysUtils;
  18.  
  19. type
  20.   TForm1 = class(TForm)
  21.     ListBox1: TListBox;
  22.     ListBox2: TListBox;
  23.     Header1: THeader;
  24.     procedure Header1Sized(Sender: TObject; ASection, AWidth: Integer);
  25.     procedure FormCreate(Sender: TObject);
  26.   end;
  27.  
  28. var
  29.   Form1: TForm1;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34.  
  35. procedure TForm1.Header1Sized(Sender: TObject; ASection, AWidth: Integer);
  36. begin
  37.   ListBox1.Width := Header1.SectionWidth[0] + 2;
  38. end;
  39.  
  40. procedure TForm1.FormCreate(Sender: TObject);
  41. var
  42.   i: Integer;
  43. begin
  44.   ListBox1.Width := Header1.SectionWidth[0] + 2;
  45.   for i := 0 to 75 do begin
  46.     ListBox1.Items.Add('ListBox1 => ' + IntToStr(i));
  47.     ListBox2.Items.Add('ListBox2 => ' + IntToStr(i));
  48.   end;
  49. end;
  50.  
  51. end.
  52.  
  53.