Графическое отображение трафика

[Alex640]

Может быть кто-нибудь подскажет как сделать графическое отображение трафика в окне в виде баров или линий, как это сделано в таких программах как ReGet, DU meter и других подобных. Тотже DU meter сделан на Delphi

[somewhere]

Берешь TBitmap и рисуешь бары, потом TImage.Picture.Bitmap := MyBitmap.
Например, по Х - 200 значений, значения от 0 до 49

Код: Выделить всё

MyBitmap := TBitmap.Create;
MyBitmap.Width := 200;
MyBitmap.Height := 50;
MyBitmap.PixelFormat := pf8bit;
For X := 0 to 199 do
    With MyBitmap.Canvas do
        begin
        MoveTo(X, 49);
        LineTo(X, 49-MyValues[X]);
        end;
MyImage.Picture.Bitmap.FreeImage;
MyImage.Picture.Bitmap := MyBitmap;
MyBitmap.Destroy;

[Alex640]

Спасибо, попробую !

[Alex640]

Работает, спасибо !

[ia8]

Alex640, что всет-таки с программой Satcalc????? Я спрашивал в личном. Тарифы по старому считает, статиситку и скорость не меняет - сервер недоступен. Прошу ответить