home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MiTeC_CtrlRtns.int < prev    next >
Text File  |  2003-08-26  |  3KB  |  60 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {             MiTeC Control Routines                    }
  4. {           version 1.0 for Delphi 5,6                  }
  5. {                                                       }
  6. {       Copyright ⌐ 1997,2002 Michal Mutl               }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. {$INCLUDE MITEC_DEF.INC}
  11.  
  12.  
  13. unit MiTeC_CtrlRtns;
  14.  
  15. interface
  16.  
  17. uses Classes, Controls, StdCtrls, ComCtrls, Windows, Dialogs, SysUtils, Forms, Graphics, Grids;
  18.  
  19. function ComponentToString(Component: TComponent): string;
  20.  
  21. procedure SetWinControlStatus(Sender: TWinControl; Enabled: Boolean; OnColor: TColor = clWhite; OffColor: TColor = clBtnFace);
  22.  
  23. procedure ListView_SaveToFile(Sender :TListView; AFileName: string);
  24. procedure ListView_LoadFromFile(Sender :TListView; AFileName: string);
  25. procedure ListView_LoadStrings(SourceList :TStringList; AListItems: TListItems; ADelimiter :Char; AImageIndex :Integer); overload;
  26. procedure ListView_LoadStrings(SourceList :TStrings; AListItems: TListItems; ADelimiter :Char; AImageIndex :Integer); overload;
  27. function ListView_CustomSort(Item1, Item2: TListItem; AColumn: integer): Integer;
  28. procedure ListView_DrawLine(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean; LineColor: TColor);
  29. function ListView_GetCheckedCount(Sender: TListView): Integer;
  30. procedure ListView_DrawCheckBox(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean; TrueValue: string);
  31.  
  32. function Form_Show(Sender: TFormClass): Boolean;
  33. procedure Form_SetVisible(Sender :TForm);
  34. procedure Form_SetInvisible(Sender :TForm);
  35. procedure Form_HideCaption(Sender :TForm);
  36. procedure Form_ShowCaption(Sender :TForm);
  37. procedure Form_Move(Sender: TWinControl);
  38.  
  39. function Tree_FindNode(Sender: TTreeView; AText: string): TTreeNode;
  40.  
  41. procedure Stat_SetText(Sender :TStatusBar; AIndex :integer; AText :string);
  42.  
  43.  
  44.  
  45. {
  46. procedure DBGrid_DrawCheckBoxes(Canvas: TCanvas; const Rect: TRect; Field: TField; Color: TColor; Selected: Boolean; TrueValue: variant);
  47. procedure DBGrid_DrawBitmaps(Canvas: TCanvas; const Rect: TRect; Field: TField; Color: TColor; Selected: Boolean; Bitmap: TBitmap; DrawText: boolean);
  48. }
  49.  
  50.  
  51. const
  52.   itemdelimiter = '|';
  53. var
  54.   ListView_SortColumn: Integer = -1;
  55.   ListView_SortDescending: boolean = False; 
  56.  
  57.  
  58. implementation
  59.  
  60.