From f74cebbd8ecc6a1e999bafde7ca9ed2b322722ea Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 1 Apr 2004 20:58:38 +0000
Subject: [PATCH] fixed compilation of apiwiz

git-svn-id: trunk@5356 -
---
 tools/apiwizz/apiwizard.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tools/apiwizz/apiwizard.pp b/tools/apiwizz/apiwizard.pp
index 43639c466e..096938c84b 100644
--- a/tools/apiwizz/apiwizard.pp
+++ b/tools/apiwizz/apiwizard.pp
@@ -525,7 +525,7 @@ begin
           PlatformPrefix := cbgLCLPlatform.Items[PlatformIdx];
           PlatformDir := PlatformPrefix;
           PlatformObject := 'T' + PlatformPrefix + 'WidgetSet';
-          PlatformObject[2] := UpperCase(PlatformObject[2]);
+          PlatformObject[2] := UpCase(PlatformObject[2]);
 
           //------------------
           // open *winapih.inc
@@ -606,6 +606,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.7  2004/04/01 20:58:38  mattias
+  fixed compilation of apiwiz
+
   Revision 1.6  2004/03/05 01:08:27  marc
   * Updated for new WidgetSet names