Bitmapの事件簿 (ID：2831)

名前

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

本文

ビットマップで不思議な事件がおきています。

procedure TForm1.Button1Click(Sender: TObject);
     begin
          Bitmap := TBitmap.Create;
          Bitmap.Width := 12;
          Bitmap.Height := 304;
         
          ↓この場合はできる
           //Image2.Canvas.Brush.Color := RGB(255,255,255);    
          //Image2.Canvas.Rectangle(0,0,12,19);
          // Image2.Canvas.Brush.Color := RGB(255,255,204);
          //Image2.Canvas.Rectangle(0,19,12,38);
          // Image2.Canvas.Brush.Color := RGB(255,255,173);
          // Image2.Canvas.Rectangle(0,38,12,57);
         // Image2.Canvas.Brush.Color := RGB(255,255,153);
         // Image2.Canvas.Rectangle(0,57,12,76);
         // Image2.Canvas.Brush.Color := RGB(255,255,113);
         // Image2.Canvas.Rectangle(0,76,12,95);

// Image2.Canvas.Brush.Color := RGB(255,255,93);
          //Image2.Canvas.Rectangle(0,95,12,114);

// Image2.Canvas.Brush.Color := RGB(255,255,73);
         // Image2.Canvas.Rectangle(0,114,12,133);

// Image2.Canvas.Brush.Color := RGB(255,255,53);
         // Image2.Canvas.Rectangle(0,133,12,152);

//  Image2.Canvas.Brush.Color := RGB(102,0,0);
         //          Image2.Canvas.Rectangle(0,152,12,171);

// Image2.Canvas.Brush.Color := RGB(92,0,0);
         // Image2.Canvas.Rectangle(0,171,12,190);

// Image2.Canvas.Brush.Color := RGB(82,0,0);
         // Image2.Canvas.Rectangle(0,190,12,209);

// Image2.Canvas.Brush.Color := RGB(72,0,0);
         // Image2.Canvas.Rectangle(0,209,12,228);

// Image2.Canvas.Brush.Color := RGB(42,0,0);
         //           Image2.Canvas.Rectangle(0,228,12,247);

//    Image2.Canvas.Brush.Color := RGB(31,0,0);
         //           Image2.Canvas.Rectangle(0,247,12,265);

//   Image2.Canvas.Brush.Color := RGB(21,0,0);
         //           Image2.Canvas.Rectangle(0,265,12,284);

//  Image2.Canvas.Brush.Color := clBlack;
          //          Image2.Canvas.Rectangle(0,284,12,303);
            ↓これだと無理
           Bitmap.Canvas.Pen.Width := 10;
           Bitmap.Canvas.Pen.Color := clBlack;
           Bitmap.Canvas.Brush.Color := RGB(255,255,255);

Bitmap.Canvas.Rectangle(0,0,12,19);

Bitmap.Canvas.Brush.Color := RGB(255,255,204);
          Bitmap.Canvas.Rectangle(0,19,12,38);

Bitmap.Canvas.Brush.Color := RGB(255,255,173);
          Bitmap.Canvas.Rectangle(0,38,12,57);

Bitmap.Canvas.Brush.Color := RGB(255,255,153);
          Bitmap.Canvas.Rectangle(0,57,12,76);

Bitmap.Canvas.Brush.Color := RGB(255,255,113);
          Bitmap.Canvas.Rectangle(0,76,12,95);

Bitmap.Canvas.Brush.Color := RGB(255,255,93);
          Bitmap.Canvas.Rectangle(0,95,12,114);

Bitmap.Canvas.Brush.Color := RGB(255,255,73);
          Bitmap.Canvas.Rectangle(0,114,12,133);

Bitmap.Canvas.Brush.Color := RGB(255,255,53);
          Bitmap.Canvas.Rectangle(0,133,12,152);

Bitmap.Canvas.Brush.Color := RGB(102,0,0);
                   Bitmap.Canvas.Rectangle(0,152,12,171);

Bitmap.Canvas.Brush.Color := RGB(92,0,0);
          Bitmap.Canvas.Rectangle(0,171,12,190);

Bitmap.Canvas.Brush.Color := RGB(82,0,0);
          Bitmap.Canvas.Rectangle(0,190,12,209);

Bitmap.Canvas.Brush.Color := RGB(72,0,0);
          Bitmap.Canvas.Rectangle(0,209,12,228);

Bitmap.Canvas.Brush.Color := RGB(42,0,0);
                    Bitmap.Canvas.Rectangle(0,228,12,247);

Bitmap.Canvas.Brush.Color := RGB(31,0,0);
                    Bitmap.Canvas.Rectangle(0,247,12,265);

Bitmap.Canvas.Brush.Color := RGB(21,0,0);
                    Bitmap.Canvas.Ellipse(0,265,12,284);

Bitmap.Canvas.Brush.Color := clBlack;
                    Bitmap.Canvas.Rectangle(0,284,12,303);
            Image2.Canvas.Draw(520,96,Bitmap);
            Canvas.Draw(520,96,Bitmap);
            Bitmap.Free;
            end;

Imageの場合はきちんと描かれｒｕが、Bitmapの場合には描かれない・・・
これは密室トリックに違いない．
みんなで知恵を持ち合わせてこの謎を解いてみませんか？
じっちゃんの名にかけて！

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

戻る