画控件的几个函数

太过爱你忘了你带给我的痛 2023-11-20 06:26 107阅读 0赞

画控件的几个函数。主要使它们好看一点儿。

代码:  
\#ifndef DRAWCONTROLS\_H  
\#define DRAWCONTROLS\_H

\#include <math.h>  
\#include <Classes.hpp>  
\#include <Controls.hpp>  
\#include <StdCtrls.hpp>  
\#include <Forms.hpp>  
\#include <ComCtrls.hpp>  
\#include <ExtCtrls.hpp>  
\#include <Grids.hpp>  
\#include <ImgList.hpp>  
\#include <ToolWin.hpp>  
\#include <DBGrids.hpp>  
\#include <jpeg.hpp>  
\#include <ADODB.hpp>  
\#include <DB.hpp>  
\#include <Buttons.hpp>  
\#include <Graphics.hpp>  
\#include <StdIO.h>  
\#include <CheckLst.hpp>  
//---------------------------------------------------------------------------  
void DrawComboBox(TWinControl \*Control,int Index, TRect &Rect, TOwnerDrawState State)  
\{  
if(!(Index%2))  
((TComboBox\*)Control)->Canvas->Brush->Color = clWhite;  
else  
((TComboBox\*)Control)->Canvas->Brush->Color = TColor(RGB(240,240,240));

((TComboBox\*)Control)->Canvas->FillRect(Rect);

if(State.Contains(odSelected))  
\{  
((TComboBox\*)Control)->Canvas->Font->Color = clBlue;  
\}  
else  
\{  
((TComboBox\*)Control)->Canvas->Pen->Color = clWindowText;  
\}  
DrawText(((TComboBox\*)Control)->Canvas->Handle,  
((TComboBox\*)Control)->Items->Strings\[Index\].c\_str(),  
\-1,  
(RECT\*)&(TRect(Rect.left+2,Rect.top,Rect.right-2,Rect.bottom)),  
DT\_SINGLELINE | DT\_VCENTER |DT\_LEFT | DT\_WORDBREAK);  
\}  
//---------------------------------------------------------------------------  
void DrawStringGrid(TObject \*Sender, int ACol,int ARow, TRect &Rect, TGridDrawState State)  
\{  
String strText = ((TStringGrid\*)Sender)->Cells\[ACol\]\[ARow\];  
int x=0,y=0;  
x=Rect.left + (Rect.Width() - ((TStringGrid\*)Sender)->Canvas->TextWidth(strText))/2; //水平居中  
y=Rect.top + (Rect.Height() - ((TStringGrid\*)Sender)->Canvas->TextHeight(strText))/2;//水平居中  
if(ARow%2)  
if(State.Contains(gdFixed))  
((TStringGrid\*)Sender)->Canvas->Brush->Color = TColor(RGB(245,245,245));  
else  
((TStringGrid\*)Sender)->Canvas->Brush->Color = TColor(RGB(255,255,255));  
else  
if(State.Contains(gdFixed))  
((TStringGrid\*)Sender)->Canvas->Brush->Color = TColor(RGB(235,235,235));  
else  
((TStringGrid\*)Sender)->Canvas->Brush->Color = TColor(RGB(245,245,245));  
if(State.Contains(gdFixed))  
\{  
//((TStringGrid\*)Sender)->Canvas->Brush->Color = TColor(RGB(220,220,220));  
((TStringGrid\*)Sender)->Canvas->Font->Color = clNavy;  
\}  
else  
\{  
((TStringGrid\*)Sender)->Canvas->Font->Color = clBlack;  
\}

((TStringGrid\*)Sender)->Canvas->FillRect(Rect);

if(State.Contains(gdFocused))  
\{  
((TStringGrid\*)Sender)->Canvas->Font->Color = clBlue;  
\}  
  
DrawText(((TStringGrid\*)Sender)->Canvas->Handle,  
strText.c\_str(),  
\-1,  
(RECT\*)&(TRect(Rect.left+2,Rect.top,Rect.right-2,Rect.bottom)),  
DT\_SINGLELINE | DT\_VCENTER |DT\_LEFT | DT\_WORDBREAK);  
\}  
//---------------------------------------------------------------------------  
void DrawCustomListBox(TWinControl \*Control, int Index, TRect &Rect, TOwnerDrawState State)  
\{  
if(State.Contains(odFocused) || State.Contains(odSelected)) //选中行  
\{  
dynamic\_cast<TCustomListBox\*>(Control)->Canvas->Brush->Color = clSkyBlue;  
\}  
else  
\{  
if(Index%2) //偶数行  
dynamic\_cast<TCustomListBox\*>(Control)->Canvas->Brush->Color = (TColor)(RGB(240,240,240));  
else  
dynamic\_cast<TCustomListBox\*>(Control)->Canvas->Brush->Color = (TColor)(RGB(255,255,255));  
\}  
dynamic\_cast<TCustomListBox\*>(Control)->Canvas->FillRect(Rect);  
  
dynamic\_cast<TCustomListBox\*>(Control)->Canvas->Font->Color = clBlack;

String strText = dynamic\_cast<TCustomListBox\*>(Control)->Items->Strings\[Index\];  
DrawText(dynamic\_cast<TCustomListBox\*>(Control)->Canvas->Handle,  
strText.c\_str(),  
\-1,  
(RECT\*)&(TRect(Rect.left+2,Rect.top,Rect.right-2,Rect.bottom)),  
DT\_SINGLELINE | DT\_VCENTER |DT\_LEFT | DT\_WORDBREAK);  
\}  
//---------------------------------------------------------------------------  
\#endif