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

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

Delphi控件源码

开发平台：

Delphi

statusbaru.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "statusbaru.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma link "fcButton"
  9. #pragma link "fcButtonGroup"
  10. #pragma link "fcClearPanel"
  11. #pragma link "fcDemoRichEdit"
  12. #pragma link "fcImgBtn"
  13. #pragma link "fcLabel"
  14. #pragma link "fcStatusBar"
  15. #pragma link "CGAUGES"
  16. #pragma resource "*.dfm"
  17. TStatusBarDemoForm *StatusBarDemoForm;
  18. //---------------------------------------------------------------------------
  19. __fastcall TStatusBarDemoForm::TStatusBarDemoForm(TComponent* Owner)
  20.         : TForm(Owner)
  21. {
  22. }
  23. //---------------------------------------------------------------------------
  24. void __fastcall TStatusBarDemoForm::fcButtonGroup1Change(
  25.       TfcCustomButtonGroup *ButtonGroup, TfcButtonGroupItem *OldSelected,
  26.       TfcButtonGroupItem *Selected)
  27. {
  28.   if (OldSelected->Button != NULL)
  29.       OldSelected->Button->Font->Color = clBlack;
  30.   Selected->Button->Font->Color = clRed;
  32.   PageControl1->ActivePage =
  33.      ((TTabSheet *)FindComponent("TabSheet"+IntToStr(Selected->Button->Tag)));
  34. }
  35. //---------------------------------------------------------------------------
  36. void __fastcall TStatusBarDemoForm::Close1Click(TObject *Sender)
  37. {
  38. Close();        
  39. }
  40. //---------------------------------------------------------------------------
  41. void __fastcall TStatusBarDemoForm::fcLabel1Click(TObject *Sender)
  42. {
  43.  ShellExecute(Handle, "OPEN",
  44.    PChar("https://www.he.net/cgi-bin/suid/~wol2wol/ordering/order.cgi"), 0, 0, SW_SHOWNORMAL);
  45. }
  46. //---------------------------------------------------------------------------
  47. void __fastcall TStatusBarDemoForm::fcLabel1MouseEnter(TObject *Sender)
  48. {
  49.   ((TfcLabel *)Sender)->Font->Color = clBlue;        
  50. }
  51. //---------------------------------------------------------------------------
  52. void __fastcall TStatusBarDemoForm::fcLabel1MouseLeave(TObject *Sender)
  53. {
  54.   ((TfcLabel *)Sender)->Font->Color = clBlack;        
  55. }
  56. //---------------------------------------------------------------------------
  57. void __fastcall TStatusBarDemoForm::fcStatusBar7Panels0DrawText(
  58.       TfcStatusPanel *Panel, AnsiString &Text, bool &Enabled)
  59. {
  60.   Text = "Current Line is: "+IntToStr(Panel->Row+1);        
  61. }
  62. //---------------------------------------------------------------------------
  63. void __fastcall TStatusBarDemoForm::fcStatusBar7Panels1DrawText(
  64.       TfcStatusPanel *Panel, AnsiString &Text, bool &Enabled)
  65. {
  66.   Text = "Current Column is: "+IntToStr(Panel->Col);        
  67. }
  68. //---------------------------------------------------------------------------
  69. void __fastcall TStatusBarDemoForm::fcStatusBar7Panels3DrawText(
  70.       TfcStatusPanel *Panel, AnsiString &Text, bool &Enabled)
  71. {
  72.   Text = "("+IntToStr(Panel->Row+1)+","+IntToStr(Panel->Col)+")";
  73. }
  74. //---------------------------------------------------------------------------
  75. void __fastcall TStatusBarDemoForm::fcStatusBar4Panels0DrawText(
  76.       TfcStatusPanel *Panel, AnsiString &Text, bool &Enabled)
  77. {
  78.  Text = "Computer Name: "+Text;
  79. }
  80. //---------------------------------------------------------------------------
  81. void __fastcall TStatusBarDemoForm::fcStatusBar4Panels1DrawText(
  82.       TfcStatusPanel *Panel, AnsiString &Text, bool &Enabled)
  83. {
  84.  Text = "User Name: "+Text;
  85. }
  86. //---------------------------------------------------------------------------
  87. void __fastcall TStatusBarDemoForm::fcStatusBar3Panels3DrawText(
  88.       TfcStatusPanel *Panel, AnsiString &Text, bool &Enabled)
  89. {
  90.   Text = FormatDateTime("dddddd",Date());        
  91. }
  92. //---------------------------------------------------------------------------
  93. void __fastcall TStatusBarDemoForm::Timer1Timer(TObject *Sender)
  94. {
  95.  ProgressBar1->StepIt();        
  96. }
  97. //---------------------------------------------------------------------------
  98. void __fastcall TStatusBarDemoForm::FormActivate(TObject *Sender)
  99. {
  100.  Animate1->Active = True;        
  101. }
  102. //---------------------------------------------------------------------------
  104. void __fastcall TStatusBarDemoForm::FormClose(TObject *Sender,
  105.       TCloseAction &Action)
  106. {
  107.  Animate1->Active = False;        
  108. }
  109. //---------------------------------------------------------------------------
  111. void __fastcall TStatusBarDemoForm::Control1Click(TObject *Sender)
  112. {
  113.   fcButtonGroup1->ButtonItems->Items[((TMenuItem *)Sender)->Tag]->Button->Down = True;
  114. }
  115. //---------------------------------------------------------------------------