VPF::Повoрот sGauge - Форум программистов

kulikoff

Дата 4.7.2006, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 334
Регистрация: 5.11.2005
Где: Киев

Репутация: нет
Всего: 1

Собственно, сабж. Как сделать так, чтоб sGauge двигалась не справа налево, а, скажем, сверху вниз?

Dr3d

Дата 4.7.2006, 16:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 3.7.2006

Репутация: нет
Всего: нет

Измени интерполяцию цеофебральных частот.

Mr.Floppy

Дата 5.7.2006, 11:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 106
Регистрация: 3.7.2006
Где: Москва

Репутация: 1
Всего: 1

Наверное, что-то можно сделать с канвой, или еще как-нибудь перевернуть 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;

Кривовато получилось, но работает smile

А еще можно отредактировать Gauges.pas, добавив возможность обратной прорисовки, тогда не надо будет ничего выдумывать.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »