Explorar o código

Update gegl_VElements.pas

Seenkao %!s(int64=2) %!d(string=hai) anos
pai
achega
6ae70c33e2
Modificáronse 1 ficheiros con 1 adicións e 6 borrados
  1. 1 6
      Zengl_SRC/srcGEGL/gegl_VElements.pas

+ 1 - 6
Zengl_SRC/srcGEGL/gegl_VElements.pas

@@ -263,12 +263,7 @@ begin
     inc(i);
   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^.curRect.X := 0;
   _cursor^.curRect.Y := rs1_2 * Scale;