paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 14:42:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: set SpecialOrigin

Browse Source 
git-svn-id: trunk@1879 -
This commit is contained in:
lazarus 2002-08-17 23:39:31 +00:00
parent 037d82dbfb
commit e023b9766a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -2749,6 +2749,7 @@ begin
// create a new devicecontext for this window // create a new devicecontext for this window
P := NewDC; P := NewDC;
p^.hWnd := hWnd; p^.hWnd := hWnd;
p^.SpecialOrigin:=GtkWidgetIsA(PGtkWidget(p^.hWnd),GTK_LAYOUT_GET_TYPE);
if ClientWidget^.Window = nil if ClientWidget^.Window = nil
then begin then begin
Assert(False, 'Trace:[TgtkObject.GetDC] Force widget creation'); Assert(False, 'Trace:[TgtkObject.GetDC] Force widget creation');
@ -6360,6 +6361,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.123 2002/09/06 16:41:31 lazarus
MG: set SpecialOrigin
Revision 1.122 2002/09/06 16:38:25 lazarus Revision 1.122 2002/09/06 16:38:25 lazarus
MG: added GetDCOffset MG: added GetDCOffset