初心者専用ｽﾚ「ｼﾐｭﾚｰｼｮﾝｹﾞｰﾑ」を作らない？at GAMEDEV初心者専用ｽﾚ「ｼﾐｭﾚｰｼｮﾝｹﾞｰﾑ」を作らない？ - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト521:名前は開発中のものです。 04/11/27 08:28:22 a7a92uR3 //HEXマップ用 画面、論理座標変換 const PANELSIZE = 16; //マスの大きさ var FScroll:TPoint; //この値だけ左（上）にスクロール procedure TMapManager.MapToDisp(const MapPt:TPoint;var DispPt:TPoint); begin DispPt.X := (MapPt.X - FScroll.X) * PANELSIZE; DispPt.Y := (MapPt.Y - FScroll.Y) * PANELSIZE + ( (MapPt.X mod 2) * PANELSIZE div 2); end; procedure TMapManager.DispToMap(const DispPt:TPoint;var MapPt:TPoint); begin MapPt.X := DispPt.X div PANELSIZE + FScroll.X; MapPt.Y := (DispPt.Y - ((MapPt.X mod 2) * PANELSIZE div 2 )) div PANELSIZE + FScroll.Y end; 522:512 04/11/27 11:19:28 H8JrPqzt Delphi版デモを作成。 Level3,4ということで ttp://gamdev.org/up/img/1994.zip 523:名前は開発中のものです。 04/11/28 10:29:31 WZsWBfV7 ボタンを作成したんだけれど、コンパイルしても表示されない… ナゼ？ Button := TButton.Create(Self); Button.Caption := 'S-1'; Button.Height := 25; Button.Width := 33; Button.Left := 776; Button.Top := 200; 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch