Как нарисовать на канвсе формы bmp файл

← →
Relaxxx (2003-10-02 16:11) [0]

← →
Skier (2003-10-02 16:13) [1]

TCanvas.Draw(...)

← →
Relaxxx (2003-10-02 16:17) [2]

... а дальше?? как именно картинку нарисовать

← →
VAleksey (2003-10-02 16:32) [3]

Canvas.draw(0,0,Bmp);

← →
BOA_KAA (2003-10-02 16:32) [4]

*this.nut = "4-";

← →
me (2003-10-02 16:36) [5]

var
Background : TBitmap;

procedure TMyForm.FormCreate(Sender: TObject);
Background := TBitmap.Create;
Background.LoadFromResourceName(HInstance, "MY_BMP");// or LoadFromFile
end;

procedure TMyForm.FormPaint(Sender: TObject);
var
X, Y, W, H : Integer;
begin
begin
if Background.Empty then
Exit;
W := Background.Width;
H := Background.Height;
for x := 0 to ClientWidth div W do
for y := 0 to ClientHeight div H do
Canvas.Draw(x * W, y * H, Background);
end;
end;

← →
Relaxxx (2003-10-02 16:43) [6]

СПАСИБО!!!

Как нарисовать на канвсе формы bmp файл Найти похожие ветки