[di_jus]

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

Код:

1 2 3 4 5 6 7 8 9

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]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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]

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

Код:

1

bmp.free

нужен

[Nyctos Kasignete]

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

Free method (TObject)

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

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

[di_jus]

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

Код:

1 2 3 4 5 6

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

[mak-karpov]

Правильней:

Код:

1 2 3 4 5 6

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

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

[di_jus]

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

даже так

Код:

1 2 3 4 5

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

что делать?

[mak-karpov]

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

Код:

1	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]

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