From ceaaf48e88ba705e47cbf491720f05fda814e33b Mon Sep 17 00:00:00 2001 From: tobigun 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