| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Image

Serjio ©   (2005-08-05 16:20:00) 

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

Image1.Canvas.Draw();

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

---

Ega23   (2005-08-05 16:54:00) [1]

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

---

Ega23   (2005-08-05 16:53:00) [2]

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

Почему?????

---

alles   (2005-08-05 16:26:00) [3]

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:00) [4]


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:00) [5]

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

---

Наверх