home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / delphi / kompon / d56 / MSYSINFO.ZIP / D6 / MSI_DetailDlg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-01-03  |  1.5 KB  |  66 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {          MiTeC System Information Component           }
  5. {                Detail Info Dialog                     }
  6. {           version 7.0 for Delphi 5,6                  }
  7. {                                                       }
  8. {       Copyright ⌐ 1997,2002 Michal Mutl               }
  9. {                                                       }
  10. {*******************************************************}
  11.  
  12.  
  13. unit MSI_DetailDlg;
  14.  
  15. interface
  16.  
  17. uses
  18.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  19.   StdCtrls, ExtCtrls, CheckLst, ComCtrls;
  20.  
  21. type
  22.   TdlgMSI_Detail = class(TForm)
  23.     ButtonPanel: TPanel;
  24.     Panel: TPanel;
  25.     bOK: TButton;
  26.     ClientPanel: TPanel;
  27.     Notebook: TNotebook;
  28.     Memo: TMemo;
  29.     clb: TCheckListBox;
  30.     lb: TListBox;
  31.     lv: TListView;
  32.     TitlePanel: TPanel;
  33.     Image1: TImage;
  34.     Image2: TImage;
  35.     procedure clbClickCheck(Sender: TObject);
  36.   private
  37.   public
  38.   end;
  39.  
  40. var
  41.   dlgMSI_Detail: TdlgMSI_Detail;
  42.  
  43. implementation
  44.  
  45. {$R *.DFM}
  46.  
  47. procedure TdlgMSI_Detail.clbClickCheck(Sender: TObject);
  48. var
  49.   OCC: TNotifyEvent;
  50.   idx: integer;
  51.   p: TPoint;
  52. begin
  53.   with TCheckListBox(Sender) do begin
  54.     OCC:=OnClickCheck;
  55.     OnClickCheck:=nil;
  56.     GetCursorPos(p);
  57.     p:=ScreenToClient(p);
  58.     idx:=ItemAtPos(p,True);
  59.     if idx>-1 then
  60.       Checked[idx]:=not Checked[idx];
  61.     OnClickCheck:=OCC;
  62.   end;
  63. end;
  64.  
  65. end.
  66.