diff options
Diffstat (limited to 'unicode/src/base')
| -rw-r--r-- | unicode/src/base/UFont.pas | 2 | ||||
| -rw-r--r-- | unicode/src/base/UGraphic.pas | 6 |
2 files changed, 4 insertions, 4 deletions
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; |