Why This App No Screen?

[stacker_liew 5]

I use ChatGPT to convert a Vcl Tetris to FMX Version, compile is ok, but no screen,  any one can help?FMXTetris.7z

FMXTetris.7z

[programmerdelphi2k 235]

@stacker_liew    I dont have StandFrame to use, then I just remove it!

 

try change the color at "procedure TTetris.DefaultCanvas(Canvas: TCanvas);"  -->  Canvas.Fill.Color := TAlphaColorRec.Blue;   // CurrentColor; "

 

function TTetris.GetCurrentSprite: TSprite;
begin
  Result       := AllSpriteKind[Random(6)];
  CurrentColor := Random($FFFFFF);  // black over black is = black
end;

 

Edited May 30, 2023 by programmerdelphi2k

[stacker_liew 5]

14 minutes ago, programmerdelphi2k said:

@stacker_liew    I dont have StandFrame to use, then I just remove it!

 

try change the color at "procedure TTetris.DefaultCanvas(Canvas: TCanvas);"  -->  Canvas.Fill.Color := TAlphaColorRec.Blue;   // CurrentColor; "

 

function TTetris.GetCurrentSprite: TSprite;
begin
  Result       := AllSpriteKind[Random(6)];
  CurrentColor := Random($FFFFFF);  // black over black is = black
end;

 

Thanks