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]

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

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

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