Question and Answer Database<\/p>\n
FAQ176D.txt Displaying a bitmap on the client area of an MDI parent form.
\nCategory :Windows API
\nPlatform :All
\nProduct :All 32 bit <\/p>\n
Question: 1.Create a new project [code lang=”delphi”] FClientInstance : TFarProc; 5.Find the “implementation” line and the {$R *.DFM} line that [code lang=”delphi”]procedure TMainForm.ClientWndProc(var Message: TMessage); [code lang=”delphi”] FClientInstance := MakeObjectInstance(ClientWndProc); Now you have a working MDI project with “wallpaper” where the image 7\/16\/98 4:31:28 PM<\/p>\n Trademarks & Copyright \u00a9 1998 INPRISE Corporation. Last modified on [tags]Delphi, Forms, Graphic[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":" Question and Answer Database FAQ176D.txt Displaying a bitmap on the client area of an MDI parent form. Category :Windows API Platform :All Product…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,100,101],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-21","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/125"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=125"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/125\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=125"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=125"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=125"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\nHow do I display a bitmap to the client area of an MDI parent
\nform?
\n<\/em>
\nAnswer:
\nHere are the necessary steps to add wallpaper to a MDI parent
\nform:<\/p>\n
\n2.Set the form’s FormStyle to fsMDIForm
\n3.Drop an image on the form and select a bitmap into it.
\n4.Find the { Private Declarations } comment in the form’s
\n definition and add these lines right after it:<\/p>\n
\n FPrevClientProc : TFarProc;
\n procedure ClientWndProc(var Message: TMessage);
\n[\/code]<\/p>\n
\n follows it. After that line, enter this code:<\/p>\n
\nvar
\n Dc : hDC;
\n Row : Integer;
\n Col : Integer;
\nbegin
\n with Message do
\n case Msg of
\n WM_ERASEBKGND:
\n begin
\n Dc := TWMEraseBkGnd(Message).Dc;
\n for Row := 0 to ClientHeight div Image1.Picture.Height do
\n for Col := 0 to ClientWidth div Image1.Picture.Width do
\n BitBlt(Dc,
\n Col * Image1.Picture.Width,
\n Row * Image1.Picture.Height,
\n Image1.Picture.Width,
\n Image1.Picture.Height,
\n Image1.Picture.Bitmap.Canvas.Handle,
\n 0,
\n 0,
\n SRCCOPY);
\n Result := 1;
\n end;
\n else
\n Result := CallWindowProc(FPrevClientProc,
\n ClientHandle,
\n Msg,
\n wParam,
\n lParam);
\n end;
\nend;
\n[\/code]
\n6. In the OnCreate method for the form, type the following lines
\nof code:<\/p>\n
\n FPrevClientProc := Pointer(GetWindowLong(ClientHandle,
\n GWL_WNDPROC));
\n SetWindowLong(ClientHandle,
\n GWL_WNDPROC, LongInt(FClientInstance));
\n[\/code]
\n7. Add a new form to your project and set its FormStyle property to
\nfsMDIChild.<\/p>\n
\nbitmap is tiled to cover the MDI form’s client area.<\/p>\n
\n8-December-1998. <\/p>\n