Merge pull request #53 from MHumm/GDIError_Length

JclGraphUtils GDIError: replaced SizeOf by Length
project-jedi · Apr 14, 2019 · 515af91 · 515af91
2 parents 5bc54fc + 779c80c
commit 515af91
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/jcl/source/vcl/JclGraphUtils.pas b/jcl/source/vcl/JclGraphUtils.pas
@@ -380,7 +380,7 @@ procedure GDIError;
 begin
   ErrorCode := GetLastError;
   if (ErrorCode <> 0) and (FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil,
-    ErrorCode, LOCALE_USER_DEFAULT, Buf, SizeOf(Buf), nil) <> 0) then
+    ErrorCode, LOCALE_USER_DEFAULT, Buf, Length(Buf), nil) <> 0) then
     raise EOutOfResources.Create(Buf)
   else
     OutOfResources;