[Apophis]

напишите плз пример как соединить 4 изображения 50х50 пикселей bmp в большой квадрат 100х100 пикселей (2х2 изображений)

[<<D>>]

Canvas.draw(0,0,bmp1);
Canvas.draw(50,0,bmp2);
Canvas.draw(0,50,bmp3);
Canvas.draw(50,50,bmp4);

[Apophis]

bmp1,2,3... это типа некие 'c:\123.bmp' ?

[<<D>>]

BMP1,bmp2,bmp3,bmp4:TBitmap;

[Apophis]

Код:

var
bmp1: TBitmap;
...
bmp1.TBitmap.Create;
bmp1.LoadFromFile('C:\123.bmp');
Canvas.draw(0,0,bmp1);

ошибки нет, но ничего на форме не рисует о_О

[<<D>>]

Рисование на форме:

procedure TForm1.FormPaint(Sender: TObject);
var bmp1:TBitmap;
begin
bmp1:=TBitmap.Create;
bmp1.LoadFromFile('C:\123.bmp');
canvas.Draw(0,0,bmp1);
end;

...и всё рисует.
Чтобы перерисовать пиши RePaint;

[Apophis]

если прописывать в форме не рисует, поставил рисовать на бутон и получилось)
true
thx
close

[Apophis]

вознила трабла, попробовал запустить на другом компе и он эти bmp пытается грузить по соответствующей сылки на рисунок...

[<<D>>]

Помести bmp файлы в папку с программой, и в тексте программы напиши

Код:

bmp.loadfromfile(extractfilepath(application.exename)+'123.bmp')

[Apophis]

а дальше по коду уже указывать не

Код:

bmp1.LoadFromFile('C:\123.bmp');

а

Код:

bmp1.LoadFromFile('123.bmp');

[4erep_88]

Можно еще засунуть картинки в ImageList. Тогда они в exe`шнике будут жить.