From 49a8c3808dd78230bcf2c9433158637bdf5baf76 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 10 Dec 2005 17:23:07 +0000 Subject: [PATCH] fixed compilation of carbon intf git-svn-id: trunk@8288 - --- lcl/interfaces/carbon/carbonwscontrols.pp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/carbon/carbonwscontrols.pp b/lcl/interfaces/carbon/carbonwscontrols.pp index fdd7081309..7fc9f9a8f2 100644 --- a/lcl/interfaces/carbon/carbonwscontrols.pp +++ b/lcl/interfaces/carbon/carbonwscontrols.pp @@ -65,7 +65,7 @@ type class function GetClientBounds(const AWincontrol: TWinControl; var ARect: TRect): Boolean; override; class function GetClientRect(const AWincontrol: TWinControl; var ARect: TRect): Boolean; override; class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override; - class procedure SetBounds(const AWinControl: TWinControl; const ALeft, ATop, AWidth, AHeight: Integer); virtual; + class procedure SetBounds(const AWinControl: TWinControl; const ALeft, ATop, AWidth, AHeight: Integer); override; class procedure SetText(const AWinControl: TWinControl; const AText: String); override; end; @@ -122,7 +122,7 @@ begin GetMem(Str,StrSize); Result := CFStringGetCString(CFString, Str, StrSize, DEFAULT_CFSTRING_ENCODING); AText := PChar(Str); - FreeMem(Str); + System.FreeMem(Str); end; CFRelease(Pointer(CFString));