home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / rzcomps.exe / DEMO / SPLITFRM.PA_ / SPLITFRM.PA
Text File  |  1996-10-18  |  3KB  |  94 lines
  1. unit Splitfrm;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, RzSpnEdt, RzSplit, ExtCtrls, RzPanel, RzRadGrp, StdCtrls,
  8.   FileCtrl, RzFilSys, RzLabel;
  9.  
  10. type
  11.   TFrmSplitter = class(TForm)
  12.     RzPanel1: TRzPanel;
  13.     GrpOrientation: TRzRadioGroup;
  14.     SpnSplitterWidth: TRzSpinEdit;
  15.     SpnColumns: TRzSpinEdit;
  16.     RzLabel1: TRzLabel;
  17.     RzLabel2: TRzLabel;
  18.     ChkRealTimeDrag: TCheckBox;
  19.     SplPreview: TRzSplitter;
  20.     LstDirs: TRzDirectoryListBox;
  21.     GrpVisible: TRzRadioGroup;
  22.     RzLabel3: TRzLabel;
  23.     RzDriveComboBox1: TRzDriveComboBox;
  24.     RzLabel4: TRzLabel;
  25.     Button1: TButton;
  26.     LstFiles: TRzFileListBox;
  27.     procedure SpnSplitterWidthChange(Sender: TObject);
  28.     procedure GrpOrientationClick(Sender: TObject);
  29.     procedure SpnColumnsChange(Sender: TObject);
  30.     procedure FormCreate(Sender: TObject);
  31.     procedure ChkRealTimeDragClick(Sender: TObject);
  32.     procedure GrpVisibleClick(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.     procedure WMGetMinMaxInfo( var Msg : TWMGetMinMaxInfo ); message wm_GetMinMaxInfo;
  36.   public
  37.     { Public declarations }
  38.   end;
  39.  
  40. var
  41.   FrmSplitter: TFrmSplitter;
  42.  
  43. implementation
  44.  
  45. {$R *.DFM}
  46.  
  47. uses
  48.   RzCommon;
  49.  
  50. procedure TFrmSplitter.WMGetMinMaxInfo( var Msg : TWMGetMinMaxInfo );
  51. begin
  52.   Msg.MinMaxInfo^.ptMinTrackSize := Point( 470, 375 );
  53. end;
  54.  
  55.  
  56. procedure TFrmSplitter.SpnSplitterWidthChange(Sender: TObject);
  57. begin
  58.   SplPreview.SplitterWidth := SpnSplitterWidth.IntValue;
  59. end;
  60.  
  61. procedure TFrmSplitter.GrpOrientationClick(Sender: TObject);
  62. begin
  63.   SplPreview.Orientation := TOrientation( GrpOrientation.ItemIndex );
  64. end;
  65.  
  66. procedure TFrmSplitter.SpnColumnsChange(Sender: TObject);
  67. begin
  68.   LstFiles.Columns := SpnColumns.IntValue;
  69. end;
  70.  
  71. procedure TFrmSplitter.FormCreate(Sender: TObject);
  72. begin
  73.   LstDirs.Hint := 'The RzDirectoryListBox'#13'supports long file names';
  74.   {$IFDEF WIN32}
  75.   LstFiles.Hint := 'The RzFileListBox supports'#13'multiple columns'#13'and displays the shell icons';
  76.   {$ELSE}
  77.   LstFiles.Hint := 'The RzFileListBox supports'#13'long file names and'#13'multiple columns';
  78.   {$ENDIF}
  79.   GrpOrientation.Hint := 'This is an RzRadioGroup'#13'with a custom border';
  80. end;
  81.  
  82. procedure TFrmSplitter.ChkRealTimeDragClick(Sender: TObject);
  83. begin
  84.   SplPreview.RealTimeDrag := ChkRealTimeDrag.Checked;
  85. end;
  86.  
  87. procedure TFrmSplitter.GrpVisibleClick(Sender: TObject);
  88. begin
  89.   SplPreview.UpperLeft.Pane.Visible := GrpVisible.ItemIndex in [ 0, 1 ];
  90.   SplPreview.LowerRight.Pane.Visible := GrpVisible.ItemIndex in [ 0, 2 ];
  91. end;
  92.  
  93. end.
  94.