paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 02:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

Components, ActiveX: fixed container resizing, patch by ocean, bug #23566

Browse Source 
git-svn-id: trunk@40330 -
This commit is contained in:
maxim 2013-02-16 18:25:14 +00:00
parent c5115fb647
commit 6f199fa45b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/activex/activexcontainer.pas
View File

@ -35,7 +35,7 @@ unit activexcontainer;
interface
uses
Classes, SysUtils,Controls,windows, ActiveX, ComObj,forms,graphics;
Classes, SysUtils, Controls, Windows, ActiveX, ComObj, Forms, Graphics;
type
//from OCIDL.h
@ -248,13 +248,13 @@ begin
AXC.Width:=LOWORD(lparam);
AXC.Height:=LOWORD(lparam);
olecheck((AXC.ComServer as IOleObject).SetExtent(DVASPECT_CONTENT,size));
bounds:=AXC.BoundsRect;
bounds:=AXC.ClientRect;
olecheck((AXC.ComServer as IOleInPlaceObject).SetObjectRects(@bounds,@bounds));
end;
WM_PAINT:
begin
DC:=GetDC(AXC.handle);
bounds:=AXC.BoundsRect;
bounds:=AXC.ClientRect;
olecheck((AXC.ComServer as IViewObject).Draw(DVASPECT_CONTENT,0,nil,nil,0,DC,@bounds,@bounds,nil,0));
ReleaseDC(AXC.handle,DC);
end;
@ -611,7 +611,7 @@ begin
size.x:=(Width*2540) div Screen.PixelsPerInch;
size.y:=(Height*2540) div Screen.PixelsPerInch;
olecheck((FOleObject as IOleObject).SetExtent(DVASPECT_CONTENT,size));
olecheck((FOleObject as IOleObject).DoVerb(OLEIVERB_INPLACEACTIVATE,nil,Self as IOleClientSite,0,Handle,BoundsRect));
olecheck((FOleObject as IOleObject).DoVerb(OLEIVERB_INPLACEACTIVATE,nil,Self as IOleClientSite,0,Handle,ClientRect));
end;
procedure TActiveXContainer.Detach;