只剩旋转上的问题了


就这个问题

开发中实景


试玩效果

窗口上到处都是说明书大丈夫么……

你不喜欢我随时可以不往窗口上贴小广告

It's not Tetris!
编程之路漫漫兮，吾将上下而求索------------------------T-cn 2B

具体的实现我不太清楚，没做过。目前能想到两种解决方法。一种是每个方块用一张完整的图片，旋转的时候就旋转图片，而不是像图片里这样用小方块组成一个图形。另一种就是在图形中确定一个小方块，作为中心点，旋转的时候其他的小方块以中心点重新构图。

谢谢

有货的捧个码场，没货的捧个人场

“
var
LastKeyDownTime:TDateTime;
//...
proc cbMove(m:Integer); //控制移动 不具体实现
//...
proc Timer3_OnTimer(); //在按下左右键一段时间后 自动移动方块
begin
if Key=RightKey then cbMove(+cbWidth)
else cbMove(-cbWidth);
end;
proc App.OnMessage(Msg:TMessage);//响应信息
var
CurrentTime:TDateTime;
begin
if Msg.Message=WM_KeyDown then begin
if (Msg.wParam=LeftKey) or (Msg.wParam=RightKey) then begin
CurrentTime:=Now();
If (CurrentTime-LastKeyTime)<=持续按下后所需时间 then begin {} Timer3.NeedTime:=重复时间; //设定计时时长
Timer3.Enabled:=True;//启动Timer3 开始计时 到时间时自动移动一
//格
Key:=Msg.wParam;
end;
//...
end;
LastKeyTime:=CurrentTime;
//...
end ;
if Msg.Message=WM_KeyUp then
if Timer3.Enabled=True then Timer3.Enabled:=False;
//...
end;
//...
”
By坚定支持Goo，原帖地址请自行Ctrl+F DAS，这是DAS的部分，语言未知

不是吧，我写了400多行代码