소스 검색

Update gegl_VElements.pas

Seenkao 2 년 전
부모
커밋
6ae70c33e2
1개의 변경된 파일1개의 추가작업 그리고 6개의 파일을 삭제
  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;