qcadwin/Version.cpp

   1 //---------------------------------------------------------------------------\r
   2 #include <vcl.h>\r
   3 #include <shellapi.h>\r
   4 #pragma hdrstop\r
   5 \r
   6 #include "Version.h"\r
   7 //---------------------------------------------------------------------------\r
   8 #pragma package(smart_init)\r
   9 #pragma resource "*.dfm"\r
  10 TFVersion *FVersion;\r
  11 \r
  12 extern char * Version;\r
  13 extern char * QCADHP;\r
  14 \r
  15 //---------------------------------------------------------------------------\r
  16 __fastcall\r
  17 TFVersion::TFVersion(TComponent* Owner) : TForm(Owner) {\r
  18   lbVersion->Caption = Version;\r
  19   lbURL->Caption = QCADHP;\r
  20 }\r
  21 //---------------------------------------------------------------------------\r
  22 void __fastcall\r
  23 TFVersion::lbURLClick(TObject *Sender) {\r
  24   ShellExecute(Handle,NULL,QCADHP,NULL,NULL,SW_SHOW);\r
  25 }\r
  26 //---------------------------------------------------------------------------\r
  27 void __fastcall\r
  28 TFVersion::lbURLMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) {\r
  29   if (Screen->Cursor != crHandPoint) {\r
  30     Screen->Cursor = crHandPoint;\r
  31   }\r
  32 }\r
  33 //---------------------------------------------------------------------------\r
  34 void __fastcall\r
  35 TFVersion::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) {\r
  36   if (Screen->Cursor == crHandPoint) {\r
  37     Screen->Cursor = crDefault;\r
  38   }\r
  39 }\r
  40 //---------------------------------------------------------------------------\r
  41 \r