home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / windows / listch / tlistchk.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1994-06-04  |  1.1 KB  |  38 lines
  1. unit TListChk;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Objects, OWindows, ODialogs;
  6.  
  7. type
  8.  
  9.     PListChkBox = ^TListChkBox;
  10.     TListChkBox = object(TListBox)
  11.      constructor Init(AParent: PWindowsObject; AnId: integer; X,Y,H,W: integer);
  12.      constructor InitResource(AParent: PWindowsObject; AnId: integer);
  13.      procedure   WMCommand(var Msg: TMessage); virtual wm_First+wm_Command;
  14.     end;
  15.  
  16. implementation
  17.  
  18. constructor TListChkBox.Init(AParent: PWindowsObject; AnId: integer; X,Y,H,W: integer);
  19. begin
  20.      inherited Init(AParent, AnId, X,Y,W,H);
  21.      Attr.Style := (Attr.Style or LBS_OWNERDRAWFIXED or LBS_HASSTRINGS and not LBS_SORT);
  22. end;
  23.  
  24. constructor TListChkBox.InitResource(AParent: PWindowsObject; AnId: integer);
  25. begin
  26.      inherited InitResource(AParent, AnID);
  27.      Attr.Style := (Attr.Style or LBS_OWNERDRAWFIXED or LBS_HASSTRINGS and not LBS_SORT);
  28. end;
  29.  
  30. procedure TListChkBox.WMCommand(var Msg: TMessage);
  31. begin
  32.     if Msg.wParam > 999 then
  33.       PostMessage(Parent^.HWindow, WM_COMMAND, Msg.wParam, Msg.lParam);
  34.      inherited WMCommand(msg);
  35. end;
  36.  
  37.  
  38. end.