Текущий архив: 2002.12.02;
Скачать: 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 вся ветка
Текущий архив: 2002.12.02;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.011 c
