再关于MDI显示背景图片的问题

firstep 2003-09-12 12:47:09
如何使图片自动扩充到整个Image中,而不是显示成平铺的效果呢?
...全文
67 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
jishiping 2003-09-14
  • 打赏
  • 举报
回复
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "WMPLib_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
static FARPROC OldProc = NULL;
static Graphics::TBitmap* TmpBmp = NULL;

static LRESULT CALLBACK NewWinProc(HWND hwnd,
UINT uMsg, WPARAM wParam, LPARAM lParam)
{
HDC hDC;
int nInfo;
int nImage;
TRect Rect;

if (uMsg==WM_PAINT) {
hDC = GetDC(hwnd);
GetClientRect(hwnd, &Rect);
if (TmpBmp && (Rect.Width()!=
TmpBmp->Width || TmpBmp->
Height!=Rect.Height())) {
delete TmpBmp; TmpBmp = 0;
}
if (TmpBmp == NULL) {
TmpBmp = new Graphics::TBitmap;
TmpBmp->Width = Rect.Width();
TmpBmp->Height = Rect.Height();
TmpBmp->Canvas->StretchDraw(
Rect, Form1->Image1->Picture
->Graphic);
}
BitBlt(hDC, Rect.left, Rect.top,
Rect.Width(), Rect.Height(),
TmpBmp->Canvas->Handle, 0, 0,
SRCCOPY);
ReleaseDC(hwnd, hDC); return 0;
}
else
return CallWindowProc(OldProc, hwnd,
uMsg, wParam, lParam);
}

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
(long)OldProc = SetWindowLong(ClientHandle,
GWL_WNDPROC, (long)NewWinProc);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
if (TmpBmp!=NULL) delete TmpBmp;
}
nightfallrove 2003-09-14
  • 打赏
  • 举报
回复
在MDI程序中是由两个窗口构成的,一个MDI主窗口和一个客户窗口。客户窗口覆盖了主窗口的客户区,并提供大量的MDI支持。在C++ Builder的MDI 的主窗口中提供了一个ClientHandle的客户窗口句柄,我们就是利用这个句柄来实现位图的显示。我们知道,在Windows的窗口中绘置位图,为使位图能够不断地刷新,必须响应WM_PAINT和WM_ERASEBKGND消息。我们可以利用钩子函数(钩子是Windows系统中一种特殊的消息处理机制,可以监视系统或进程中的各种事件消息,截获发往目标窗口的消息并进行处理)。截住Windows系统发送给MDI客户窗口的WM_PAINT和WM_ERASEBKGND消息,从而实现客户窗口的刷新和重绘。我们可以在系统中安装自定义的消息钩子,对发往客户窗口的消息进行过滤,只处理WM_PAINT和WM_ERASEBKGND,以实现我们的目标。

编写钩子函数
编写Windows钩子函数分为三步:定义钩子、安装钩子和卸载钩子。
定义钩子函数
钩子函数是一种特殊的回调函数,不同事件的钩子其函数头是不一样,本次用到的钩子函数如下所示:
LRESULT CALLBACK GetMsgProc(int nCode, WPARAM wParam, LPARAM lParam)
参数nCode的值表示本钩子函数是否必须处理该消息, wParam表明这次传递的消息是否已从Windows消息队列中删除, lParam参数用来传送消息。
在钩子函数中,必须将系统发送的消息继续回送给系统以使其它程序可以继续使用该消息,该函数为:
LRESULT CallNextHookEx(HHOOK hhk, int nCode, WPARAM wParam, LPARAM lParam )
参数hhk是安装钩子函数时安装函数返回的句柄,nCode、wParm和lParm参数是系统传给钩子函数的值。

安装钩子函数
定义完钩子函数后,必须将该钩子安装到Windows系统中才能生效,安装钩子的函数为:
HHOOK SetWindowsHookEx(int idHook, HOOKPROC lpfn, HINSTANCE hMod, DWORD dwThreadId)
参数idHook表示待安装的钩子函数类型,可以是键盘、鼠标或外壳等钩子,lpfn表示钩子函数的地址, hMod表示是全局钩子还是局部钩子,如果是全局钩子则钩子函数必须在DLL文件中,dwThreadId表示钩子将要起作用的程序ID。

卸载钩子函数
钩子函数使用完后必须卸载,这是一个良好
程序员必备的优良品质。卸载钩子的函数为:
BOOL UnhookWindowsHookEx(HHOOK hhk)
参数hhk表示待卸载的钩子句柄。

详细代码
根据上面所述,下面介绍详细代码:
//定义全局变量
HHOOK hMsgHook;
//钩子句柄
int iClientHeight, iClientWidth;
//待画的客户区高和宽
Graphics::TBitmap Face;
// 从文件调用位图的控件
HBITMAP hFaceBitmap;
//位图句柄
HWND hClientHandle, hMdiHandle;
//MDI主窗口和MDI客户窗口句柄
LRESULT CALLBACK GetMsgProc(int nCode, WPARAM wParam, LPARAM lParam ) ;
void __fastcall TMainForm::FormPaint(TObject Sender)
{ iClientHeight = ClientHeight;
iClientWidth = ClientWidth;
} //设置系统时, 在状态条上显示
void __fastcall TMainForm::FormShow(TObject Sender)
{ //从文件中调入位图
Face = new Graphics::TBitmap();
Face->LoadFromFile(“d:\\temp\\face.bmp”);
hFaceBitmap = Face->Handle;
//保存位图句柄
hClientHandle = ClientHandle;
//保存窗口句柄
hMdiHandle = Handle;
//保存MDI主窗口句柄
//安装截取程序消息的钩子函数
hMsgHook = SetWindowsHookEx(WH_GETMESSAGE, (HOOKPROC)GetMsgProc, NULL, GetCurrentThreadId() );
} //钩子函数,处理系统WM_PAINT和WM_ERASEBKGND消息
LRESULT CALLBACK GetMsgProc(int nCode, WPARAM wParam, LPARAM lParam )
{ LRESULT lReturn=0;
MSG cwMessage;
cwMessage = (MSG)lParam;
if ( cwMessage->hwnd == hClientHandle || cwMessage->hwnd == hMdiHandle)
//是发送给子窗口的消息则处理
{if ( cwMessage->message == WM_PAINT || cwMessage->message == WM_ERASEBKGND )
{ //重画用户窗口
DrawBitmap(hClientHandle, hFaceBitmap, iClientHeight, iClientWidth);
}
}
if ( hMsgHook != NULL) //将消息继续下传
lReturn = CallNextHookEx(hMsgHook, nCode, wParam, lParam );
return lReturn;
} //卸载钩子函数
void __fastcall TMainForm::FormClose(TObject Sender, TCloseAction &&Action)
{ if ( hMsgHook != NULL)
UnhookWindowsHookEx( hMsgHook );
if ( Face != NULL )
delete Face;
}
//在指定的窗口中,画位图,填充整个用户窗口
//Ture为绘制成功,false为绘制失败
BOOL DrawBitmap(HWND Handle, HBITMAP hBitmap, int iClientHeight, int iClientWidth)
{ if ( hBitmap == NULL )
return false;
BITMAP b;
int iBitmapH, iBitmapW;
GetObject( hBitmap, sizeof( BITMAP), &&b);
iBitmapH = b.bmHeight;
iBitmapW = b.bmWidth;
int x, y;
HDC hClientDC, hMemDC;
hClientDC = GetDC(Handle);
if ( hClientDC == NULL )
return false;
hMemDC = CreateCompatibleDC( hClientDC );
if ( hMemDC == NULL )
{ DeleteDC( hClientDC );
return false;
}
SelectObject( hMemDC, hBitmap );
x = 0;
while ( x < iClientWidth )
{ y = 0;
while ( y < iClientHeight )
{ClientCanvas->Draw(x, y, Face);
BitBlt( hClientDC, x, y,iBitmapW, iBitmapH, hMemDC, 0, 0,SRCCOPY );
y = y + iBitmapH; }
x = x + iBitmapW; }
DeleteDC( hMemDC );
DeleteDC( hClientDC );
return true; }

将上述C++ Builder代码片段加入用户的MDI软件中即可实现任意的MDI程序背景
GeoPhoenix 2003-09-13
  • 打赏
  • 举报
回复
关注这个问题,我是这样整的,(OnCreate)

Graphics::TBitmap *BkgndBitmap = new Graphics::TBitmap();
BkgndBitmap->LoadFromFile("f:\\CB6程序\\MDI\\11.bmp");
MainForm->Brush->Bitmap = BkgndBitmap;
只能平铺,不能Stretch,还有不能自动刷新
firstep 2003-09-12
  • 打赏
  • 举报
回复
我在formCreat中是这么弄的:
Brush->Bitmap = Image1->Bitmap;
我想这时候应该不是Image组件的事情了;应该是TBrush的了吧;那么对于TBrush应该怎么弄才能使这个图片填充呢?
jiangchun_xn 2003-09-12
  • 打赏
  • 举报
回复
image->align设未client;
firstep 2003-09-12
  • 打赏
  • 举报
回复
是stretch,我已经将将它设为true了。可在运行的时候还是没有什么用啊
kaimy 2003-09-12
  • 打赏
  • 举报
回复
先使用一个Image控件,再设它的一个属性。是什么我忘了。就在属性栏里自己找吧!
意思就是自动扩充的意思!

602

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder VCL组件使用和开发
社区管理员
  • VCL组件使用和开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧