Browse Source

Update gegl_VElements.pas

Seenkao 2 years ago
parent
commit
8549e718cd
1 changed files with 1 additions and 6 deletions
  1. 1 6
      Zengl_SRC/srcGEGL/gegl_VElements.pas

+ 1 - 6
Zengl_SRC/srcGEGL/gegl_VElements.pas

@@ -258,12 +258,7 @@ begin
     inc(i);
     inc(i);
   end;
   end;
 
 
-  {$IFDEF DELPHI7_AND_DOWN}
-  zgl_GetMem(z, SizeOf(geglTCursor));
-  UseText^.Cursor := z;
-  {$ELSE}
-  zgl_GetMem(UseText^.Cursor, SizeOf(geglTCursor));
-  {$EndIf}
+  zgl_GetMem(Pointer(UseText^.Cursor), SizeOf(geglTCursor));
   _cursor := UseText^.Cursor;
   _cursor := UseText^.Cursor;
   _cursor^.curRect.X := 0;
   _cursor^.curRect.X := 0;
   _cursor^.curRect.Y := rs1_2 * Scale;
   _cursor^.curRect.Y := rs1_2 * Scale;