[散300技术分]C++Builder下UI的酷炫效果代码
最近刚升三星，貌似水分没什么意思，这里再散一次技术分。
当然，技术分是不能乱散D，那是会被妖哥给BS地，so，只要大家能给出任何使VCL原生组件变得更炫（界面或动画或功能补全之类的）的代码就给分！
如果给的代码实在是帅，偶另开帖加分~~嘻嘻
[解决办法]
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
name="XP style manifest"
processorArchitecture="x86"
version="1.0.0.0"
type="win32"/>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="x86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>
把上面的代码保存为XPStyle.manifest，然后建个rc文件 ，内容为1 24 "XPStyle.Manifest"
然后把rc文件加入工程，即可使bcb程序在xp系统以上时，可以拥有xp样式。。
这也是在论坛上学的。。。
[解决办法]
// 渐变填充,以下代码我自己都很少用，汗。都是直接用的皮肤组件
// .h
//---------------------------------------
#ifndef HmyGdiH
#define HmyGdiH
//---------------------------------------
#include <Classes.hpp>
#include <Graphics.hpp>
//---------------------------------------
namespace hmy
{
enum TGradientStyle { hmygsH = GRADIENT_FILL_RECT_H, hmygsV = GRADIENT_FILL_RECT_V };
extern PACKAGE void __fastcall CopyRects(TRect *rects, int size, const TRect &src);
extern PACKAGE void __fastcall SetTriVertex(TTriVertex &vert, Word x, Word y, TColor color, Word alpha);
// 渐变填充
extern PACKAGE void __fastcall DrawGradient(TCanvas *canvas, const TRect &rect,
TColor startColor, TColor endColor, hmy::TGradientStyle gstyle);
// 2次渐变填充,colors必须是4个
extern PACKAGE void __fastcall DrawGradient2(TCanvas *canvas, const TRect &rect,
TColor *colors, hmy::TGradientStyle gstyle);
}
//---------------------------------------
#endif
// .cpp
//---------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "HmyGdi.h"
#include <boost/scoped_array.hpp>
//---------------------------------------
#pragma package(smart_init)
#pragma comment(lib, "msimg32.lib")
//---------------------------------------
namespace hmy
{
//---------------------------------------
void __fastcall CopyRects(TRect *rects, int size, const TRect &src)
{
for (int i=0; i<size; i++)
rects[i] = src;
}
//---------------------------------------
void __fastcall SetTriVertex(TTriVertex &vert, Word x, Word y, TColor color, Word alpha)
{
vert.x = x;
vert.y = y;
vert.Red = GetRValue(color)<<8;
vert.Green = GetGValue(color)<<8;
vert.Blue = GetBValue(color)<<8;
vert.Alpha = alpha;
}
//---------------------------------------
void __fastcall DrawGradient(TCanvas *canvas, const TRect &rect,
TColor startColor, TColor endColor, hmy::TGradientStyle gstyle)
{
const int max_size = 2;
TTriVertex vert[max_size];
TGradientRect gRect;
hmy::SetTriVertex(vert[0], rect.Left, rect.Top, startColor, 0);
hmy::SetTriVertex(vert[1], rect.Right, rect.Bottom, endColor, 0);
gRect.UpperLeft = 0;
gRect.LowerRight = 1;
::GradientFill(canvas->Handle, &vert[0], max_size, &gRect, 1, (DWord)gstyle);
}
//---------------------------------------
// 2次渐变填充,colors必须是4个
void __fastcall DrawGradient2(TCanvas *canvas, const TRect &rect,
TColor *colors, hmy::TGradientStyle gstyle)
{
int times = 2;
boost::scoped_array<TRect> rects(new TRect[2]);
CopyRects(rects.get(), times, rect);
if (gstyle == hmy::hmygsV)
{
rects[0].Bottom = rect.Height() / 2 - 1;
rects[1].Top = rects[0].Bottom;
}
else if (gstyle == hmy::hmygsH)
{
rects[0].Right = rect.Width() / 2 - 1;
rects[1].Left = rects[0].Right;
}
DrawGradient(canvas, rects[0], colors[0], colors[1], gstyle);
DrawGradient(canvas, rects[1], colors[2], colors[3], gstyle);
}
}
//窗口的美化是使用无模式窗口。然后映射消息
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_NCHITTEST, TWMNCHitTest, wmnchittest)
VCL_MESSAGE_HANDLER(WM_NCMOUSEMOVE, TWMNCMouseMove, wmncmousemove)
END_MESSAGE_MAP(TForm)
//下面做消息的一些改变
void __fastcall TButForm::wmnchittest(TWMNCHitTest & msg)
{
//TODO: Add your source code here
TRect *cprect ; //定义标题栏的RECT（也就是一个正方形的区域）
TRect *minRect ; //最小化按纽的RECT
TRect *MaxRect ; //最大化按纽的RECT
TRect *CloseRect ; //关闭 按纽的RECT
TPoint pt ;//鼠标指针
cprect = &Rect(43, 1, Width-112, 29); //设置RECT
minRect = &Rect((Width - 81),5, (Width - 57), 20);
MaxRect = &Rect((Width - 56),1, (Width - 32), 20);
CloseRect = &Rect((Width - 31),1, (Width - 7), 20);
pt.x = ScreenToClient(Mouse->CursorPos).x;//鼠标X
pt.y = ScreenToClient(Mouse->CursorPos).y;// Y值
//准备欺骗系统了 ，因为BSNONE样式的窗体是没有这些返回消息的
if ( PtInRect(minRect,pt) )
msg.Result = HTMINBUTTON; //告诉它在最小化按纽这里
else if ( PtInRect(MaxRect,pt) )
msg.Result = HTMAXBUTTON; //告诉它在最大化按纽这里
else if ( PtInRect(CloseRect,pt) )
msg.Result = HTCLOSE; //告诉它在关闭 按纽这里
else if ( PtInRect(cprect,pt) )
msg.Result = HTCAPTION; //告诉它在标题栏这里
else if ( (pt.x<5) && (pt.y<5) )
msg.Result=HTTOPLEFT; //告诉它在左上角
else if ( (pt.x>Width-5) && (pt.y<5) )
msg.Result=HTTOPRIGHT; //告诉它在右上角
else if ( (pt.x >Width-5) && (pt.y>Height-5) )
msg.Result=HTBOTTOMRIGHT; //告诉它在右下角
else if ( (pt.x<5) && (pt.y>Height-5) )
msg.Result=HTBOTTOMLEFT; //告诉它在左下角
else if (pt.x<5)
msg.Result=HTLEFT;
else if (pt.y<5)
msg.Result=HTTOP;
else if (pt.x>Width-5)
msg.Result=HTRIGHT;
else if (pt.y>Height-5)
msg.Result=HTBOTTOM;
// inherited ;
TForm::Dispatch(&msg);
}
void __fastcall TButForm::wmncmousemove(TWMNCMouseMove & msg)
{
//TODO: Add your source code here
HDC dc ;
TCanvas *cv ;
dc = GetWindowDC(Handle);
cv = new TCanvas();
try
{
cv->Handle = dc;
if ( m_bDraw == true )
{
if ( msg.HitTest == HTMINBUTTON )
{
BitBlt(dc, (Width - 81), 5, 24, 20, imgmin->Canvas->Handle, 48, 0, SRCCOPY);
}
else
{
BitBlt(dc, (Width - 81), 5, 24, 20, imgmin->Canvas->Handle, 0, 0, SRCCOPY);
}
if ( msg.HitTest == HTMAXBUTTON )
{
if ( WindowState == wsNormal )
{
BitBlt(dc, (Width - 56), 5, 24, 20, imgMax->Canvas->Handle, 48, 0, SRCCOPY);
}
else if ( WindowState == wsMaximized )
{
BitBlt(dc, (Width - 56), 5, 24, 20, imgrestore->Canvas->Handle, 48, 0, SRCCOPY);
}
}
else
{
if ( WindowState == wsNormal )
{
BitBlt(dc, (Width - 56), 5, 24, 20, imgMax->Canvas->Handle, 0, 0, SRCCOPY);
}
else if ( WindowState == wsMaximized )
{
BitBlt(dc, (Width - 56), 5, 24, 20, imgrestore->Canvas->Handle,0, 0, SRCCOPY);
}
}
//close
if ( msg.HitTest == HTCLOSE )
{
BitBlt(dc, (Width - 31), 5, 24, 20, imgclose->Canvas->Handle, 48, 0, SRCCOPY);
}
else
{
BitBlt(dc, (Width - 31), 5, 24, 20, imgclose->Canvas->Handle, 0, 0, SRCCOPY);
}
}
}
__finally
{
ReleaseDC(Handle, cv->Handle);
delete cv;
}
TForm::Dispatch(msg);
}
//创建不规则窗体
void __fastcall TForm1::BmpToRgn(TImage *m_Image)
{
m_Image->AutoSize=true;
Form1->AutoSize=true;
Form1->BorderStyle=bsNone; //将Form的标题栏去掉
//以这个点的颜色为透明基准色
TColor ColorKey=m_Image->Canvas->Pixels[0][0];
int x,y;
int l,r;
POINT *a;
bool lb,rb;
HRGN wndrgn,temprgn;
if((a=(POINT *)malloc(Width*2*(sizeof(POINT))))==NULL)
{
ShowMessage("申请内存失败!");
exit(0);
}
l=0;
r=m_Image->Height*2-1;
wndrgn=CreateRectRgn(0,0,m_Image->Width,m_Image->Height);
for(y=0;y<m_Image->Height;y++)
{
lb=true;
for(x=0;x<m_Image->Width+1;x++)
if(m_Image->Canvas->Pixels[x][y]!=ColorKey)
{
a[l].x=x;
a[l].y=y;
lb=false;
break;
}
if(lb)
a[l]=a[l-1];
l++;
rb=true;
for(x=m_Image->Width;x>=0;x--)
if(m_Image->Canvas->Pixels[x][y]!=ColorKey)
{
a[r].x=x;
a[r].y=y;
rb=false;
break;
}
if(rb)
a[r]=a[r+1];
r--;
}
r=m_Image->Height*2-1;
for(y=0;y<m_Image->Height-1;y++)
{
for(x=a[y].x;x<=a[r].x;x++)
if(m_Image->Canvas->Pixels[x][y]==ColorKey)
{
temprgn=CreateRectRgn(x,y,x+1,y+1);
CombineRgn(wndrgn,wndrgn,temprgn,RGN_XOR);
DeleteObject(temprgn);
}
r--;
}
//temprgn=CreatePolygonRgn(a,m_Image->Height*2,ALTERNATE);
temprgn=CreatePolygonRgn(a,m_Image->Height*2,WINDING);
CombineRgn(wndrgn,wndrgn,temprgn,RGN_AND);
DeleteObject(temprgn);
delete a;
SetWindowRgn(Handle,wndrgn,true);
}
//.h
//---------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <StrUtils.hpp>
#include <ImgList.hpp>
#include <vector>
#include <algorithm>
#defineTHUMBNAIL_WIDTH100
#defineTHUMBNAIL_HEIGHT75
using std::min;
using std::max;
#include <gdiPlus.h>
using namespace Gdiplus;
//---------------------------------------
class TForm1 : public TForm
{
__published:// IDE-managed Components
TListView *m_ListThumbnail;
TButton *Button1;
TEdit *m_strImageDir;
TImageList *m_ImageListThumb;
TButton *Button2;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
private:// User declarations
BOOL __fastcall GetImageFileNames();
void __fastcall DrawThumbnails();
ULONG_PTR m_GdiplusToken;
GdiplusStartupInput m_GdiplusStartupInput;
public:// User declarations
__fastcall TForm1(TComponent* Owner);
__fastcall ~TForm1(void);
protected:
std::vector<String>m_VectorImageNames;// vector holding the image names
};
#pragma warn -bei //关闭枚举变量赋值的警告
class TWaitCursor
{
//自动处理等待光标，当函数调用栈解体时自动还原光标
private:
TCursor oldc;
public:
TWaitCursor(void) : oldc(Screen->Cursor){ Screen->Cursor = crHourGlass; }
~TWaitCursor(void){ Screen->Cursor = oldc; }
};
//---------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------
#endif
//.cpp
//---------------------------------------
#define NO_WIN32_LEAN_AND_MEAN
#include "shlobj.h"
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
// init GDI+
GdiplusStartup(&m_GdiplusToken, &m_GdiplusStartupInput, NULL);
}
//---------------------------------------
__fastcall TForm1::~TForm1(void)
{
GdiplusShutdown(m_GdiplusToken); // Close GDI+
}
//---------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String picFolder = "";
char szDir[MAX_PATH]="\0";
char pszDisplayName[MAX_PATH]="\0";
BROWSEINFO bi;
ITEMIDLIST *pidl;
bi.hwndOwner = Handle;
bi.pidlRoot = NULL;
bi.pszDisplayName = pszDisplayName;
bi.lpszTitle = "请选择文件夹:";
bi.ulFlags = BIF_RETURNONLYFSDIRS;
bi.lpfn = NULL;
bi.lParam = 0;
bi.iImage = 0;
pidl = SHBrowseForFolder(&bi);
if(pidl != NULL)
if(SHGetPathFromIDList(pidl, szDir))
picFolder = szDir;
m_strImageDir->Text = picFolder;
}
//---------------------------------------
BOOL __fastcall TForm1::GetImageFileNames()
{
StringstrExt;
StringstrName;
StringstrPattern;
BOOLbRC = TRUE;
HANDLEhFind = NULL;
WIN32_FIND_DATAFindFileData;
std::vector<String>VectorImageNames;
if ( m_strImageDir->Text[m_strImageDir->Text.Length() - 1] == char('\\') )
strPattern.sprintf( "%s*.*", m_strImageDir->Text );
else
strPattern.sprintf( "%s\\*.*", m_strImageDir->Text );
hFind = ::FindFirstFile(strPattern.c_str(), &FindFileData);// strat search
if (hFind == INVALID_HANDLE_VALUE)
{
LPVOID msg;
::FormatMessage
(
FORMAT_MESSAGE_ALLOCATE_BUFFER
[解决办法]
FORMAT_MESSAGE_FROM_SYSTEM,
NULL,
GetLastError(),
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
(LPTSTR)&msg,
0,
NULL
);
MessageBox(Handle,(LPTSTR)msg, "Thumbnail", MB_OK
[解决办法]
MB_ICONSTOP);
::LocalFree(msg);
return FALSE;
}
// filter off the system files and directories
if (!(FindFileData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) &&
!(FindFileData.dwFileAttributes & FILE_ATTRIBUTE_SYSTEM) &&
!(FindFileData.dwFileAttributes & FILE_ATTRIBUTE_HIDDEN) &&
!(FindFileData.dwFileAttributes & FILE_ATTRIBUTE_TEMPORARY))
{
// test file extension
strName = FindFileData.cFileName;
strExt = RightStr(strName,3);
if (
AnsiSameText(strExt,"bmp")
[解决办法]
AnsiSameText(strExt,"jpg")
[解决办法]
AnsiSameText(strExt,"gif")
[解决办法]
AnsiSameText(strExt,"tif")
[解决办法]
AnsiSameText(strExt,"png")
)
{
// save the image file name
VectorImageNames.push_back(strName);
}
}
// loop through to add all of them to our vector
while (bRC)
{
bRC = ::FindNextFile(hFind, &FindFileData);
if (bRC)
{
// filter off the system files and directories
if (!(FindFileData.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) &&
!(FindFileData.dwFileAttributes & FILE_ATTRIBUTE_SYSTEM) &&
!(FindFileData.dwFileAttributes & FILE_ATTRIBUTE_HIDDEN) &&
!(FindFileData.dwFileAttributes & FILE_ATTRIBUTE_TEMPORARY))
{
// test file extension
strName = FindFileData.cFileName;
strExt = RightStr(strName,3);
if (
AnsiSameText(strExt,"bmp")
[解决办法]
AnsiSameText(strExt,"jpg")
[解决办法]
AnsiSameText(strExt,"gif")
------解决方案--------------------
AnsiSameText(strExt,"tif")
[解决办法]
AnsiSameText(strExt,"png")
)
{
// save the image file name
VectorImageNames.push_back(strName);
}
}
}
else
{
DWORD err = ::GetLastError();
if (err != ERROR_NO_MORE_FILES)
{
LPVOID msg;
::FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER
[解决办法]
FORMAT_MESSAGE_FROM_SYSTEM,
NULL, err,
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
(LPTSTR)&msg, 0, NULL);
MessageBox(Handle,(LPTSTR)msg, "Thumbnail", MB_OK
[解决办法]
MB_ICONSTOP);
::LocalFree(msg);
::FindClose(hFind);
return FALSE;
}
}
} // end of while loop
// close the search handle
::FindClose(hFind);
// update the names, if any
if ( !VectorImageNames.empty() )
{
// reset the image name vector
m_VectorImageNames.clear();
m_VectorImageNames = VectorImageNames;
return TRUE;
}
return FALSE;
}
//---------------------------------------
void __fastcall TForm1::DrawThumbnails()
{
::Graphics::TBitmap* pImage = NULL;
HBITMAPhBmp = NULL;
POINTpt;
StringstrPath;
inti;
TListItem *ListItem;
// no images
if (m_VectorImageNames.empty())
return;
int nGap = 6;
m_ListThumbnail->DoubleBuffered = true;
// reset our image list
for (i = 0; i<m_ImageListThumb->Count; i++)
m_ImageListThumb->Delete(i);
// remove all items from list view
if (m_ListThumbnail->Items->Count != 0)
m_ListThumbnail->Items->Clear();
// set the size of the image list
for (int i =0; i<m_VectorImageNames.size();i++)
{
m_ImageListThumb->Add(NULL,NULL);
}
i = 0;
std::vector<String>::iteratoriter;
for (iter = m_VectorImageNames.begin(); iter != m_VectorImageNames.end(); iter++)
{
// load the bitmap
strPath.sprintf( "%s\\%s", m_strImageDir->Text, *iter );
Bitmap *img;
img = Bitmap::FromFile(WideString(strPath));
Bitmap *pThumbnail = static_cast<Bitmap*>(img->GetThumbnailImage(THUMBNAIL_WIDTH, THUMBNAIL_HEIGHT, NULL, NULL));
pThumbnail->GetHBITMAP(NULL, &hBmp);
pImage = new ::Graphics::TBitmap();
pImage->Handle = hBmp;
m_ImageListThumb->Replace(i, pImage, NULL);
ListItem = m_ListThumbnail->Items->Insert(i);
ListItem->Caption = m_VectorImageNames[i];
ListItem->ImageIndex = i;
pt = m_ListThumbnail->Items->Item[i]->GetPosition();
pt.x = nGap + i*(THUMBNAIL_WIDTH + nGap);
m_ListThumbnail->Items->Item[i]->SetPosition(pt);
i++;
delete img;
delete pImage;
delete pThumbnail;
}
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// validate image directory
if (m_strImageDir->Text.IsEmpty())
{
MessageBox(Handle,"Invalid image directory", "Thumbnail", MB_OK
[解决办法]
MB_ICONSTOP);
m_strImageDir->SetFocus();
return;
}
TWaitCursor waitit; //变为等待光标
if ( !GetImageFileNames() )
{
return;
}
DrawThumbnails();
m_ListThumbnail->SetFocus();
m_ListThumbnail->ItemIndex = 0;
return; //直接返回，光标会自动还原
}
//---------------------------------------
void __fastcall TForm1::Label1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Label1-> Top = Label1-> Top + 3;
Label1-> Left = Label1-> Left +3;
}
//---------------------------------------
void __fastcall TForm1::Label1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Label1-> Top = Label1-> Top - 3;
Label1-> Left = Label1-> Left - 3;
}
//---------------------------------------
