Started appending F to classes on fpgui, to make its namespace more unique

2 files changed, 13 insertions, 9 deletions

diff --git a/examples/gui/utfdemo/utfdemo.lpi b/examples/gui/utfdemo/utfdemo.lpi
index c9a9e885..35240ae6 100644
--- a/examples/gui/utfdemo/utfdemo.lpi
+++ b/examples/gui/utfdemo/utfdemo.lpi
@@ -1,7 +1,7 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="/"/>
+    <PathDelim Value="\"/>
     <Version Value="5"/>
     <General>
       <Flags>
@@ -9,7 +9,7 @@
       </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <IconPath Value="./"/>
+      <IconPath Value=".\"/>
       <TargetFileExt Value=".exe"/>
     </General>
     <PublishOptions>
@@ -20,7 +20,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
     <RequiredPackages Count="1">
@@ -39,11 +39,15 @@
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
+    <PathDelim Value="\"/>
     <CodeGeneration>
       <Generate Value="Faster"/>
+      <TargetCPU Value="i386"/>
+      <TargetOS Value="Win32"/>
     </CodeGeneration>
     <Other>
-      <CustomOptions Value="-FUunits"/>
+      <CustomOptions Value="-FUunits
+"/>
       <CompilerPath Value="$(CompPath)"/>
     </Other>
   </CompilerOptions>
diff --git a/examples/gui/utfdemo/utfdemo.lpr b/examples/gui/utfdemo/utfdemo.lpr
index b59f7f96..47db2a89 100644
--- a/examples/gui/utfdemo/utfdemo.lpr
+++ b/examples/gui/utfdemo/utfdemo.lpr
@@ -16,14 +16,14 @@ type
 
   { TMainForm }
 
-  TMainForm = class(TForm)
+  TMainForm = class(TFForm)
   private
-    FLayout: TBoxLayout;
+    FLayout: TFBoxLayout;
     procedure   MainFormActivate(Sender: TObject);
   public
     constructor Create(AOwner: TComponent); override;
   published
-    TextLabel: TLabel;
+    TextLabel: TFLabel;
   end;
 
 
@@ -47,11 +47,11 @@ begin
   Text            := 'UTF Demo';
   OnActivate      := @MainFormActivate;
 
-  FLayout         := TBoxLayout.Create(self);
+  FLayout         := TFBoxLayout.Create(self);
   FLayout.Parent  := self;
   InsertChild(FLayout);
 
-  TextLabel       := TLabel.Create(self);
+  TextLabel       := TFLabel.Create(self);
   TextLabel.Text  := '&Gráficas Magnificacion! Teste';
   FLayout.InsertChild(TextLabel);
 end;