Topic: градиент
есть-ли у кого примеры градиентов (не изображения)?
My Visual Database → Russian → градиент
есть-ли у кого примеры градиентов (не изображения)?
На костылях:
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.
На костылях:
прям, то , что нужно ... это лучше чем изображение тянуть.... СПАСИБО!!
На костылях:
Дай бог каждому пользователю MVD умение создавать подобные костыли - и будет им счастье )))
Этот скрипт процессорного мяса жрет больше, чем растянутая однопиксельная картинка с градиентом - памяти.
Этот скрипт процессорного мяса жрет больше, чем растянутая однопиксельная картинка с градиентом - памяти.
Согласен, но про счастье - буду настаивать на своём )))
My Visual Database → Russian → градиент
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi