Topic: градиент

есть-ли у кого примеры градиентов (не изображения)?

2 (edited by vovka3003 2020-07-16 19:21:44)

Re: градиент

На костылях:

var T:TTimer;

procedure ShowGradient(Sender: TObject);
var i,w:integer;
    c:byte;
begin
  T.Enabled:=false;
  Form1.OnResize := @ShowGradient;
  Form1.OnPaint := @ShowGradient;
  w :=  Form1.Width;
  for i:=0 to Form1.Height-1 do
  begin
      c:= round(i/Form1.Height*255);
      Form1.Canvas.Pen.Color:=rgb(c,c,c);
      Form1.Canvas.LineTo(0,i);
      Form1.Canvas.LineTo(w,i);
      Form1.Canvas.LineTo(w,i+1);
      Form1.Canvas.LineTo(0,i+1);
  end;
end;

begin
    Form1.DoubleBuffered:=true;
    T:=TTimer.Create(Application);
    T.Interval:=10;
    T.OnTimer:=@ShowGradient;
    T.Enabled:=true;
end.

Re: градиент

vovka3003 wrote:

На костылях:

 
прям, то , что нужно ... это лучше чем изображение тянуть....   СПАСИБО!!

Re: градиент

vovka3003 wrote:

На костылях:

Дай бог каждому пользователю MVD умение создавать подобные костыли - и будет им счастье )))

Визуальное программирование: блог и телеграм-канал.

Re: градиент

Этот скрипт процессорного мяса жрет больше, чем растянутая однопиксельная картинка с градиентом - памяти.

Re: градиент

vovka3003 wrote:

Этот скрипт процессорного мяса жрет больше, чем растянутая однопиксельная картинка с градиентом - памяти.

Согласен, но про счастье - буду настаивать на своём )))

Визуальное программирование: блог и телеграм-канал.