Скачать: CL | DM;

gradient   Найти похожие ветки 

← →
kima ©   (2002-08-10 15:37) [0]

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

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;

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

---

← →
Poirot ©   (2002-08-11 04:51) [1]

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

---

← →
kima ©   (2002-08-11 08:50) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.986 c