开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
paintu.h
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

paintu.h：源码内容
  1. //---------------------------------------------------------------------------
  2. #ifndef paintuH
  3. #define paintuH
  4. //---------------------------------------------------------------------------
  5. #include <Classes.hpp>
  6. #include <Controls.hpp>
  7. #include <StdCtrls.hpp>
  8. #include <Forms.hpp>
  9. #include "fcButton.hpp"
  10. #include "fcButtonGroup.hpp"
  11. #include "fcClearPanel.hpp"
  12. #include "fcColorCombo.hpp"
  13. #include "fcCombo.hpp"
  14. #include "fcImgBtn.hpp"
  15. #include "fcLabel.hpp"
  16. #include "fcOutlookBar.hpp"
  17. #include "fcOutlookList.hpp"
  18. #include "fcShapeBtn.hpp"
  19. #include <ExtCtrls.hpp>
  20. #include <ImgList.hpp>
  21. //---------------------------------------------------------------------------
  22. //TDrawingTool = (dtLine, dtRectangle, dtEllipse, dtRoundRect);
  23. enum TDrawingTool { dtLine, dtRectangle, dtEllipse, dtRoundRect};
  25. class TPaintForm : public TForm
  26. {
  27. __published: // IDE-managed Components
  28.         TImage *PaintBox;
  29.         TfcOutlookBar *fcControlBar1;
  30.         TfcShapeBtn *fcControlBar1fcShapeBtn1;
  31.         TfcShapeBtn *fcControlBar1fcShapeBtn2;
  32.         TfcShapeBtn *fcControlBar1fcShapeBtn3;
  33.         TfcShapeBtn *fcControlBar1fcShapeBtn4;
  34.         TfcOutlookList *ToolsOutlookList;
  35.         TfcOutlookList *BrushesOutlookList;
  36.         TfcOutlookList *PensOutlookList;
  37.         TfcLabel *fcLabel1;
  38.         TfcLabel *fcLabel2;
  39.         TfcColorCombo *BrushColorCombo;
  40.         TfcColorCombo *PenColorCombo;
  41.         TImageList *BrushImages;
  42.         TImageList *PenImages;
  43.         TImageList *ToolImages;
  44.         void __fastcall FormCreate(TObject *Sender);
  45.         void __fastcall FormActivate(TObject *Sender);
  46.         void __fastcall FormShow(TObject *Sender);
  47.         void __fastcall PaintBoxMouseDown(TObject *Sender,
  48.           TMouseButton Button, TShiftState Shift, int X, int Y);
  49.         void __fastcall PaintBoxMouseMove(TObject *Sender,
  50.           TShiftState Shift, int X, int Y);
  51.         void __fastcall PaintBoxMouseUp(TObject *Sender,
  52.           TMouseButton Button, TShiftState Shift, int X, int Y);
  53. private: // User declarations
  54.         bool Drawing;
  55.         bool InfoShown;
  56.         TPoint Origin, MovePt;
  57. public: // User declarations
  58.         __fastcall TPaintForm(TComponent* Owner);
  59.         void __fastcall DrawShape(TPoint *TopLeft,TPoint *BottomRight, TPenMode AMode);
  60. };
  61. //---------------------------------------------------------------------------
  62. extern PACKAGE TPaintForm *PaintForm;
  63. //---------------------------------------------------------------------------
  64. #endif