[di_jus]

всем добрый день!!
при вот-таком-вот коде

Код:

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;

Admin: Не забываем про оформление кода.

программа не работает. почему?

покажыте пример как можно создать спомогательный буфер
на картинку 35х35 который закрасит большую картинку (другой bitmap)
своими копиями.
и что такое 'Чрезмерное использование верхнего регистра' ,как этого этого не делать?

[Nyctos Kasignete]

Код:

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;

Рисовать на Canvas'е какого-то Bitmap'а (не на форме) — так же.

[di_jus]

спасибо,вот только обясните для чего

Код:

bmp.free 

нужен

[Nyctos Kasignete]

Сообщение от Delphi Help

Free method (TObject)

Destroys an object and frees its associated memory, if necessary.

Вот так. Ибо не надо сорить.

[di_jus]

а какая тут ошыбка ?

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 begin
  if key=('w') then
  nx:=nx+1;
 end;

[mak-karpov]

Правильней:

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=Ord('w') then
  nx:=nx+1;
end;

Несовпадают типы : Word и Char

[di_jus]

проблема немного не в том.
Просто когда я кидаю на форму несколько кнопок 'formkeydown' отключается

даже так

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  n:=n+1;
end;

что делать?

[mak-karpov]

используй GetKeyState по таймеру.

Код:

if (GetKeyState(Ord('w')) < 0) and Form1.Active then ...

или поставь у формы свойство KeyPreview в true

[di_jus]

всем спасибо но у меня остался последний горящий вопрос
пожалуйста скажите как раскрыть форму на весь экран?

[DungeonLords]

Сообщение от di_jus

всем спасибо но у меня остался последний горящий вопрос
пожалуйста скажите как раскрыть форму на весь экран?

Form1.Align:=alClient; Ну это в runtime, а так можно вручную у формы выставить и когда она создастся, развернётся на весь экран.

[di_jus]

извените но вы меня не поняли, необходимо раскрыть форму так чтоб скрыть 'пуск', как это делают в играх.

[Nyctos Kasignete]

1, 2, 3, 4. Хватит? =)

[di_jus]

а как можно передвигать 'panel1' по экрану мышкой во время роботы програмы ???

[PhoeniX]

Ох, ну и ленивый народ пошёл... Для кого Delphi World создали? вот, на. http://delphiworld.narod.ru/dw.html
Ищи, тут сотня вариантов решения последнего вопроса. Думаю, найдёшь.
Ребят, а вы тут тоже... Он прогу пишет, или вы за него? Если второе - то ему в раздел Работа с бюджетом...

[di_jus]

проблема, подскажыте пожалуйста как можно сделать красивое меню как в стратегиях (вывод на панель значка построения здания , чтоб его можно было нажать).Только не придлагайте
кнопку с рисунком .