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

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

Delphi控件源码

开发平台：

Delphi

orderformu.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "orderformu.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma link "fcButton"
  9. #pragma link "fcDemoRichEdit"
  10. #pragma link "fcImage"
  11. #pragma link "fcImageForm"
  12. #pragma link "fcImager"
  13. #pragma link "fcImgBtn"
  14. #pragma link "fcButtonGroup"
  15. #pragma link "fcClearPanel"
  16. #pragma link "fcOutlookBar"
  17. #pragma link "fcShapeBtn"
  18. #pragma resource "*.dfm"
  19. TOrderForm *OrderForm;
  20. //---------------------------------------------------------------------------
  21. __fastcall TOrderForm::TOrderForm(TComponent* Owner)
  22.         : TForm(Owner)
  23. {
  24. }
  26. //---------------------------------------------------------------------------
  27. //Get position of start of the current word.
  28. int GetStartOfWord(Char c1,Char c2,String s,int Index)
  29. {
  30.   if (Index == 0) Index = s.Length();
  31.   int i=Index;
  32.   if (i>s.Length()) i=s.Length();
  33.   while (i>=1) {
  34.     if ((s[i]==c1) || (s[i]==c2)) break;
  35.     i--;
  36.   }
  37.   return(i);
  38. }
  39. //---------------------------------------------------------------------------
  40. //Get the clicked on Word From a Point
  41. String GetWordFromPoint(TRichEdit *CurRichEdit,int x,int y)
  42. {
  43.   TPoint p=Point(x,y);
  44.   int CurSel = SendMessage(CurRichEdit->Handle, EM_CHARFROMPOS, 0, long(&p));
  45.   int Line = SendMessage(CurRichEdit->Handle, EM_EXLINEFROMCHAR, 0, CurSel);
  46.   String CurLineStr = CurRichEdit->Lines->Strings[Line];
  47.   int LineIndex = SendMessage(CurRichEdit->Handle, EM_LINEINDEX, Line, 0);
  49.   int Offset = CurSel - LineIndex;
  50.   if ((Offset > 0) && (CurLineStr[Offset] == ' ')) Offset=Offset+1;
  51.   if ((CurLineStr.Length()==0) || (Offset==0)) return ("");
  53.   //Get Start Index of Current Word.
  54.   int startWord = GetStartOfWord(' ','t' , CurLineStr, Offset + 1) + 1;
  56.   //Loop from current offset til next whitespace.
  57.   if (Offset <= CurLineStr.Length()) 
  58.   while (!((CurLineStr[Offset] == ' ') ||
  59.          (CurLineStr[Offset] == 't') ||
  60.          (CurLineStr[Offset] == 'n') ||
  61.          (CurLineStr[Offset] == '') ||
  62.          (CurLineStr[Offset] == 'r')))
  63.   {
  64.     Offset++;
  65.     if (Offset>=CurLineStr.Length()){
  66.       Offset++;
  67.       break;
  68.      }
  69.   }
  70.   return(CurLineStr.SubString(startWord,Offset-startWord));
  71. }
  73. void __fastcall TOrderForm::OrderingButtonClick(TObject *Sender)
  74. {
  75.   fcOutlookBar1->ActivePage = Ordering;
  76. }
  77. //---------------------------------------------------------------------------
  79. void __fastcall TOrderForm::AboutButtonClick(TObject *Sender)
  80. {
  81.   fcOutlookBar1->ActivePage = About;
  82. }
  83. //---------------------------------------------------------------------------
  85. void __fastcall TOrderForm::PricesButtonClick(TObject *Sender)
  86. {
  87.   fcOutlookBar1->ActivePage = Prices;
  88. }
  89. //---------------------------------------------------------------------------
  91. void __fastcall TOrderForm::CloseBtnClick(TObject *Sender)
  92. {
  93.   Close();
  94. }
  95. //---------------------------------------------------------------------------
  96. void __fastcall TOrderForm::OrderingDescriptionMouseMove(TObject *Sender,
  97.       TShiftState Shift, int X, int Y)
  98. {
  99.  if ((GetWordFromPoint((TRichEdit *)Sender,X,Y) == "http://www.woll2woll.com") ||
  100.      (GetWordFromPoint((TRichEdit *)Sender,X,Y) == "sales@woll2woll.com")) {
  101.     ((TRichEdit *)Sender)->Cursor = crHandPoint;
  102.  } else ((TRichEdit *)Sender)->Cursor = crDefault;
  103. }
  104. //---------------------------------------------------------------------------
  105. void __fastcall TOrderForm::OrderingDescriptionMouseDown(TObject *Sender,
  106.       TMouseButton Button, TShiftState Shift, int X, int Y)
  107. {
  108.  if (GetWordFromPoint((TRichEdit *)Sender,X,Y) == "http://www.woll2woll.com") {
  109.      ShellExecute(Handle, "OPEN",
  110.      PChar("https://www.he.net/cgi-bin/suid/~wol2wol/ordering/order.cgi"), 0, 0, SW_SHOWNORMAL);
  111.  } else if (GetWordFromPoint((TRichEdit *)Sender,X,Y) == "sales@woll2woll.com") {
  112.      ShellExecute(Handle, "OPEN",
  113.      PChar("mailto:sales@woll2woll.com"), 0, 0, SW_SHOWNORMAL);
  114.  }
  115. }
  116. //---------------------------------------------------------------------------