TImage＆TImageListの使い方 (ID:44932)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

www.geocities.jp/my_ultraseven/mozart/image/reidesu.gif
  ゴチャゴチャ説明するより画像を見てもらえばわかると思うのですが、クリックしないでマウスを動かすとき、現在位置を強調するために以下のようなコーディングをしました。現在位置には透過画像を重ね、現在位置に隣接するマスは元の画像のままという方針でコーディングしています。マウスをゆっくり動かすと期待通りの動作になるものの、素早く動かすと画像の通り現在位置以外のマスも強調されてしまいます（笑）。
  PutKabeEmpha が見るからに初心者レベルの遅いコードになっているのが原因だと思います。何かいい方法はないでしょうか？
const
  X_CNT  = 19; //ボードの縦の数 0〜19 でアクセスするので20個
  Y_CNT  = 14; //ボードの横の数 0〜14 でアクセスするので15個
  DOT = 32;    //１マスのドット数
  PNL_X = 640; // パネル横 32*20 = 640
  PNL_Y = 480; // パネル縦 32*16 = 480
  KABE = 0; //壁
  YUKA = 1; //床
  TOKA = 10;//透過

BlockList: TImageList;
    omoteImage: TImage;
    FBord: array[0..X_CNT, 0..Y_CNT] of Integer; //メインの盤面
    FuraBmp: TBitmap;

procedure TForm1.BordPaint;
var
 i,j :Integer;
begin  //床タイル背景に敷き詰め
  for j := 0 to Y_CNT do
    for i := 0 to X_CNT do
      BlockList.Draw(FuraBmp.Canvas,i*DOT,j*DOT,FBord[i,j]);
  omoteGa.Canvas.Draw(0,0,FuraBmp);
end;

//クリックしないでムーブするとき、現在位置を強調する
procedure TForm1.PutKabeEmpha(mx,my:Integer);
var
  i,j:Integer;
begin
  i := mx div DOT;
  j := my div DOT;
  FBord[i,j] := TOKA;

if j = 0 then //ボード最上段
  begin
    if i = 0 then //ボード左端
    begin
      FBord[i+1,j]   := YUKA;      FBord[i,j+1]   := YUKA;      FBord[i+1,j+1] := YUKA;
    end else
    if i =X_CNT then //ボード右端
    begin
      FBord[i-1,j]   := YUKA;      FBord[i-1,j+1] := YUKA;      FBord[i,j+1]   := YUKA;
    end else
    begin
      FBord[i-1,j]   := YUKA;      FBord[i+1,j]   := YUKA;      FBord[i-1,j+1] := YUKA;
      FBord[i,j+1]   := YUKA;      FBord[i+1,j+1] := YUKA;
    end
  end else if j = Y_CNT then //ボード最下段
  begin
    if i = 0 then //ボード左端
    begin
      FBord[i,j-1]   := YUKA;      FBord[i+1,j-1] := YUKA;      FBord[i+1,j]   := YUKA;
    end else
    if i =X_CNT then //ボード右端
    begin
      FBord[i-1,j-1] := YUKA;      FBord[i-1,j]   := YUKA;      FBord[i,j-1]   := YUKA;
    end else
    begin
      FBord[i-1,j-1] := YUKA;      FBord[i-1,j]   := YUKA;      FBord[i,j-1]   := YUKA;
      FBord[i+1,j-1] := YUKA;      FBord[i+1,j]   := YUKA;
    end
  end else //ボード中央
  begin
    if i = 0 then //ボード左端
    begin
      FBord[i,j-1]   := YUKA;      FBord[i+1,j-1] := YUKA;      FBord[i+1,j]   := YUKA;
      FBord[i,j+1]   := YUKA;      FBord[i+1,j+1] := YUKA;
    end else
    if i =X_CNT then //ボード右端
    begin
      FBord[i-1,j-1] := YUKA;      FBord[i,j-1]   := YUKA;      FBord[i-1,j]   := YUKA;
      FBord[i-1,j+1] := YUKA;      FBord[i,j+1]   := YUKA;
    end else
    begin
      FBord[i-1,j-1] := YUKA;      FBord[i,j-1]   := YUKA;      FBord[i+1,j-1] := YUKA;
      FBord[i-1,j]   := YUKA;      FBord[i+1,j]   := YUKA;      FBord[i-1,j+1] := YUKA;
      FBord[i,j+1]   := YUKA;      FBord[i+1,j+1] := YUKA;
    end
  end;
  BordPaint;
end;

procedure TForm1.omoteImageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then PutKabe(X,Y)
  else                    PutKabeEmpha(X,Y);
end;

←解決時は質問者本人がここをチェックしてください。

戻る