home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kompon / d123456 / CHEMPLOT.ZIP / Misc / Mlabel.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  2001-07-31  |  3.7 KB  |  113 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'Mlabel.pas' rev: 3.00
  6.  
  7. #ifndef MlabelHPP
  8. #define MlabelHPP
  9. #include <Misc.hpp>
  10. #include <StdCtrls.hpp>
  11. #include <Menus.hpp>
  12. #include <Graphics.hpp>
  13. #include <Forms.hpp>
  14. #include <Controls.hpp>
  15. #include <Windows.hpp>
  16. #include <SysUtils.hpp>
  17. #include <Classes.hpp>
  18. #include <SysInit.hpp>
  19. #include <System.hpp>
  20.  
  21. //-- user supplied -----------------------------------------------------------
  22.  
  23. namespace Mlabel
  24. {
  25. //-- type declarations -------------------------------------------------------
  26. enum TDirection { dRight, dLeft, dUp, dDown };
  27.  
  28. enum et_Popup { puBorders, puBorderWidth, puColor, puDirection, puEdit, puFont, puLineLength, puSameColor, 
  29.     puTransparent };
  30.  
  31. typedef int TBorderWidth;
  32.  
  33. class DELPHICLASS TMultiLabel;
  34. class PASCALIMPLEMENTATION TMultiLabel : public Stdctrls::TCustomLabel 
  35. {
  36.     typedef Stdctrls::TCustomLabel inherited;
  37.     
  38. private:
  39.     TFormBorderStyle FBorderStyle;
  40.     TBorderWidth FBorderWidth;
  41.     Classes::TStringList* FCaption;
  42.     TDirection FDirection;
  43.     Word FLineLength;
  44.     Stdctrls::TMemo* TextEdit;
  45.     Menus::TPopupMenu* MyPopup;
  46.     void __fastcall SetCaption(Classes::TStringList* Value);
  47.     void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  48.     void __fastcall SetBorderWidth(TBorderWidth Value);
  49.     void __fastcall SetDirection(TDirection Value);
  50.     void __fastcall SetLineLength(Word Value);
  51.     
  52. protected:
  53.     HIDESBASE void __fastcall DoDrawText(System::AnsiString Text, Windows::TRect &Rect, int Flags);
  54.     virtual Graphics::TColor __fastcall ExtractColor(int Index);
  55.     virtual Graphics::TPenStyle __fastcall ExtractPenStyle(int Index);
  56.     virtual System::AnsiString __fastcall ExtractText(int Index);
  57.     virtual void __fastcall Outline(void);
  58.     virtual void __fastcall SetSize(void);
  59.     DYNAMIC void __fastcall DblClick(void);
  60.     void __fastcall EditFinished(System::TObject* Sender);
  61.     void __fastcall EditKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
  62.     
  63. public:
  64.     __fastcall virtual TMultiLabel(Classes::TComponent* AOwner);
  65.     __fastcall virtual ~TMultiLabel(void);
  66.     virtual void __fastcall Paint(void);
  67.     
  68. __published:
  69.     __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, nodefault};
  70.     __property TBorderWidth BorderWidth = {read=FBorderWidth, write=SetBorderWidth, nodefault};
  71.     __property Classes::TStringList* Caption = {read=FCaption, write=SetCaption};
  72.     __property TDirection Direction = {read=FDirection, write=SetDirection, nodefault};
  73.     __property Word LineLength = {read=FLineLength, write=SetLineLength, nodefault};
  74.     __property Align ;
  75.     __property Alignment ;
  76.     __property AutoSize ;
  77.     __property Color ;
  78.     __property DragCursor ;
  79.     __property DragMode ;
  80.     __property Enabled ;
  81.     __property FocusControl ;
  82.     __property Font ;
  83.     __property ParentColor ;
  84.     __property ParentFont ;
  85.     __property ParentShowHint ;
  86.     __property PopupMenu ;
  87.     __property ShowAccelChar ;
  88.     __property ShowHint ;
  89.     __property Transparent ;
  90.     __property Visible ;
  91.     __property OnClick ;
  92.     __property OnDblClick ;
  93.     __property OnDragDrop ;
  94.     __property OnDragOver ;
  95.     __property OnEndDrag ;
  96.     __property OnMouseDown ;
  97.     __property OnMouseMove ;
  98.     __property OnMouseUp ;
  99. };
  100.  
  101. //-- var, const, procedure ---------------------------------------------------
  102. #define TMULTILABEL_VERSION (Byte)(100)
  103. #define NULL (Byte)(0)
  104. extern PACKAGE System::AnsiString __fastcall GetWord(System::AnsiString &This_Line, System::AnsiString 
  105.     Delimiter);
  106.  
  107. }    /* namespace Mlabel */
  108. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  109. using namespace Mlabel;
  110. #endif
  111. //-- end unit ----------------------------------------------------------------
  112. #endif    // Mlabel
  113.