From 3260749d369d3466c345d40a8b2189c32c8c1b60 Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian Date: Mon, 7 Nov 2011 15:26:44 +0100 Subject: removed pascal code --- src/menu/UMenuText.pas | 379 ------------------------------------------------- 1 file changed, 379 deletions(-) delete mode 100644 src/menu/UMenuText.pas (limited to 'src/menu/UMenuText.pas') diff --git a/src/menu/UMenuText.pas b/src/menu/UMenuText.pas deleted file mode 100644 index 276f961b..00000000 --- a/src/menu/UMenuText.pas +++ /dev/null @@ -1,379 +0,0 @@ -{* UltraStar Deluxe - Karaoke Game - * - * UltraStar Deluxe is the legal property of its developers, whose names - * are too numerous to list here. Please refer to the COPYRIGHT - * file distributed with this source distribution. - * - * This program is free software; you can redistribute it and/or - * modify it under the terms of the GNU General Public License - * as published by the Free Software Foundation; either version 2 - * of the License, or (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program; see the file COPYING. If not, write to - * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, - * Boston, MA 02110-1301, USA. - * - * $URL$ - * $Id$ - *} - -unit UMenuText; - -interface - -{$IFDEF FPC} - {$MODE Delphi} -{$ENDIF} - -{$I switches.inc} - -uses - math, - SysUtils, - gl, - SDL, - TextGL, - UTexture; - -type - TText = class - private - SelectBool: boolean; - TextString: UTF8String; - TextTiles: array of UTF8String; - - STicks: cardinal; - SelectBlink: boolean; - public - X: real; - Y: real; - Z: real; - MoveX: real; // some modifier for x - position that don't affect the real Y - MoveY: real; // some modifier for y - position that don't affect the real Y - W: real; // text wider than W is broken -// H: real; - Size: real; - ColR: real; - ColG: real; - ColB: real; - Alpha: real; - Int: real; - Style: integer; - Visible: boolean; - Align: integer; // 0 = left, 1 = center, 2 = right - - // reflection - Reflection: boolean; - ReflectionSpacing: real; - - procedure SetSelect(Value: boolean); - property Selected: boolean read SelectBool write SetSelect; - - procedure SetText(Value: UTF8String); - property Text: UTF8String read TextString write SetText; - - procedure DeleteLastLetter; //< Deletes the rightmost letter - - procedure Draw; - constructor Create; overload; - constructor Create(X, Y: real; const Text: UTF8String); overload; - constructor Create(ParX, ParY, ParW: real; ParStyle: integer; ParSize, ParColR, ParColG, ParColB: real; ParAlign: integer; const ParText: UTF8String; ParReflection: boolean; ParReflectionSpacing: real; ParZ: real); overload; - end; - -implementation - -uses - UGraphic, - UUnicodeUtils, - StrUtils; - -procedure TText.SetSelect(Value: boolean); -begin - SelectBool := Value; - - // set cursor visible - SelectBlink := true; - STicks := SDL_GetTicks() div 550; -end; - -procedure TText.SetText(Value: UTF8String); -var - NextPos: cardinal; // next pos of a space etc. - LastPos: cardinal; // last pos " - LastBreak: cardinal; // last break - isBreak: boolean; // true if the break is not caused because the text is out of the area - FirstWord: word; // is first word after break? - Len: word; // length of the tiles array - - function GetNextPos: boolean; - var - T1, {T2,} T3: cardinal; - begin - LastPos := NextPos; - - // next space (if width is given) - if (W > 0) then - T1 := PosEx(' ', Value, LastPos + 1) - else - T1 := Length(Value); - - {// next - - T2 := PosEx('-', Value, LastPos + 1);} - - // next break - T3 := PosEx('\n', Value, LastPos + 1); - - if T1 = 0 then - T1 := Length(Value); - {if T2 = 0 then - T2 := Length(Value); } - if T3 = 0 then - T3 := Length(Value); - - // get nearest pos - NextPos := min(T1, T3{min(T2, T3)}); - - if (LastPos = cardinal(Length(Value))) then - NextPos := 0; - - isBreak := (NextPos = T3) and (NextPos <> cardinal(Length(Value))); - Result := (NextPos <> 0); - end; - - procedure AddBreak(const From, bTo: cardinal); - begin - if (isBreak) or (bTo - From >= 1) then - begin - Inc(Len); - SetLength (TextTiles, Len); - TextTiles[Len-1] := Trim(Copy(Value, From, bTo - From)); - - if isBreak then - LastBreak := bTo + 2 - else - LastBreak := bTo + 1; - FirstWord := 0; - end; - end; - -begin - // set TextString - TextString := Value; - - // set cursor visible - SelectBlink := true; - STicks := SDL_GetTicks() div 550; - - // exit if there is no need to create tiles - if (W <= 0) and (Pos('\n', Value) = 0) then - begin - SetLength (TextTiles, 1); - TextTiles[0] := Value; - Exit; - end; - - // create tiles - // reset text array - SetLength (TextTiles, 0); - Len := 0; - - // reset counter vars - LastPos := 1; - NextPos := 1; - LastBreak := 1; - FirstWord := 1; - - if (W > 0) then - begin - // set font properties - SetFontStyle(Style); - SetFontSize(Size); - end; - - // go through text - while (GetNextPos) do - begin - // break in text - if isBreak then - begin - // look for break before the break - if (glTextWidth(Copy(Value, LastBreak, NextPos - LastBreak + 1)) > W) AND (NextPos-LastPos > 1) then - begin - isBreak := false; - // not the first word after break, so we don't have to break within a word - if (FirstWord > 1) then - begin - // add break before actual position, because there the text fits the area - AddBreak(LastBreak, LastPos); - end - else // first word after break break within the word - begin - // to do - // AddBreak(LastBreak, LastBreak + 155); - end; - end; - - isBreak := true; - // add break from text - AddBreak(LastBreak, NextPos); - end - // text comes out of the text area -> createbreak - else if (glTextWidth(Copy(Value, LastBreak, NextPos - LastBreak + 1)) > W) then - begin - // not the first word after break, so we don't have to break within a word - if (FirstWord > 1) then - begin - // add break before actual position, because there the text fits the area - AddBreak(LastBreak, LastPos); - end - else // first word after break -> break within the word - begin - // to do - // AddBreak(LastBreak, LastBreak + 155); - end; - end; - //end; - Inc(FirstWord) - end; - // add ending - AddBreak(LastBreak, Length(Value)+1); -end; - -procedure TText.DeleteLastLetter; -begin - SetText(UTF8Copy(TextString, 1, LengthUTF8(TextString)-1)); -end; - -procedure TText.Draw; -var - X2, Y2: real; - Text2: UTF8String; - I: integer; - Ticks: cardinal; -begin - if Visible then - begin - SetFontStyle(Style); - SetFontSize(Size); - SetFontItalic(false); - - glColor4f(ColR*Int, ColG*Int, ColB*Int, Alpha); - - // reflection - if Reflection then - SetFontReflection(true, ReflectionSpacing) - else - SetFontReflection(false,0); - - // if selected set blink... - if SelectBool then - begin - Ticks := SDL_GetTicks() div 550; - if Ticks <> STicks then - begin // change visability - STicks := Ticks; - SelectBlink := Not SelectBlink; - end; - end; - - {if (false) then // no width set draw as one long string - begin - if not (SelectBool AND SelectBlink) then - Text2 := Text - else - Text2 := Text + '|'; - - case Align of - 0: X2 := X; - 1: X2 := X - glTextWidth(Text2)/2; - 2: X2 := X - glTextWidth(Text2); - end; - - SetFontPos(X2, Y); - glPrint(Text2); - SetFontStyle(0); // reset to default - end - else - begin} - // now use always: - // draw text as many strings - Y2 := Y + MoveY; - for I := 0 to High(TextTiles) do - begin - if (not (SelectBool and SelectBlink)) or (I <> High(TextTiles)) then - Text2 := TextTiles[I] - else - Text2 := TextTiles[I] + '|'; - - case Align of - 1: X2 := X + MoveX - glTextWidth(Text2)/2; { centered } - 2: X2 := X + MoveX - glTextWidth(Text2); { right aligned } - else X2 := X + MoveX; { left aligned (default) } - end; - - SetFontPos(X2, Y2); - - SetFontZ(Z); - - glPrint(Text2); - - {if Size >= 10 then - Y2 := Y2 + Size * 0.93 - else} - if (Style = 1) then - Y2 := Y2 + Size * 0.93 - else - Y2 := Y2 + Size * 0.72; - end; - SetFontStyle(0); // reset to default - - //end; - end; -end; - -constructor TText.Create; -begin - Create(0, 0, ''); -end; - -constructor TText.Create(X, Y: real; const Text: UTF8String); -begin - Create(X, Y, 0, 0, 30, 0, 0, 0, 0, Text, false, 0, 0); -end; - -constructor TText.Create(ParX, ParY, ParW: real; - ParStyle: integer; - ParSize, ParColR, ParColG, ParColB: real; - ParAlign: integer; - const ParText: UTF8String; - ParReflection: boolean; - ParReflectionSpacing: real; - ParZ: real); -begin - inherited Create; - Alpha := 1; - X := ParX; - Y := ParY; - W := ParW; - Z := ParZ; - Style := ParStyle; - Size := ParSize; - Text := ParText; - ColR := ParColR; - ColG := ParColG; - ColB := ParColB; - Int := 1; - Align := ParAlign; - SelectBool := false; - Visible := true; - Reflection := ParReflection; - ReflectionSpacing := ParReflectionSpacing; -end; - -end. -- cgit v1.2.3