First multi platform version, works on Linux and Windows

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.1@855 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 230 insertions, 0 deletions

diff --git a/ScoreConverter/Umainform.pas b/ScoreConverter/Umainform.pas
new file mode 100644
index 00000000..c5cc5347
--- /dev/null
+++ b/ScoreConverter/Umainform.pas
@@ -0,0 +1,230 @@
+unit Umainform;

+

+interface

+

+uses

+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

+  Dialogs, StdCtrls, ComCtrls, UDataBase, ShellAPI, ShlObj, USongs;

+

+type

+  Tmainform = class(TForm)

+    Label1: TLabel;

+    lFolder: TLabel;

+    bFLoad: TButton;

+    Label2: TLabel;

+    lDatabase: TLabel;

+    bDLoad: TButton;

+    lDatabase2: TLabel;

+    lFolder2: TLabel;

+    bToDB: TButton;

+    bFromDB: TButton;

+    pProgress: TProgressBar;

+    oDatabase: TOpenDialog;

+    lStatus: TLabel;

+    procedure FormCreate(Sender: TObject);

+    procedure bDLoadClick(Sender: TObject);

+    function BrowseDialog (const Title: string; const Flag: integer): string;

+    procedure bFLoadClick(Sender: TObject);

+    procedure UpdateLoadedSongs(Path: String; Count: integer);

+    procedure bToDBClick(Sender: TObject);

+    procedure bFromDBClick(Sender: TObject);

+  private

+    { Private-Deklarationen }

+  public

+    { Public-Deklarationen }

+  end;

+

+var

+  mainform: Tmainform;

+  DBLoaded: Boolean;

+  SFLoaded: Boolean;

+

+

+implementation

+

+uses UScores;

+

+{$R *.dfm}

+

+function Tmainform.BrowseDialog

+ (const Title: string; const Flag: integer): string;

+var

+  lpItemID : PItemIDList;

+  BrowseInfo : TBrowseInfo;

+  DisplayName : array[0..MAX_PATH] of char;

+  TempPath : array[0..MAX_PATH] of char;

+begin

+  Result:='';

+  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);

+  with BrowseInfo do begin

+    hwndOwner := Application.Handle;

+    pszDisplayName := @DisplayName;

+    lpszTitle := PChar(Title);

+    ulFlags := Flag;

+  end;

+  lpItemID := SHBrowseForFolder(BrowseInfo);

+  if lpItemId <> nil then begin

+    SHGetPathFromIDList(lpItemID, TempPath);

+    Result := TempPath;

+    GlobalFreePtr(lpItemID);

+  end;

+end;

+

+procedure Tmainform.FormCreate(Sender: TObject);

+begin

+  Database := TDataBaseSystem.Create;

+  Songs := TSongs.Create;

+  lStatus.Caption := 'Welcome to USD Score Converter';

+  lFolder2.Caption := 'No Songs loaded';

+  lFolder.Caption := '';

+  lDataBase2.Caption := 'No Database loaded';

+  lDataBase.Caption := '';

+end;

+

+procedure Tmainform.bDLoadClick(Sender: TObject);

+begin

+  if oDatabase.Execute then

+  begin

+    try

+      Database.Init(oDataBase.FileName);

+      lDataBase2.Caption := 'Database loaded';

+      lDataBase.Caption := oDataBase.FileName;

+      DBLoaded := True;

+    except

+      lDataBase2.Caption := 'No Database loaded';

+      lDataBase.Caption := '';

+      DBLoaded := False;

+    end;

+  end;

+  bToDB.Enabled := DBLoaded and SFLoaded;

+  bFromDB.Enabled := bToDB.Enabled;

+end;

+

+procedure Tmainform.bFLoadClick(Sender: TObject);

+var

+  Path: String;

+begin

+  Path := BrowseDialog('Select UltraStar SongFolder', BIF_RETURNONLYFSDIRS);

+

+  if Path <> '' then

+  begin

+    SetLength(Songs.Song, 0);

+    try

+      Songs.BrowseDir(Path + '\');

+      lFolder2.Caption := Inttostr(Length(Songs.Song)) + ' Songs loaded';

+      lFolder.Caption := Path;

+      SFLoaded := True;

+    except

+      lFolder2.Caption := 'No Songs loaded';

+      lFolder.Caption := '';

+      SFLoaded := False;

+    end;

+  end;

+

+  bToDB.Enabled := DBLoaded and SFLoaded;

+  bFromDB.Enabled := bToDB.Enabled;

+end;

+

+procedure Tmainform.UpdateLoadedSongs(Path: String; Count: integer);

+begin

+  lFolder2.Caption := Inttostr(Count) + ' Songs loaded';

+  lFolder.Caption := Path;

+  Application.ProcessMessages;

+end;

+

+procedure Tmainform.bToDBClick(Sender: TObject);

+var

+  I, J, K: Integer;

+  LastI: integer;

+begin

+  if (Messagebox(0, PChar('If the same directory is added more than one time the Score-File will be useless. Contėnue ?'), PChar(Mainform.Caption), MB_ICONWARNING or MB_YESNO) = IDYes) then

+  begin

+    pProgress.Max := high(Songs.Song);

+    pProgress.Position := 0;

+    // Go through all Songs

+    For I := 0 to high(Songs.Song) do

+    begin

+      try

+        //Read Scores from .SCO File

+        ReadScore (Songs.Song[I]);

+

+        //Go from Easy to Difficult

+        For J := 0 to 2 do

+        begin

+          //Go through all Score Entrys with Difficulty J

+          For K := 0 to high(Songs.Song[I].Score[J]) do

+          begin

+            //Add to DataBase

+            DataBase.AddScore(Songs.Song[I], J, Songs.Song[I].Score[J][K].Name, Songs.Song[I].Score[J][K].Score);

+          end;

+        end;

+

+      except

+        showmessage ('Error Converting Score From Song: ' + Songs.Song[I].Path  + Songs.Song[I].FileName);

+      end;

+

+      //Update ProgressBar

+      J := I div 30;

+      if (LastI <> J) then

+      begin

+        LastI := J;

+        pProgress.Position := I;

+        lStatus.Caption := 'Adding Songscore: ' + Songs.Song[I].Artist + ' - ' + Songs.Song[I].Title;

+        Application.ProcessMessages;

+      end;

+    end;

+

+    pProgress.Position := pProgress.Max;

+    lStatus.Caption := 'Finished';

+  end;

+end;

+

+procedure Tmainform.bFromDBClick(Sender: TObject);

+var

+  I, J: Integer;

+  LastI: integer;

+  anyScoreinthere: boolean;

+begin

+  if (Messagebox(0, PChar('All Score Entrys in the Song Directory having an equivalent will be Overwritten. Contėnue ?'), PChar(Mainform.Caption), MB_ICONWARNING or MB_YESNO) = IDYes) then

+  begin

+    pProgress.Max := high(Songs.Song);

+    pProgress.Position := 0;

+    // Go through all Songs

+    For I := 0 to high(Songs.Song) do

+    begin

+      try

+        //Not Write ScoreFile when there are no Scores for this File

+        anyScoreinthere := false;

+        //Read Scores from DB File

+        Database.ReadScore (Songs.Song[I]);

+

+        //Go from Easy to Difficult

+        For J := 0 to 2 do

+        begin

+          anyScoreinthere := anyScoreinthere or (Length(Songs.Song[I].Score[J]) > 0);

+        end;

+

+        if AnyScoreinThere then

+          WriteScore(Songs.Song[I]);

+

+      except

+        showmessage ('Error Converting Score From Song: ' + Songs.Song[I].Path  + Songs.Song[I].FileName);

+      end;

+

+      //Update ProgressBar

+      J := I div 30;

+      if (LastI <> J) then

+      begin

+        LastI := J;

+        pProgress.Position := I;

+        lStatus.Caption := 'Writing ScoreFile: ' + Songs.Song[I].Artist + ' - ' + Songs.Song[I].Title;

+        Application.ProcessMessages;

+      end;

+    end;

+    

+    pProgress.Position := pProgress.Max;

+    lStatus.Caption := 'Finished';

+  end;

+end;

+

+end.