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

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

Delphi控件源码

开发平台：

Delphi

paintu.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "paintu.h"
  6. #include "infounit.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma link "fcButton"
  10. #pragma link "fcButtonGroup"
  11. #pragma link "fcClearPanel"
  12. #pragma link "fcColorCombo"
  13. #pragma link "fcCombo"
  14. #pragma link "fcImgBtn"
  15. #pragma link "fcLabel"
  16. #pragma link "fcOutlookBar"
  17. #pragma link "fcOutlookList"
  18. #pragma link "fcShapeBtn"
  19. #pragma resource "*.dfm"
  20. TPaintForm *PaintForm;
  21. //---------------------------------------------------------------------------
  22. __fastcall TPaintForm::TPaintForm(TComponent* Owner)
  23.         : TForm(Owner)
  24. {
  25. }
  26. //---------------------------------------------------------------------------
  27. void __fastcall TPaintForm::FormCreate(TObject *Sender)
  28. {
  29.  InfoForm = new TInfoForm(this);
  30. }
  31. //---------------------------------------------------------------------------
  32. void __fastcall TPaintForm::FormActivate(TObject *Sender)
  33. {
  34.   if (!InfoShown) {
  35.     InfoForm->Show();
  36.     InfoShown = True;
  37.   }
  38. }
  39. //---------------------------------------------------------------------------
  40. void __fastcall TPaintForm::FormShow(TObject *Sender)
  41. {
  42.   PaintBox->Canvas->Brush->Color = clWhite;
  43.   PaintBox->Canvas->FillRect(PaintBox->ClientRect);
  44. }
  45. //---------------------------------------------------------------------------
  46. void __fastcall TPaintForm::DrawShape(TPoint *TopLeft,TPoint *BottomRight, TPenMode AMode)
  47. {
  48.  PaintBox->Canvas->Brush->Color = BrushColorCombo->SelectedColor;
  49.  PaintBox->Canvas->Pen->Color = PenColorCombo->SelectedColor;
  50.  PaintBox->Canvas->Pen->Mode = AMode;
  52.  if (BrushesOutlookList->Selected != NULL)
  53.     PaintBox->Canvas->Brush->Style = (TBrushStyle)(BrushesOutlookList->Selected->Index);
  55.  if (PensOutlookList->Selected != NULL)
  56.     PaintBox->Canvas->Pen->Style = (TPenStyle)(PensOutlookList->Selected->Index);
  58.  if (ToolsOutlookList->Selected != NULL)
  59.     switch ((TDrawingTool)(ToolsOutlookList->Selected->Index)) {
  60.     case dtLine: PaintBox->Canvas->MoveTo(TopLeft->x, TopLeft->y);
  61.                  PaintBox->Canvas->LineTo(BottomRight->x, BottomRight->y);
  62.                  break;
  63.     case dtRectangle: PaintBox->Canvas->Rectangle(TopLeft->x, TopLeft->y, BottomRight->x,
  64.          BottomRight->y);
  65.          break;
  66.     case dtEllipse: PaintBox->Canvas->Ellipse(TopLeft->x, TopLeft->y, BottomRight->x,
  67.          BottomRight->y);
  68.          break;
  69.     case dtRoundRect: PaintBox->Canvas->RoundRect(TopLeft->x, TopLeft->y, BottomRight->x,
  70.          BottomRight->y, (TopLeft->x - BottomRight->x) / 2,
  71.         (TopLeft->y - BottomRight->y) / 2);
  72.     }
  73. }
  74. //---------------------------------------------------------------------------
  75. void __fastcall TPaintForm::PaintBoxMouseDown(TObject *Sender,
  76.       TMouseButton Button, TShiftState Shift, int X, int Y)
  77. {
  78.   Drawing = true;
  79.   PaintBox->Canvas->MoveTo(X, Y);
  80.   Origin = Point(X, Y);
  81.   MovePt = Origin;
  82. }
  83. //---------------------------------------------------------------------------
  84. void __fastcall TPaintForm::PaintBoxMouseMove(TObject *Sender,
  85.       TShiftState Shift, int X, int Y)
  86. {
  87.   if (Drawing) {
  88.     DrawShape(&Origin, &MovePt, pmNotXor);
  89.     MovePt = Point(X, Y);
  90.     DrawShape(&Origin, &MovePt, pmNotXor);
  91.   }
  92. }
  93. //---------------------------------------------------------------------------
  94. void __fastcall TPaintForm::PaintBoxMouseUp(TObject *Sender,
  95.       TMouseButton Button, TShiftState Shift, int X, int Y)
  96. {
  97.   TPoint temppt;
  98.   temppt = Point(X,Y);
  99.   if (Drawing) {
  100.     DrawShape(&Origin, &temppt, pmCopy);
  101.     Drawing = false;
  102.   }
  103. }
  104. //---------------------------------------------------------------------------