|
#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; Кому я должен - всем прощаю!!!! |
#7
|
||||
|
||||
если прописывать в форме не рисует, поставил рисовать на бутон и получилось)
true thx close hard noob Последний раз редактировалось Apophis, 02.12.2007 в 19:47. |
#8
|
||||
|
||||
вознила трабла, попробовал запустить на другом компе и он эти bmp пытается грузить по соответствующей сылки на рисунок...
hard noob |
#9
|
||||
|
||||
Помести bmp файлы в папку с программой, и в тексте программы напиши
Код:
bmp.loadfromfile(extractfilepath(application.exename)+'123.bmp') Кому я должен - всем прощаю!!!! |
#10
|
||||
|
||||
а дальше по коду уже указывать не
Код:
bmp1.LoadFromFile('C:\123.bmp'); Код:
bmp1.LoadFromFile('123.bmp'); hard noob |
#11
|
||||
|
||||
Можно еще засунуть картинки в ImageList. Тогда они в exe`шнике будут жить.
|