Наверное, что-то можно сделать с канвой, или еще как-нибудь перевернуть Gauge, но проще так:
| Код |
procedure SetGaugeProgress(Progress: integer);
begin
Form1.Gauge1.Progress := 100-Progress;
end;
function GetGaugeProgress: integer;
begin
Result := 100-Form1.Gauge1.Progress;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Gauge1.Kind := gkVerticalBar; //делаем Gauge вертикальным
Gauge1.ShowText := false; //отключаем надпись
Gauge1.BackColor := clBlack; //можно поменять местами цвета
Gauge1.ForeColor := clWhite;
SetGaugeProgress(0); //выставляем нулевое значение, т.е. делаем Form1.Gauge1.Progress := 100;
end;
|
Пример:
| Код |
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetGaugeProgress<100 then
SetGaugeProgress(GetGaugeProgress+1);
end;
|
Кривовато получилось, но работает  А еще можно отредактировать Gauges.pas, добавив возможность обратной прорисовки, тогда не надо будет ничего выдумывать. |