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

源码开发语言/平台
当前位置：首页 > 电子书籍 > VC书籍 > 查看源码
Unit1.cpp
资源名称：C++Builder.rar　[点击查看]
上传用户：lhxd_sz
上传日期：2014-10-02
资源大小：38814k
文件大小：2k
源码类别：

VC书籍

开发平台：

C++ Builder

Unit1.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Unit1.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. //---------------------------------------------------------------------------
  11. __fastcall TForm1::TForm1(TComponent* Owner)
  12.         : TForm(Owner)
  13. {
  14. }
  15. //---------------------------------------------------------------------------
  17. void __fastcall TForm1::Button1Click(TObject *Sender)
  18. {
  19.   StringGrid1->Cells[1][3]="北京n海淀区n中关村";
  20.   StringGrid1->Cells[2][3]="中华人民共和国西安";
  21.   StringGrid1->Cells[3][3]="上海";
  22.   StringGrid1->Cells[4][3]="深圳";
  23. }
  24. //---------------------------------------------------------------------------
  25. void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
  26.       int ARow, TRect &Rect, TGridDrawState State)
  27. {
  28.   int align;
  29.   if(ACol<1)return;
  30.   if(ARow<1)return;
  31.   StringGrid1->Canvas->Pen->Color=clWhite;
  32.   StringGrid1->Canvas->Brush->Color=clWhite;
  33.   StringGrid1->Canvas->Brush->Style=bsSolid;
  35.   StringGrid1->Canvas->Rectangle(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom);
  36.   align=2;
  37.   PaintText(Rect.Left+2,Rect.Top+2,ACol,StringGrid1->Cells[ACol][ARow],align);
  38. }
  39. //---------------------------------------------------------------------------
  40. void __fastcall TForm1::PaintText(int x,int y,int col,AnsiString text,int align)
  41. {
  42.   int ii,yy;
  43.   TStringList *str;
  44.   str=new TStringList();
  45.   str->Text=text;
  46.   yy=1;
  47.   for(ii=0;ii<str->Count;ii++)
  48.   {
  49.     PaintText1(x,y+yy,col,str->Strings[ii],align);
  50.     yy=yy+StringGrid1->Canvas->TextHeight(text);
  51.   }
  52.   delete str;
  53. }
  54. //---------------------------------------------------------------------------
  55. void __fastcall TForm1::PaintText1(int x,int y,int col,AnsiString text,int align)
  56. {
  57.   int colwd,ww;
  58.   colwd=StringGrid1->ColWidths[col];
  59.   if(align==1)
  60.   {
  61.     ww=StringGrid1->Canvas->TextWidth(text);
  62.     ww=colwd-ww;
  63.     ww/=2;
  64.     if(ww<0)ww=0;
  65.     StringGrid1->Canvas->TextOut(x+ww,y,text);
  66.   }
  67.   else if(align==2)
  68.   {
  69.     ww=StringGrid1->Canvas->TextWidth(text);
  70.     ww=colwd-ww;
  71.     if(ww<0)ww=0;
  72.     StringGrid1->Canvas->TextOut(x+ww,y,text);
  73.   }
  74.   else
  75.   {
  76.     StringGrid1->Canvas->TextOut(x,y,text);
  77.   }
  78. }
  79. //---------------------------------------------------------------------------