From 16a6e6801fde495b2782e2e04a0cf055ce1e1516 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 27 Aug 2008 14:59:38 +0000
Subject: rename Classes part1

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1307 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/Classes/UEditorLyrics.pas | 229 ------------------------------------------
 1 file changed, 229 deletions(-)
 delete mode 100644 src/Classes/UEditorLyrics.pas

(limited to 'src/Classes/UEditorLyrics.pas')

diff --git a/src/Classes/UEditorLyrics.pas b/src/Classes/UEditorLyrics.pas
deleted file mode 100644
index 25e8423e..00000000
--- a/src/Classes/UEditorLyrics.pas
+++ /dev/null
@@ -1,229 +0,0 @@
-unit UEditorLyrics;
-
-interface
-
-{$IFDEF FPC}
-  {$MODE Delphi}
-{$ENDIF}
-
-{$I switches.inc}
-
-uses
-  SysUtils,
-  gl,
-  UMusic,
-  UTexture;
-
-type
-  TWord = record
-      X:      real;
-      Y:      real;
-      Size:   real;
-      Width:  real;
-      Text:   string;
-      ColR:   real;
-      ColG:   real;
-      ColB:   real;
-      FontStyle:  integer;
-      Italic:     boolean;
-      Selected:   boolean;
-  end;
-
-  TEditorLyrics = class
-    private
-      AlignI:         integer;
-      XR:             real;
-      YR:             real;
-      SizeR:          real;
-      SelectedI:      integer;
-      FontStyleI:     integer;          // font number
-      Word:           array of TWord;
-
-      procedure SetX(Value: real);
-      procedure SetY(Value: real);
-      function GetClientX: real;
-      procedure SetAlign(Value: integer);
-      function GetSize: real;
-      procedure SetSize(Value: real);
-      procedure SetSelected(Value: integer);
-      procedure SetFStyle(Value: integer);
-      procedure AddWord(Text: string);
-      procedure Refresh;
-    public
-      ColR:     real;
-      ColG:     real;
-      ColB:     real;
-      ColSR:    real;
-      ColSG:    real;
-      ColSB:    real;
-      Italic:   boolean;
-
-      constructor Create;
-      destructor Destroy; override;
-
-      procedure AddLine(NrLine: integer);
-
-      procedure Clear;
-      procedure Draw;
-    published
-      property X: real write SetX;
-      property Y: real write SetY;
-      property ClientX: real read GetClientX;
-      property Align: integer write SetAlign;
-      property Size: real read GetSize write SetSize;
-      property Selected: integer read SelectedI write SetSelected;
-      property FontStyle: integer write SetFStyle;
-  end;
-
-implementation
-
-uses
-  TextGL, UGraphic, UDrawTexture, Math, USkins;
-
-constructor TEditorLyrics.Create;
-begin
-  inherited;
-end;
-
-destructor TEditorLyrics.Destroy;
-begin
-  SetLength(Word, 0);
-  inherited;
-end;
-
-procedure TEditorLyrics.SetX(Value: real);
-begin
-  XR := Value;
-end;
-
-procedure TEditorLyrics.SetY(Value: real);
-begin
-  YR := Value;
-end;
-
-function TEditorLyrics.GetClientX: real;
-begin
-  Result := Word[0].X;
-end;
-
-procedure TEditorLyrics.SetAlign(Value: integer);
-begin
-  AlignI := Value;
-end;
-
-function TEditorLyrics.GetSize: real;
-begin
-  Result := SizeR;
-end;
-
-procedure TEditorLyrics.SetSize(Value: real);
-begin
-  SizeR := Value;
-end;
-
-procedure TEditorLyrics.SetSelected(Value: integer);
-var
-  W:  integer;
-begin
-  if (SelectedI > -1) and (SelectedI <= High(Word)) then
-  begin
-    Word[SelectedI].Selected := false;
-    Word[SelectedI].ColR := ColR;
-    Word[SelectedI].ColG := ColG;
-    Word[SelectedI].ColB := ColB;
-  end;
-
-  SelectedI := Value;
-  if (Value > -1) and (Value <= High(Word)) then
-  begin
-    Word[Value].Selected := true;
-    Word[Value].ColR := ColSR;
-    Word[Value].ColG := ColSG;
-    Word[Value].ColB := ColSB;
-  end;
-
-  Refresh;
-end;
-
-procedure TEditorLyrics.SetFStyle(Value: integer);
-begin
-  FontStyleI := Value;
-end;
-
-procedure TEditorLyrics.AddWord(Text: string);
-var
-  WordNum:    integer;
-begin
-  WordNum := Length(Word);
-  SetLength(Word, WordNum + 1);
-  if WordNum = 0 then begin
-    Word[WordNum].X := XR;
-  end else begin
-    Word[WordNum].X := Word[WordNum - 1].X + Word[WordNum - 1].Width;
-  end;
-
-  Word[WordNum].Y := YR;
-  Word[WordNum].Size := SizeR;
-  Word[WordNum].FontStyle := FontStyleI;
-  SetFontStyle(FontStyleI);
-  SetFontSize(SizeR);
-  Word[WordNum].Width := glTextWidth(pchar(Text));
-  Word[WordNum].Text := Text;
-  Word[WordNum].ColR := ColR;
-  Word[WordNum].ColG := ColG;
-  Word[WordNum].ColB := ColB;
-  Word[WordNum].Italic := Italic;
-
-  Refresh;
-end;
-
-procedure TEditorLyrics.AddLine(NrLine: integer);
-var
-  N:    integer;
-begin
-  Clear;
-  for N := 0 to Lines[0].Line[NrLine].HighNote do begin
-    Italic := Lines[0].Line[NrLine].Note[N].NoteType = ntFreestyle;
-    AddWord(Lines[0].Line[NrLine].Note[N].Text);
-  end;
-  Selected := -1;
-end;
-
-procedure TEditorLyrics.Clear;
-begin
-  SetLength(Word, 0);
-  SelectedI := -1;
-end;
-
-procedure TEditorLyrics.Refresh;
-var
-  W:          integer;
-  TotWidth:   real;
-begin
-  if AlignI = 1 then begin
-    TotWidth := 0;
-    for W := 0 to High(Word) do
-      TotWidth := TotWidth + Word[W].Width;
-
-    Word[0].X := XR - TotWidth / 2;
-    for W := 1 to High(Word) do
-      Word[W].X := Word[W - 1].X + Word[W - 1].Width;
-  end;
-end;
-
-procedure TEditorLyrics.Draw;
-var
-  W:    integer;
-begin
-  for W := 0 to High(Word) do
-  begin
-    SetFontStyle(Word[W].FontStyle);
-    SetFontPos(Word[W].X+ 10*ScreenX, Word[W].Y);
-    SetFontSize(Word[W].Size);
-    SetFontItalic(Word[W].Italic);
-    glColor3f(Word[W].ColR, Word[W].ColG, Word[W].ColB);
-    glPrint(pchar(Word[W].Text));
-  end;
-end;
-
-end.
-- 
cgit v1.2.3