pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2141 8e941d3f-bd1b-0410-a28a-d453659cc2b4

Browse Source
This commit is contained in:
denniscuflat
2011-11-15 17:38:30 +00:00
parent d107a7c229
commit 93b6b043b7
6 changed files with 291 additions and 192 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
applications/tappytux/gameplayform.lfm
View File

@ -186,51 +186,6 @@ object formTappyTuxGame: TformTappyTuxGame
TabOrder = 5
Visible = False
end
object Question1: TEdit
Left = 112
Height = 23
Top = 24
Width = 82
ReadOnly = True
TabOrder = 6
Text = 'Question'
end
object Question2: TEdit
Left = 216
Height = 23
Top = 24
Width = 80
ReadOnly = True
TabOrder = 7
Text = 'Question'
end
object Question4: TEdit
Left = 320
Height = 23
Top = 24
Width = 80
ReadOnly = True
TabOrder = 8
Text = 'Question'
end
object Question3: TEdit
Left = 424
Height = 23
Top = 24
Width = 80
ReadOnly = True
TabOrder = 9
Text = 'Question'
end
object Question5: TEdit
Left = 528
Height = 23
Top = 24
Width = 80
ReadOnly = True
TabOrder = 10
Text = 'Question'
end
object GameOver: TToggleBox
Left = 240
Height = 64
@ -241,7 +196,7 @@ object formTappyTuxGame: TformTappyTuxGame
Color = clRed
Enabled = False
State = cbChecked
TabOrder = 11
TabOrder = 6
Visible = False
end
object Yes: TButton
@ -252,7 +207,7 @@ object formTappyTuxGame: TformTappyTuxGame
Caption = 'Yes'
Color = clRed
OnClick = YesClick
TabOrder = 12
TabOrder = 7
Visible = False
end
object No: TButton
@ -263,7 +218,7 @@ object formTappyTuxGame: TformTappyTuxGame
Caption = 'No'
Color = clRed
OnClick = NoClick
TabOrder = 13
TabOrder = 8
Visible = False
end
end

15
applications/tappytux/gameplayform.pas
View File

@ -20,11 +20,6 @@ type
Answer: TEdit;
No: TButton;
Yes: TButton;
Question1: TEdit;
Question2: TEdit;
Question4: TEdit;
Question3: TEdit;
Question5: TEdit;
Level: TEdit;
Score: TEdit;
Lives: TEdit;
@ -50,7 +45,6 @@ type
var
formTappyTuxGame: TformTappyTuxGame;
Questions : array[1..5] of TEdit;
implementation
@ -94,11 +88,6 @@ end;
procedure TformTappyTuxGame.FormShow(Sender: TObject);
begin
Questions[1] := Question1;
Questions[2] := Question2;
Questions[3] := Question3;
Questions[4] := Question4;
Questions[5] := Question5;
end;
@ -119,10 +108,6 @@ procedure TformTappyTuxGame.YesClick(Sender: TObject);
var
i: Integer;
begin
for i:= 1 to 5 do
begin
Questions[i].Top := 24;
end;
GetCurrentModule().StartNewGame(formConfig.comboSound.ItemIndex,
formConfig.comboMusic.ItemIndex,
formConfig.comboLevel.ItemIndex,

226
applications/tappytux/mod_tappymath.pas
View File

@ -5,7 +5,7 @@ unit mod_tappymath;
interface
uses
Classes, SysUtils,
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
// LCL
ExtCtrls,
// TappyTux
@ -24,8 +24,10 @@ type
gameSLevel : Integer;
gameSndFX : Boolean;
gameMusic : Boolean;
gameQuestionList : TStringList;
questionType : array[1..3] of Integer;
questionAnswer : array[1..5] of Integer;
count : Integer;
timerMath : TTimer;
procedure HandleOnTimer(Sender: TObject);
@ -38,7 +40,6 @@ type
procedure CreateQuestion(); override;
procedure Answered(); override;
procedure EndGame(); override;
procedure QuestionGenerator(qNumber : Integer);
end;
implementation
@ -50,19 +51,38 @@ uses gameplayform;
procedure TTappyMath.HandleOnTimer(Sender: TObject);
var
i: Integer;
j: Integer;
frequency: Integer;
begin
for i:= 1 to 5 do
i:= 0;
j:= vTappyTuxDrawer.GetAnimationCount - 1;
while (i<= j) do
begin
Questions[i].Top := Questions[i].Top + (5*gameLevel);
if ((Questions[i].Top >= 370)) then
if vTappyTuxDrawer.GetAnimation(i).InheritsFrom(TFallingText) then
begin
if (vTappyTuxDrawer.GetAnimation(i).Position.y >= 270) then
begin
gameLives := gameLives - 1;
formTappyTuxGame.Lives.Text := IntToStr(gameLives);
vTappyTuxDrawer.RemoveAnimation(i);
i := i - 1;
if (gameLives = 0) then EndGame();
Questions[i].Top:= 24;
QuestionGenerator(i);
CreateQuestion;
end;
end
end;
i := i + 1;
j := vTappyTuxDrawer.GetAnimationCount - 1;
end;
frequency := 30;
count := count + 1;
if count >= frequency then
begin
count := 0;
CreateQuestion();
end;
vTappyTuxDrawer.HandleAnimationOnTimer();
end;
@ -99,8 +119,9 @@ end;
procedure TTappyMath.StartNewGame(SndFX: Integer; Music: Integer; Level: Integer; QuestionList: Integer);
var
i: Integer;
lTuxAnimation: TTappySpriteAnimation;
begin
count := 0;
timerMath.Enabled := True;
gameScore := 0;
gameLives := 5;
@ -120,74 +141,195 @@ begin
formTappyTuxGame.Score.Text := IntToStr(gameScore);
formTappyTuxGame.Lives.Text := IntToStr(gameLives);
// Animations Creation
lTuxAnimation := TTappySpriteAnimation.Create;
lTuxAnimation.IsInfinite := True;
lTuxAnimation.StartPoint := Point(250, 328);
lTuxAnimation.EndPoint := lTuxAnimation.StartPoint;
SetLength(lTuxAnimation.Bitmaps, 6);
lTuxAnimation.Bitmaps[0] := TPortableNetworkGraphic.Create;
lTuxAnimation.Bitmaps[0].LoadFromFile(vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'tux_1.png');
lTuxAnimation.Bitmaps[1] := TPortableNetworkGraphic.Create;
lTuxAnimation.Bitmaps[1].LoadFromFile(vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'tux_2.png');
lTuxAnimation.Bitmaps[2] := TPortableNetworkGraphic.Create;
lTuxAnimation.Bitmaps[2].LoadFromFile(vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'tux_3.png');
lTuxAnimation.Bitmaps[3] := TPortableNetworkGraphic.Create;
lTuxAnimation.Bitmaps[3].LoadFromFile(vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'tux_4.png');
lTuxAnimation.Bitmaps[4] := lTuxAnimation.Bitmaps[2];
lTuxAnimation.Bitmaps[5] := lTuxAnimation.Bitmaps[1];
vTappyTuxDrawer.AddAnimation(lTuxAnimation);
for i:= 1 to 5 do
begin
QuestionGenerator(i);
CreateQuestion;
end
end;
procedure TTappyMath.CreateQuestion;
begin
end;
procedure TTappyMath.Answered;
var
i: Integer;
j: Integer;
xAux: Integer;
yAux: Integer;
heightAux: array [0..4] of integer;
existenceAux: array [0..4] of boolean;
snowmanAnimation: TFallingText;
begin
for i:= 1 to 5 do
for i:= 0 to 4 do
begin
if (formTappyTuxGame.Answer.Text = IntToStr(questionAnswer[i])) then
begin
Questions[i].Top := 24;
QuestionGenerator(i);
gameScore := gameScore +1;
gameLevel := (gameScore div 20) + gameSLevel;
formTappyTuxGame.Score.Text := IntToStr(gameScore);
formTappyTuxGame.Level.Text := IntToStr(gameLevel);
existenceAux[i]:= False;
heightAux[i] := 500;
end;
end
end;
xAux:=5;
yAux:=5;
procedure TTappyMath.EndGame;
begin
timerMath.Enabled := False;
formTappyTuxGame.Answer.ReadOnly := true;
formTappyTuxGame.GameOver.Visible := true;
formTappyTuxGame.Yes.Visible := true;
formTappyTuxGame.No.Visible := true;
end;
snowmanAnimation := TFallingText.Create;
snowmanAnimation.IsInfinite := False;
for i:= 0 to vTappyTuxDrawer.GetAnimationCount - 1 do
begin
if vTappyTuxDrawer.GetAnimation(i).InheritsFrom(TFallingText) then
begin
for j:= 0 to 4 do
begin
if vTappyTuxDrawer.GetAnimation(i).StartPoint.X = 5+(103*j) then
begin
existenceAux[j] := True;
if vTappyTuxDrawer.GetAnimation(i).Position.Y < heightAux[j] then heightAux[j] := vTappyTuxDrawer.GetAnimation(i).Position.Y;
end;
end;
end;
end;
for i:= 0 to 4 do
begin
if heightAux[i] > yAux then
begin
yAux := heightAux[i];
xAux := 5 + i*103;
end;
end;
if existenceAux[0] = false then xAux := 5
else
begin
if existenceAux[1] = false then xAux := 108
else
begin
if existenceAux[2] = false then xAux := 211
else
begin
if existenceAux[3] = false then xAux := 314
else
begin
if existenceAux[4] = false then xAux := 417
end;
end;
end;
end;
snowmanAnimation.StartPoint := Point(xAux, 5);
snowmanAnimation.EndPoint := Point(xAux, 205);
snowmanAnimation.IsInfinite:= false;
snowmanAnimation.Bitmap := TPortableNetworkGraphic.Create;
//snowmanAnimation.caption:= gameQuestionList[random(gameQuestionList.Count - 1)];
snowmanAnimation.Bitmap.LoadFromFile(vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'snowman.png');
procedure TTappyMath.QuestionGenerator(qNumber : Integer);
begin
questionType[1] := random(3);
Case questionType[1] of
0: begin
questionType[2] := random(21);
questionType[3] := random(21);
questionAnswer[qNumber] := questionType[2] + questionType[3];
Questions[qNumber].Text := IntToStr(questionType[2])+' + ' +IntToStr(questionType[3]);
snowmanAnimation.value := IntToStr(questionType[2] + questionType[3]);
snowmanAnimation.caption := IntToStr(questionType[2])+' + ' +IntToStr(questionType[3]);
end;
1: begin
questionType[2] := random(21);
questionType[3] := random(questionType[2]);
questionAnswer[qNumber] := questionType[2] - questionType[3];
Questions[qNumber].Text := IntToStr(questionType[2])+' - ' +IntToStr(questionType[3]);
snowmanAnimation.value := IntToStr(questionType[2] - questionType[3]);
snowmanAnimation.caption := IntToStr(questionType[2])+' - ' +IntToStr(questionType[3]);
end;
2: begin
questionType[2] := random(11);
questionType[3] := random(11);
questionAnswer[qNumber] := questionType[2] * questionType[3];
Questions[qNumber].Text := IntToStr(questionType[2])+' x ' +IntToStr(questionType[3]);
snowmanAnimation.value := IntToStr(questionType[2] * questionType[3]);
snowmanAnimation.caption := IntToStr(questionType[2])+' x ' +IntToStr(questionType[3]);
end;
end;
vTappyTuxDrawer.AddAnimation(snowmanAnimation);
end;
procedure TTappyMath.Answered;
var
i: Integer;
j: Integer;
begin
i:= 0;
j:= vTappyTuxDrawer.GetAnimationCount - 1;
while (i<= j) do
begin
if vTappyTuxDrawer.GetAnimation(i).InheritsFrom(TFallingText) then
begin
if (vTappyTuxDrawer.GetAnimation(i).value = formTappyTuxGame.Answer.Text) then
begin
gameScore := gameScore +1;
gameLevel := (gameScore div 20) + gameSLevel;
formTappyTuxGame.Score.Text := IntToStr(gameScore);
formTappyTuxGame.Level.Text := IntToStr(gameLevel);
vTappyTuxDrawer.RemoveAnimation(i);
i := i - 1;
CreateQuestion;
end;
end;
i := i + 1;
j := vTappyTuxDrawer.GetAnimationCount - 1;
end;
end;
procedure TTappyMath.EndGame;
var
i : Integer;
j : Integer;
gameOverScreen: TTappySpriteAnimation;
continueBtn: TButton;
exitBtn: TButton;
begin
timerMath.Enabled := False;
formTappyTuxGame.Answer.ReadOnly := true;
//gameOverScreen := TTappySpriteAnimation.Create;
//gameOverScreen.IsInfinite := True;
//gameOverScreen.StartPoint := Point(90, 150);
//gameOverScreen.EndPoint := gameOverScreen.StartPoint;
//SetLength(gameOverScreen.Bitmaps, 1);
//gameOverScreen.Bitmaps[0] := TPortableNetworkGraphic.Create;
//gameOverScreen.Bitmaps[0].LoadFromFile(vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'gameover.png');
//vTappyTuxDrawer.AddAnimation(gameOverScreen);
i:= 0;
j:= vTappyTuxDrawer.GetAnimationCount - 1;
while (i<= j) do
begin
vTappyTuxDrawer.RemoveAnimation(i);
j := vTappyTuxDrawer.GetAnimationCount - 1;
end;
formTappyTuxGame.GameOver.Visible := true;
formTappyTuxGame.Yes.Visible := true;
formTappyTuxGame.No.Visible := true;
end;
initialization

143
applications/tappytux/mod_tappywords.pas
View File

@ -25,6 +25,7 @@ type
gameSndFX : Boolean;
gameMusic : Boolean;
gameQuestionList : TStringList;
count : Integer;
timerWords: TTimer;
procedure HandleOnTimer(Sender: TObject);
public
@ -47,41 +48,39 @@ uses gameplayform;
procedure TTappyWords.HandleOnTimer(Sender: TObject);
var
i: Integer;
j: Integer;
frequency: Integer;
begin
{for i:= 1 to vTappyTuxDrawer.GetAnimationCount do
i:= 0;
j:= vTappyTuxDrawer.GetAnimationCount - 1;
while (i<= j) do
begin
if vTappyTuxDrawer.GetAnimation(i).InheritsFrom(TFallingText) then
begin
vTappyTuxDrawer.GetAnimation(i).;
end;
end;}
for i:= 1 to 5 do
begin
Questions[i].Top := Questions[i].Top + (5*gameLevel);
if ((Questions[i].Top >= 370)) then
if (vTappyTuxDrawer.GetAnimation(i).Position.y >= 270) then
begin
gameLives := gameLives - 1;
formTappyTuxGame.Lives.Text := IntToStr(gameLives);
vTappyTuxDrawer.RemoveAnimation(i);
i := i - 1;
if (gameLives = 0) then EndGame();
Questions[i].Top:= 24;
Questions[i].Text := formTappyTuxGame.Test.Lines.Strings[random(71)];
CreateQuestion;
end;
end;
i := i + 1;
j := vTappyTuxDrawer.GetAnimationCount - 1;
end;
for i:= 0 to vTappyTuxDrawer.GetAnimationCount - 1 do
frequency := 30;
count := count + 1;
if count >= frequency then
begin
if vTappyTuxDrawer.GetAnimation(i).InheritsFrom(TFallingText) then
begin
vTappyTuxDrawer.GetAnimation(i).StartPoint.y:= vTappyTuxDrawer.GetAnimation(i).StartPoint.y + (5*gameLevel);
vTappyTuxDrawer.GetAnimation(i).EndPoint.y:= vTappyTuxDrawer.GetAnimation(i).StartPoint.y;
count := 0;
CreateQuestion();
end;
end;
vTappyTuxDrawer.HandleAnimationOnTimer();
end;
constructor TTappyWords.Create;
@ -119,6 +118,7 @@ var
lTuxAnimation: TTappySpriteAnimation;
begin
count := 5;
timerWords.Enabled := True;
gameScore := 0;
gameLives := 5;
@ -132,8 +132,8 @@ begin
if QuestionList < 0 then QuestionList := 0;
gameQuestionList := TStringList.Create;
gameQuestionList.LoadFromFile(vTappyTuxConfig.GetResourcesDir() + 'images'+PathDelim+'modules'+PathDelim+'tappywords'+PathDelim+'0.txt');
//gameQuestionList.LoadFromFile('C:/'+IntToStr(QuestionList)+'.txt');
//gameQuestionList.LoadFromFile(vTappyTuxConfig.GetResourcesDir() + 'images'+PathDelim+'modules'+PathDelim+'tappywords'+PathDelim+'0.txt');
gameQuestionList.LoadFromFile('C:/'+IntToStr(QuestionList)+'.txt');
formTappyTuxGame.Answer.ReadOnly := false;
formTappyTuxGame.GameOver.Visible := false;
@ -143,12 +143,6 @@ begin
formTappyTuxGame.Score.Text := IntToStr(gameScore);
formTappyTuxGame.Lives.Text := IntToStr(gameLives);
for i:= 1 to 5 do
begin
//Questions[i].Text := formTappyTuxGame.Test.Lines.Strings[random(71)];
Questions[i].Text := gameQuestionList[random(gameQuestionList.Count - 1)];
end;
// Animations Creation
lTuxAnimation := TTappySpriteAnimation.Create;
lTuxAnimation.IsInfinite := True;
@ -167,9 +161,10 @@ begin
lTuxAnimation.Bitmaps[5] := lTuxAnimation.Bitmaps[1];
vTappyTuxDrawer.AddAnimation(lTuxAnimation);
for i:= 1 to 5 do
begin
CreateQuestion();
CreateQuestion;
end;
end;
@ -177,64 +172,76 @@ end;
procedure TTappyWords.CreateQuestion();
var
i: Integer;
j: Integer;
xAux: Integer;
yAux: Integer;
heightAux: array [0..4] of integer;
existenceAux: array [0..4] of boolean;
snowmanAnimation: TFallingText;
existenceAux1, existenceAux2, existenceAux3, existenceAux4, existenceAux5: boolean;
begin
existenceAux1:= false;
existenceAux2:= false;
existenceAux3:= false;
existenceAux4:= false;
existenceAux5:= false;
for i:= 0 to 4 do
begin
existenceAux[i]:= False;
heightAux[i] := 500;
end;
xAux:=5;
yAux:=5;
snowmanAnimation := TFallingText.Create;
snowmanAnimation.IsInfinite := True;
if True then
begin
snowmanAnimation := TFallingText.Create;
snowmanAnimation.IsInfinite := False;
for i:= 0 to vTappyTuxDrawer.GetAnimationCount - 1 do
begin
if vTappyTuxDrawer.GetAnimation(i).InheritsFrom(TFallingText) then
begin
if vTappyTuxDrawer.GetAnimation(i).StartPoint.x = 5 then existenceAux1 := True;
if vTappyTuxDrawer.GetAnimation(i).StartPoint.x = 108 then existenceAux2 := True;
if vTappyTuxDrawer.GetAnimation(i).StartPoint.x = 211 then existenceAux3 := True;
if vTappyTuxDrawer.GetAnimation(i).StartPoint.x = 314 then existenceAux4 := True;
if vTappyTuxDrawer.GetAnimation(i).StartPoint.x = 427 then existenceAux5 := True;
if vTappyTuxDrawer.GetAnimation(i).StartPoint.y > yAux then
for j:= 0 to 4 do
begin
xAux := vTappyTuxDrawer.GetAnimation(i).StartPoint.x;
yAux := vTappyTuxDrawer.GetAnimation(i).StartPoint.y;
if vTappyTuxDrawer.GetAnimation(i).StartPoint.X = 5+(103*j) then
begin
existenceAux[j] := True;
if vTappyTuxDrawer.GetAnimation(i).Position.Y < heightAux[j] then heightAux[j] := vTappyTuxDrawer.GetAnimation(i).Position.Y;
end;
end;
end;
end;
if existenceAux1 = false then xAux := 5
for i:= 0 to 4 do
begin
if heightAux[i] > yAux then
begin
yAux := heightAux[i];
xAux := 5 + i*103;
end;
end;
if existenceAux[0] = false then xAux := 5
else
begin
if existenceAux2 = false then xAux := 108
if existenceAux[1] = false then xAux := 108
else
begin
if existenceAux3 = false then xAux := 211
if existenceAux[2] = false then xAux := 211
else
begin
if existenceAux4 = false then xAux := 314
if existenceAux[3] = false then xAux := 314
else
begin
if existenceAux5 = false then xAux := 427
if existenceAux[4] = false then xAux := 417
end;
end;
end;
end;
snowmanAnimation.StartPoint := Point(xAux, 5);
snowmanAnimation.EndPoint := snowmanAnimation.StartPoint;
snowmanAnimation.EndPoint := Point(xAux, 205);
snowmanAnimation.IsInfinite:= false;
snowmanAnimation.Bitmap := TPortableNetworkGraphic.Create;
snowmanAnimation.QuestionText:= formTappyTuxGame.Test.Lines.Strings[random(71)];
snowmanAnimation.caption:= gameQuestionList[random(gameQuestionList.Count - 1)];
snowmanAnimation.Bitmap.LoadFromFile(vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'snowman.png');
vTappyTuxDrawer.AddAnimation(snowmanAnimation);
@ -243,26 +250,35 @@ end;
procedure TTappyWords.Answered;
var
i: Integer;
j: Integer;
begin
for i:= 1 to 5 do
i:= 0;
j:= vTappyTuxDrawer.GetAnimationCount - 1;
while (i<= j) do
begin
if (formTappyTuxGame.Answer.Text = Questions[i].Text) then
if vTappyTuxDrawer.GetAnimation(i).InheritsFrom(TFallingText) then
begin
if (vTappyTuxDrawer.GetAnimation(i).caption = formTappyTuxGame.Answer.Text) then
begin
Questions[i].Top := 24;
//Questions[i].Text := formTappyTuxGame.Test.Lines.Strings[random(71)];
Questions[i].Text := gameQuestionList[random(gameQuestionList.Count - 1)];
gameScore := gameScore +1;
gameLevel := (gameScore div 20) + gameSLevel;
formTappyTuxGame.Score.Text := IntToStr(gameScore);
formTappyTuxGame.Level.Text := IntToStr(gameLevel);
vTappyTuxDrawer.RemoveAnimation(i);
i := i - 1;
end;
end
end;
i := i + 1;
j := vTappyTuxDrawer.GetAnimationCount - 1;
end;
CreateQuestion;
end;
procedure TTappyWords.EndGame;
var
i : Integer;
j : Integer;
gameOverScreen: TTappySpriteAnimation;
continueBtn: TButton;
exitBtn: TButton;
@ -279,9 +295,12 @@ begin
//gameOverScreen.Bitmaps[0].LoadFromFile(vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'gameover.png');
//vTappyTuxDrawer.AddAnimation(gameOverScreen);
for i:= 1 to vTappyTuxDrawer.GetAnimationCount - 1 do
i:= 0;
j:= vTappyTuxDrawer.GetAnimationCount - 1;
while (i<= j) do
begin
vTappyTuxDrawer.GetAnimation(i).Destroy;
vTappyTuxDrawer.RemoveAnimation(i);
j := vTappyTuxDrawer.GetAnimationCount - 1;
end;
formTappyTuxGame.GameOver.Visible := true;

8
applications/tappytux/tappydrawer.pas
View File

@ -19,6 +19,8 @@ type
CurrentStep: Integer;
StepCount: Integer;
IsInfinite: Boolean; // if True the animation will never end
caption: String;
value: String;
constructor Create; virtual;
procedure DrawToIntfImg(AIntfImage: TLazIntfImage); virtual;
procedure DrawToCanvas(ACanvas: TCanvas); virtual;
@ -41,8 +43,6 @@ type
public
//StartPoint, EndPoint: TPoint; override;
Bitmap: TFPImageBitmap;
QuestionText: String;
QuestionBox: TCanvas;
procedure DrawToIntfImg(AIntfImage: TLazIntfImage); override;
procedure DrawToCanvas(ACanvas: TCanvas); override;
procedure ExecuteFinal; override;
@ -108,14 +108,12 @@ procedure TFallingText.DrawToIntfImg(AIntfImage: TLazIntfImage);
begin
TTappyTuxDrawer.DrawImageWithTransparentColor(AIntfImage,
Position.X, Position.Y, colFuchsia, Bitmap);
QuestionBox := TCanvas.Create;
//QuestionBox.TextOut(lPos.X, lPos.Y, QuestionText);
end;
procedure TFallingText.DrawToCanvas(ACanvas: TCanvas);
begin
//ACanvas.Pixels[CurrentStep, CurrentStep] := clRed;
ACanvas.TextOut(StartPoint.X + 30, StartPoint.Y + 50, QuestionText);
ACanvas.TextOut(Position.X + 30, Position.Y + 50, caption);
end;
procedure TFallingText.ExecuteFinal;

4
applications/tappytux/tappymodules.pas
View File

@ -95,8 +95,8 @@ var
begin
lDir := vTappyTuxConfig.GetResourcesDir();
imgLevel2.LoadFromFile(lDir + 'images'+PathDelim+'levels'+PathDelim+'level2.jpg');
imgLevel3.LoadFromFile(lDir + 'images'+PathDelim+'levels'+PathDelim+'level3.jpg');
imgLevel2.LoadFromFile(lDir + 'images'+PathDelim+'levels'+PathDelim+'levelp.jpg');
imgLevel3.LoadFromFile(lDir + 'images'+PathDelim+'levels'+PathDelim+'levelp.jpg');
end;
function TTappyModule.GetBackgroundImage(ALevel: Integer): TJPEGImage;