Procházet zdrojové kódy

Update gegl_VElements.pas

Seenkao před 2 roky
rodič
revize
6ae70c33e2
1 změnil soubory, kde provedl 1 přidání a 6 odebrání
  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;