Скачать: CL | DM;

Image   Найти похожие ветки 

← →
Serjio   (2005-08-05 16:20) [0]

Подскажите пожалуйста, что нужно вписать в скобки в этом коде:

Image1.Canvas.Draw();

Вернее не что а как это сделать?

---

← →
alles ©   (2005-08-05 16:26) [1]

for example:
procedure TForm1.Button1Click(Sender: TObject);

var
 Bitmap : TBitMap;
begin
 Bitmap := TBitmap.Create;
 try
   with Bitmap do begin
     LoadFromFile("MyBitmap.png");
     Transparent := True;
     TransParentColor := BitMap.Canvas.Brush.Color;
     Form1.Canvas.Draw(0,0,BitMap);
     TransparentMode := tmAuto;
     Form1.Canvas.Draw(50,50,BitMap);
   end;
 finally
   Bitmap.Free;
 end;
end;

---

← →
Ega23 ©   (2005-08-05 16:26) [2]


TCanvas.Draw

Renders the graphic specified by the Graphic parameter on the canvas at the location given by the coordinates (X, Y).

procedure Draw(X, Y: Integer; Graphic: TGraphic);

Description

Call Draw to draw a graphic on the canvas. Draw calls the Draw method of the graphic. The image is rendered into a rectangle determined by the size of the graphic, with the upper left corner at the point (X, Y).

Graphics can be bitmaps, icons, or metafiles. If the graphic is a TBitmap object, the bitmap is rendered using the value of CopyMode.

Example:


procedure TForm1.Button1Click(Sender: TObject);

var
 Bitmap : TBitMap;
begin
 Bitmap := TBitmap.Create;
 try
   with Bitmap do begin
     LoadFromFile("c:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp");
     Transparent := True;
     TransParentColor := BitMap.canvas.pixels[50,50];
     Form1.Canvas.Draw(0,0,BitMap);
     TransparentMode := tmAuto;   // Transparent color now is clDefault = TColor($20000000);
     Form1.Canvas.Draw(50,50,BitMap);

   end;
 finally
   Bitmap.Free;
 end;
end;


---

← →
McSimm ©   (2005-08-05 16:26) [3]

Попробуй рисовать на холсте не Image1, а Image1.Picture.Bitmap

---

← →
Ega23 ©   (2005-08-05 16:53) [4]

2 McSimm ©   (05.08.05 16:26) [3]

Почему?????

---

← →
Ega23 ©   (2005-08-05 16:54) [5]

А, это TImage.... Мне показалось TPaintBox....   :о)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c