286(2): 名前は開発中のものです。 [sage] 03/05/20 02:17 ID:zL9Q18du(1) AAS
>>285
sleep() でウェイトをかましているからでは。
ＷＩＮのタスクを独り占めして文字通り眠ったようになりますから。

タイマーとカウンタを使うのはどうでしょう？
TForm1.FormCreate の所で cnt を 1 に設定しておいてから、

procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Picture.LoadFromFile('C:\00' + IntToStr(cnt) + '.bmp');
BitBlt(image2.Canvas.Handle,0,0,37,75,image1.Canvas.Handle,0,0,SRCCOPY);
image2.Repaint;
Inc(cnt);
if cnt>6 then cnt:=1;
end;

というのは如何でしょう？
あと、 bmp ファイルは最初にまとめて ImageList へ読み込ませては？

285(2): 名前は開発中のものです。 [sage] 03/05/20 01:21 ID:mVYsvlCM(1/2) AAS
Bitbltを使ってアニメーションをさせてるんですが、開始すると
アニメーションは割と綺麗に動きますが、実行させてるFormが
非常に重たくなります。Formを移動させようとしようものなら、
かなりガクガクに動くように…（開発環境マシンはP42.53GHzです）
何方か対策をご教授願えれば幸いです。

// TimerのIntervalは500に設定してます。
procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Picture.LoadFromFile('C:\001.bmp');
BitBlt(image2.Canvas.Handle,0,0,37,75,image1.Canvas.Handle,0,0,SRCCOPY);
image2.Repaint;
sleep (100);
image1.Picture.LoadFromFile('C:\002.bmp');
BitBlt(image2.Canvas.Handle,0,0,37,75,image1.Canvas.Handle,0,0,SRCCOPY);
image2.Repaint;
sleep (100);
.
.
.
image1.Picture.LoadFromFile('C:\006.bmp');
BitBlt(image2.Canvas.Handle,0,0,37,75,image1.Canvas.Handle,0,0,SRCCOPY);
image2.Repaint;
end;

282(2): 名前は開発中のものです。 [sage] 03/05/18 23:17 ID:Vqiijavw(1) AAS
>>280
今度は(1,0)-(0,1)で2になります。

x0=1;
y0=0;
x1=0;
y1=1;
xlen = Abs(0-1) = 1;
ylen = Abs(1-0) = 1;

1 <= (1 div 2) が成立しないので、
hexlen := 1 + 1 - (1 div 2) = 2;

最終的にこれでいけました。
function GetHexLen(const P1, P2: TPoint): Integer;
var
　W, H: Integer;
begin
　W := Abs(P2.X - P1.X);
　H := Abs(P2.Y - P1.Y);
　if H <= W * 2 then
　begin
　　if (Odd(P1.Y) and (P1.X >= P2.X)) or
　　　((not Odd(P1.Y)) and (P1.X <= P2.X)) then
　　　Result := H + W - H div 2
　　else
　　　Result := W + H div 2
　end else
　　Result := H;
end;

277(2): 名前は開発中のものです。 [sage] 03/05/18 03:31 ID:mv38V9jc(1/2) AAS
今適当に思いついた奴だけど、
□■□□□　 　■＝移動軸、★＝目標、☆＝自分
★■□□■
□□■□■
□□■■□
■■■☆■
をちょっとずらして
□■□□□
　 ★■□□■
　 □□■□■
　 　 □□■■□
　 　 ■■■☆■
とすると、ヘックスの移動が、普通の四角マスでの
・縦移動(HEXの右上左下方向の移動)
・横移動(HEXの横方向の移動)
・左上右下移動(HEXの左上右下方向の移動)
に対応することになる。
で、目標から上下左右(斜めは考慮する必要なし)にある一番近い軸までの距離と、
軸との交点から自分(中心)までの距離を足せば、移動距離となる、ハズ。

上の例だと斜めの軸までの距離が1、☆までが３、合計の移動距離が４が結論ということになる。

でも、障害物とか地形効果とか考えると単純に距離だけ求めても、とか思うんだけどどうだろ？