|
#1
|
|||
|
|||
карта на bitmap
всем добрый день!!
при вот-таком-вот коде Код:
for i2:=1 to 500 do for i1:=1 to 500 do begin map[i1,i2].pict:=Tbitmap.Create; map[i1,i2].pict.width:=35; map[i1,i2].pict.height:=35; map[i1,i2].pict.LoadFromFile('1.bmp'); form1.Canvas.Draw(i1*35-35,i2*35-35,map[i1,i2].pict); end; программа не работает. почему? покажыте пример как можно создать спомогательный буфер на картинку 35х35 который закрасит большую картинку (другой bitmap) своими копиями. и что такое 'Чрезмерное использование верхнего регистра' ,как этого этого не делать? Последний раз редактировалось di_jus, 02.07.2009 в 21:37. |
#2
|
|||
|
|||
Код:
var bmp: TBitmap; i, j: Integer; begin bmp := TBitmap.Create; try bmp.LoadFromFile('1.bmp'); for i := 0 to Width div bmp.Width do for j := 0 to Height div bmp.Height do Canvas.Draw(i * bmp.Width, j * bmp.Height, bmp); finally bmp.Free; end; end; |
#3
|
|||
|
|||
спасибо,вот только обясните для чего
Код:
bmp.free |
#4
|
|||
|
|||
Цитата:
|
#5
|
|||
|
|||
а какая тут ошыбка ?
Код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=('w') then nx:=nx+1; end; |
#6
|
||||
|
||||
Правильней:
Код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=Ord('w') then nx:=nx+1; end; Цитата:
Кнопка "+" - весы в правом верхнем углу сообщения... |
#7
|
|||
|
|||
проблема немного не в том.
Просто когда я кидаю на форму несколько кнопок 'formkeydown' отключается даже так Код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin n:=n+1; end; что делать? |
#8
|
||||
|
||||
используй GetKeyState по таймеру.
Код:
if (GetKeyState(Ord('w')) < 0) and Form1.Active then ... или поставь у формы свойство KeyPreview в true Кнопка "+" - весы в правом верхнем углу сообщения... |
#9
|
|||
|
|||
всем спасибо но у меня остался последний горящий вопрос
пожалуйста скажите как раскрыть форму на весь экран? |
#10
|
|||
|
|||
Цитата:
Делаем'c разные игры. Искать на glscene.ru |
#11
|
|||
|
|||
извените но вы меня не поняли, необходимо раскрыть форму так чтоб скрыть 'пуск', как это делают в играх.
|
#13
|
|||
|
|||
а как можно передвигать 'panel1' по экрану мышкой во время роботы програмы ???
Последний раз редактировалось di_jus, 05.07.2009 в 09:57. |
#14
|
||||
|
||||
Ох, ну и ленивый народ пошёл... Для кого Delphi World создали? вот, на. http://delphiworld.narod.ru/dw.html
Ищи, тут сотня вариантов решения последнего вопроса. Думаю, найдёшь. Ребят, а вы тут тоже... Он прогу пишет, или вы за него? Если второе - то ему в раздел Работа с бюджетом... Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |
#15
|
|||
|
|||
проблема, подскажыте пожалуйста как можно сделать красивое меню как в стратегиях (вывод на панель значка построения здания , чтоб его можно было нажать).Только не придлагайте
кнопку с рисунком . |