|
|
#1
|
||||
|
||||
TCanvas
напишите плз пример как соединить 4 изображения 50х50 пикселей bmp в большой квадрат 100х100 пикселей (2х2 изображений)
Последний раз редактировалось Apophis, 01.12.2007 в 18:03. |
#2
|
||||
|
||||
Canvas.draw(0,0,bmp1);
Canvas.draw(50,0,bmp2); Canvas.draw(0,50,bmp3); Canvas.draw(50,50,bmp4); Кому я должен - всем прощаю!!!! |
#3
|
||||
|
||||
bmp1,2,3... это типа некие 'c:\123.bmp' ?
|
#4
|
||||
|
||||
BMP1,bmp2,bmp3,bmp4:TBitmap;
Кому я должен - всем прощаю!!!! |
#5
|
||||
|
||||
Код:
var bmp1: TBitmap; ... bmp1.TBitmap.Create; bmp1.LoadFromFile('C:\123.bmp'); Canvas.draw(0,0,bmp1); ошибки нет, но ничего на форме не рисует о_О hard noob Последний раз редактировалось Apophis, 02.12.2007 в 16:59. |
#6
|
||||
|
||||
Рисование на форме:
procedure TForm1.FormPaint(Sender: TObject); var bmp1:TBitmap; begin bmp1:=TBitmap.Create; bmp1.LoadFromFile('C:\123.bmp'); canvas.Draw(0,0,bmp1); end; ...и всё рисует. Чтобы перерисовать пиши RePaint; Кому я должен - всем прощаю!!!! |