From ceaaf48e88ba705e47cbf491720f05fda814e33b Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 23 Jul 2009 19:11:48 +0000
Subject: - onHide -> onHide - onShow -> OnShow

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1885 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 unicode/src/base/UFont.pas    | 2 +-
 unicode/src/base/UGraphic.pas | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'unicode/src/base')

diff --git a/unicode/src/base/UFont.pas b/unicode/src/base/UFont.pas
index 32764be3..473e8f95 100644
--- a/unicode/src/base/UFont.pas
+++ b/unicode/src/base/UFont.pas
@@ -818,7 +818,7 @@ var
   LineLength: integer;
   EOT: boolean; // End-Of-Text
 begin
-  // split lines on newline (there is no UCS4String version of ExtractStrings)
+  // split lines on newline
   SetLength(Lines, 0);
   EOT := false;
   LineStart := 0;
diff --git a/unicode/src/base/UGraphic.pas b/unicode/src/base/UGraphic.pas
index 9c12d998..edbdd0b6 100644
--- a/unicode/src/base/UGraphic.pas
+++ b/unicode/src/base/UGraphic.pas
@@ -466,7 +466,7 @@ begin
   // load icon image (must be 32x32 for win32)
   Icon := LoadImage(ResourcesPath.Append(WINDOW_ICON));
   if (Icon <> nil) then
-    SDL_WM_SetIcon(Icon, 0);
+    SDL_WM_SetIcon(Icon, nil);
 
   SDL_WM_SetCaption(PChar(Title), nil);
 
@@ -667,7 +667,7 @@ end;
 procedure LoadLoadingScreen;
 begin
   ScreenLoading := TScreenLoading.Create;
-  ScreenLoading.onShow;
+  ScreenLoading.OnShow;
   
   Display.CurrentScreen := @ScreenLoading;
 
@@ -682,7 +682,7 @@ end;
 procedure LoadScreens;
 begin
 {  ScreenLoading := TScreenLoading.Create;
-  ScreenLoading.onShow;
+  ScreenLoading.OnShow;
   Display.CurrentScreen := @ScreenLoading;
   ScreenLoading.Draw;
   Display.Draw;
-- 
cgit v1.2.3