Текущий архив: 2003.10.13;
Скачать: CL | DM;

Вниз

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

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

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

---

← →
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]

СПАСИБО!!!

---

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

Текущий архив: 2003.10.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.035 c