| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

gradient [D6, Win95/98, WinXP]

kima ©   (2002-08-10 15:37:00) 

здрасте нашел в инете кусок:

procedure TForm1.FormPaint(Sender: TObject);
var
Row, Ht: Word ;
begin
Ht := (ClientHeight + 255) div 256 ;
for Row := 0 to 255 do
with Canvas do begin
Brush.Color := RGB(Row, 0{Row}, {Row}0) ;
FillRect(Rect(0, Row * Ht, ClientWidth, (Row + 1) * Ht)) ;
end ;
end;

добавил в прогу она через некторое время
затыкается с ошибкой на которой только ОК
я думаю это изза памяти, что нужно делать
чтоб этого не было? или я чтото не понимаю?

---

kima   (2002-08-11 08:50:00) [1]

спасибо... наверное ты прав тогда у меня в остальной проге баги
тоже были

---

Poirot   (2002-08-11 04:51:00) [2]

У меня всё работает... Смотри другие части программы...
Тут ошибок лично я невижу...

---

Наверх