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

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

Browse Source
This commit is contained in:
denniscuflat
2011-11-15 13:37:10 +00:00
parent eb7fda5787
commit 900023506f
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
applications/tappytux/mod_tappywords.pas
View File

@@ -132,9 +132,8 @@ begin
if QuestionList < 0 then QuestionList := 0; if QuestionList < 0 then QuestionList := 0;
gameQuestionList := TStringList.Create; gameQuestionList := TStringList.Create;
//gameQuestionList.LoadFromFile(vTappyTuxConfig.GetResourcesDir() + 'images'+PathDelim+'modules'+PathDelim+'tappywords'+PathDelim+'0.txt'); gameQuestionList.LoadFromFile(vTappyTuxConfig.GetResourcesDir() + 'images'+PathDelim+'modules'+PathDelim+'tappywords'+PathDelim+'0.txt');
//gameQuestionList.LoadFromFile('C:/Users/User/Lazarus/Arquivos/Repositorio/applications/tappytux/images/modules/tappywords/0.txt'); //gameQuestionList.LoadFromFile('C:/'+IntToStr(QuestionList)+'.txt');
gameQuestionList.LoadFromFile('C:/'+IntToStr(QuestionList)+'.txt');
formTappyTuxGame.Answer.ReadOnly := false; formTappyTuxGame.Answer.ReadOnly := false;
formTappyTuxGame.GameOver.Visible := false; formTappyTuxGame.GameOver.Visible := false;

9
applications/tappytux/tappydrawer.pas
View File

@@ -51,6 +51,7 @@ type
QuestionText: String; QuestionText: String;
QuestionBox: TCanvas; QuestionBox: TCanvas;
procedure DrawToIntfImg(AIntfImage: TLazIntfImage); override; procedure DrawToIntfImg(AIntfImage: TLazIntfImage); override;
procedure DrawToCanvas(ACanvas: TCanvas); override;
procedure ExecuteFinal; override; procedure ExecuteFinal; override;
end; end;
@@ -148,7 +149,13 @@ begin
TTappyTuxDrawer.DrawImageWithTransparentColor(AIntfImage, TTappyTuxDrawer.DrawImageWithTransparentColor(AIntfImage,
lPos.X, lPos.Y, colFuchsia, Bitmap); lPos.X, lPos.Y, colFuchsia, Bitmap);
QuestionBox := TCanvas.Create; QuestionBox := TCanvas.Create;
QuestionBox.TextOut(lPos.X, lPos.Y, QuestionText); //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);
end; end;
procedure TFallingText.ExecuteFinal; procedure TFallingText.ExecuteFinal;