"TappyTux Loader" interface updated.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1930 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2011-09-10 02:43:40 +00:00
parent 3e5c2e1b03
commit 068d0c4144
3 changed files with 98 additions and 48 deletions
--- a/applications/tappytux/gameconfigform.lfm
+++ b/applications/tappytux/gameconfigform.lfm
@ -7,14 +7,6 @@ object Form1: TForm1
  ClientHeight = 436
  ClientWidth = 582
  LCLVersion = '0.9.31'
-  object lblGameType: TLabel
-    Left = 16
-    Height = 16
-    Top = 16
-    Width = 58
-    Caption = 'GameType'
-    ParentColor = False
-  end
  object comboGameType: TComboBox
    Left = 17
    Height = 23
@ -25,6 +17,7 @@ object Form1: TForm1
      'Tappy Words'
      'Tappy Math'
    )
+    OnChange = comboGameTypeChange
    TabOrder = 0
    Text = 'GameType'
  end
@ -46,10 +39,17 @@ object Form1: TForm1
  end
  object ltbWordlist: TListBox
    Left = 212
-    Height = 292
-    Top = 44
+    Height = 300
+    Top = 38
    Width = 132
-    ItemHeight = 0
+    Items.Strings = (
+      'English'
+      'German'
+      'Afrikaans'
+      'French'
+      'Portuguese'
+    )
+    ItemHeight = 15
    TabOrder = 2
  end
  object lblSettings: TLabel
@ -150,7 +150,24 @@ object Form1: TForm1
    Height = 173
    Top = 189
    Width = 153
+    Lines.Strings = (
+      'Função 1:'
+      '     Nome 1.1'
+      ''
+      'Função 2:'
+      '     Nome 2.1'
+      '     Nome 2.2'
+      ''
+      'Função 3:'
+      '     Nome 3.1'
+      '     Nome 3.2'
+      '     Nome 3.3'
+      ''
+      'Função 4:'
+      '     Nome 4.1'
+    )
    ReadOnly = True
+    ScrollBars = ssAutoVertical
    TabOrder = 6
  end
  object btnLoad: TButton
@ -169,4 +186,12 @@ object Form1: TForm1
    Caption = 'Wordlist Editor'
    TabOrder = 8
  end
+  object lblGameType: TLabel
+    Left = 16
+    Height = 16
+    Top = 16
+    Width = 58
+    Caption = 'GameType'
+    ParentColor = False
+  end
 end
--- a/applications/tappytux/gameconfigform.pas
+++ b/applications/tappytux/gameconfigform.pas
@ -5,7 +5,8 @@ unit gameconfigform;
 interface

 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  ExtCtrls;

 type

@ -28,6 +29,7 @@ type
    ltbWordlist: TListBox;
    memoGameType: TMemo;
    memoCredits: TMemo;
+    procedure comboGameTypeChange(Sender: TObject);
  private
    { private declarations }
  public
@ -41,5 +43,29 @@ implementation

 {$R *.lfm}

+{ TForm1 }
+
+procedure TForm1.comboGameTypeChange(Sender: TObject);
+begin
+
+  Case comboGameType.itemIndex of
+  0: begin
+    memoGameType.Clear;
+    memoGameType.Lines.Add('Description: <Descrição do TappyWords>');
+    memoGameType.Lines.Add('');
+    memoGameType.Lines.Add('Hint: <Alguma dica para TappyWords>');
+    end;
+
+  1: begin
+    memoGameType.Clear;
+    memoGameType.Lines.Add('Description: <Descrição do TappyMath>');
+    memoGameType.Lines.Add('');
+    memoGameType.Lines.Add('Hint: <Alguma dica para TappyMath>');
+    end;
+
+  end;
+
+end;
+
 end.

--- a/applications/tappytux/tappytux.lpi
+++ b/applications/tappytux/tappytux.lpi
@ -39,7 +39,7 @@
        <Filename Value="tappytux.lpr"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="tappytux"/>
-        <UsageCount Value="23"/>
+        <UsageCount Value="26"/>
      </Unit0>
      <Unit1>
        <Filename Value="gameconfigform.pas"/>
@ -50,10 +50,10 @@
        <IsVisibleTab Value="True"/>
        <EditorIndex Value="0"/>
        <WindowIndex Value="0"/>
-        <TopLine Value="2"/>
-        <CursorPos X="40" Y="12"/>
-        <FoldState Value=" T7DBL T8U211:"/>
-        <UsageCount Value="23"/>
+        <TopLine Value="44"/>
+        <CursorPos X="62" Y="64"/>
+        <FoldState Value=" T7EBM T8W211X"/>
+        <UsageCount Value="26"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
@ -67,8 +67,7 @@
        <WindowIndex Value="0"/>
        <TopLine Value="3"/>
        <CursorPos X="26" Y="26"/>
-        <FoldState Value=" T8D21;"/>
-        <UsageCount Value="23"/>
+        <UsageCount Value="26"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit2>
@ -76,47 +75,47 @@
    <JumpHistory Count="30" HistoryIndex="29">
      <Position1>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="50" Column="3" TopLine="32"/>
+        <Caret Line="45" Column="36" TopLine="31"/>
      </Position1>
      <Position2>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="51" Column="3" TopLine="33"/>
+        <Caret Line="51" Column="55" TopLine="35"/>
      </Position2>
      <Position3>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="50" Column="3" TopLine="32"/>
+        <Caret Line="49" Column="56" TopLine="35"/>
      </Position3>
      <Position4>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="45" Column="36" TopLine="31"/>
+        <Caret Line="57" Column="1" TopLine="35"/>
      </Position4>
      <Position5>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="51" Column="55" TopLine="35"/>
+        <Caret Line="49" Column="56" TopLine="35"/>
      </Position5>
      <Position6>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="49" Column="56" TopLine="35"/>
+        <Caret Line="47" Column="19" TopLine="35"/>
      </Position6>
      <Position7>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="57" Column="1" TopLine="35"/>
+        <Caret Line="51" Column="55" TopLine="35"/>
      </Position7>
      <Position8>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="49" Column="56" TopLine="35"/>
+        <Caret Line="53" Column="55" TopLine="37"/>
      </Position8>
      <Position9>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="47" Column="19" TopLine="35"/>
+        <Caret Line="50" Column="59" TopLine="37"/>
      </Position9>
      <Position10>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="51" Column="55" TopLine="35"/>
+        <Caret Line="55" Column="1" TopLine="37"/>
      </Position10>
      <Position11>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="53" Column="55" TopLine="37"/>
+        <Caret Line="54" Column="92" TopLine="37"/>
      </Position11>
      <Position12>
        <Filename Value="gameconfigform.pas"/>
@ -124,75 +123,75 @@
      </Position12>
      <Position13>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="55" Column="1" TopLine="37"/>
+        <Caret Line="53" Column="21" TopLine="37"/>
      </Position13>
      <Position14>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="54" Column="92" TopLine="37"/>
+        <Caret Line="50" Column="29" TopLine="37"/>
      </Position14>
      <Position15>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="50" Column="59" TopLine="37"/>
+        <Caret Line="56" Column="92" TopLine="37"/>
      </Position15>
      <Position16>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="53" Column="21" TopLine="37"/>
+        <Caret Line="50" Column="29" TopLine="37"/>
      </Position16>
      <Position17>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="50" Column="29" TopLine="37"/>
+        <Caret Line="55" Column="55" TopLine="37"/>
      </Position17>
      <Position18>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="56" Column="92" TopLine="37"/>
+        <Caret Line="50" Column="31" TopLine="37"/>
      </Position18>
      <Position19>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="50" Column="29" TopLine="37"/>
+        <Caret Line="53" Column="33" TopLine="37"/>
      </Position19>
      <Position20>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="55" Column="55" TopLine="37"/>
+        <Caret Line="55" Column="41" TopLine="37"/>
      </Position20>
      <Position21>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="50" Column="31" TopLine="37"/>
+        <Caret Line="56" Column="6" TopLine="38"/>
      </Position21>
      <Position22>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="53" Column="33" TopLine="37"/>
+        <Caret Line="40" Column="41" TopLine="37"/>
      </Position22>
      <Position23>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="55" Column="41" TopLine="37"/>
+        <Caret Line="23" Column="15" TopLine="1"/>
      </Position23>
      <Position24>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="56" Column="6" TopLine="38"/>
+        <Caret Line="17" Column="19" TopLine="12"/>
      </Position24>
      <Position25>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="40" Column="41" TopLine="37"/>
+        <Caret Line="33" Column="24" TopLine="24"/>
      </Position25>
      <Position26>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="23" Column="15" TopLine="1"/>
+        <Caret Line="5" Column="32" TopLine="2"/>
      </Position26>
      <Position27>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="17" Column="19" TopLine="12"/>
+        <Caret Line="12" Column="40" TopLine="2"/>
      </Position27>
      <Position28>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="33" Column="24" TopLine="24"/>
+        <Caret Line="63" Column="62" TopLine="43"/>
      </Position28>
      <Position29>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="5" Column="32" TopLine="2"/>
+        <Caret Line="65" Column="62" TopLine="45"/>
      </Position29>
      <Position30>
        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="12" Column="40" TopLine="2"/>
+        <Caret Line="64" Column="62" TopLine="44"/>
      </Position30>
    </JumpHistory>
  </ProjectOptions>