[散300技术分]C++Builder下UI的酷炫效果代码

Waiting4you 2010-08-09 09:02:40

加精

最近刚升三星，貌似水分没什么意思，这里再散一次技术分。
当然，技术分是不能乱散D，那是会被妖哥给BS地，so，只要大家能给出任何使VCL原生组件变得更炫（界面或动画或功能补全之类的）的代码就给分！
如果给的代码实在是帅，偶另开帖加分~~嘻嘻

...全文

10222 210 打赏收藏转发到动态举报

写回复

用AI写文章

210 条回复

切换为时间正序

请发表友善的回复…

发表回复

黯月之刃 2013-05-02

打赏
举报

晕菜——这么久的帖子了啊

小乖乖_学技术 2013-04-17

打赏
举报

哈哈，果然是好贴

小猪飞侠 2013-04-13

打赏
举报

谢谢，学习了。

linkstm32 2011-11-01

打赏
举报

学习下

Lljcs2007 2011-05-12

打赏
举报

是我自己弄错，已经搞定。多谢共享！！！

Lljcs2007 2011-05-12

打赏
举报

楼主，还在？我也用不了你的那个TAutoComplete，报错！能否给出你截图的demo看看？谢谢啦。。

xflidengqiang2008 2010-11-01

打赏
举报

确是，学习了！

wenyongjie 2010-09-07

打赏
举报

不错啊

lovezypj 2010-08-31

打赏
举报

控件可以么？delphi 很对UI控件都同时提供BCB版本的

__lhy 2010-08-28

打赏
举报

学习之

小疮子 2010-08-28

打赏
举报

好多高手啊~~慢慢学习学习~~~

ggt87125 2010-08-20

打赏
举报

EHLIB 表格画金额线的代码





void __fastcall TEhGridDbDemoFrom::ProcGridDrawColumnCell(TObject *Sender, const TRect &Rect,

          int DataCol, TColumnEh *Column, Gridseh::TGridDrawState State)

{

	  if (Column->FieldName != "ReorderPoint") return;



			TDBGridEh *DBGrid1 = dynamic_cast <TDBGridEh *>(Sender);



			String DrawText = FormatFloat("0.00",DBGrid1->Fields[3]->AsCurrency); //Column->Field->AsCurrency



			DrawText = StringReplace(DrawText, ".", "", TReplaceFlags() << rfReplaceAll);

			bool BoolFZ = DrawText.SubString(1, 1) == "-";



			DBGrid1->Canvas->Brush->Color = clWhite;

			DBGrid1->Canvas->FillRect(Rect);

			DBGrid1->Canvas->Font->Color = clBlack;



			int SubTextWidth;

			int LineLeft, SubTextLeft, SubTextTop;

			String DrawSubText;



			for (int I = 1; I < 20; I++)

			{

				switch(I)

				{

					case 3:

						DBGrid1->Canvas->Pen->Color = clRed;

						break;

					case 1:

					case 6:

					case 9:

					case 12:

					case 15:

					case 18:

						DBGrid1->Canvas->Pen->Color = clGreen;

						break;

					default:

						DBGrid1->Canvas->Pen->Color = clGrayText;

						break;

				}



				SubTextWidth = DBGrid1->Canvas->TextWidth("0") + 4;



				if (BoolFZ)

				{

					if (I > DrawText.Length())

						DrawSubText = "";

					else

						DrawSubText = DrawText.SubString(DrawText.Length() - I + 2, 1);

				}

				else

				{

					if (I > DrawText.Length())

						DrawSubText = "";

					else

						DrawSubText = DrawText.SubString(DrawText.Length() - I + 1, 1);

				}



				//

				LineLeft = Rect.Right - SubTextWidth * (I - 1);

				SubTextLeft = LineLeft - SubTextWidth + 2;

				SubTextTop = Rect.Top + (Rect.Bottom - Rect.Top - DBGrid1->Canvas->TextHeight("0")) / 2;



				if (BoolFZ)

					DBGrid1->Canvas->Font->Color = clRed;



				DBGrid1->Canvas->TextOut(SubTextLeft, SubTextTop, DrawSubText);

				DBGrid1->Canvas->MoveTo(LineLeft, Rect.Top);

				DBGrid1->Canvas->LineTo(LineLeft, Rect.Bottom);

			}





}