Как сделать регулятор прозрачности?

[Sanek777]

Как сделать регулятор прозрачности через компонент Progress Bar? Например как регулятор громкости в VideoLan! И еще можно вопрос, как делать проресс бары как у винды ну в копировании удалениее и где их можно достать для Borland Development Studio 2006?

[BOBAH13]

Вообще то есть api дающие возможность получать элементы оформления виндовс. В delphi7 это themes.pas. Дальше как обычное окошко делаем... и кстати не каждый знает что такое VideoLan, я например незнаю, и понять "регулятор прозрачности" не могу.

[DM_bite]

Как сделать регулятор прозрачности через компонент Progress Bar?

А причем тут ProgressBar? Для этих нужд есть TrackBar и что такое VideoLan?

[Alter]

Сообщение от DM_bite

А причем тут ProgressBar? Для этих нужд есть TrackBar и что такое VideoLan?

VLC:

VLC media player 0.8.6c - Медиаплеер с возможностью применения его в качестве сервера для передачи потокового видео по локальной сети - VLC (VideoLAN) может транслировать файлы с жесткого диска, DVD-плеера или выхода видеокарты. Поддерживается работа с большинством аудио- и видеоформатов, включая DVD, VCD, MPEG, DivX и потоковые (Nullsoft Streaming Video (.nsv) и Real Media (.rm)).
Естественно, VLC media player можно использовать и как обыкновенный медиаплеер.
Одной из особенностей программы является то, что для воспроизведения файлов мультимедиа не требуется установка дополнительных кодеков, т.к. они уже "встроены" в программу.
Кроме этого, VLC может не только воспроизводить, но и записывать потоковое аудио/видео на компьютер.
Наконец, VLC является единственным на сегодняшний день плеером, который без проблем справляется с "битыми" файлами.

Автор:Videolan
Распространение:Free
Рус. язык:Есть
Размер:14 М.Байт
ОС:XP/2K3/Vista

[Dr.Badnezz]

Попробуй лучше через Трекбар
form1.AlphaBlendValue:=trackbar1.Po sition;

[Vovandows]

Прикрепил исходники, там все ясно.

[Alter]

Всё таки решил сделать.
Вот код:

unit Proto;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    TBar1: TTrackBar;
    PBar1: TProgressBar;
    procedure PBar1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure PBar1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure PBar1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
   Dow :Boolean;
   Function DrawPos(Prg :TProgressBar; X :Integer):Integer;//установка позиции
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Function TForm1.DrawPos(Prg :TProgressBar; X :Integer):Integer;
Var Ps :Integer;
    Pt :TPoint;
    Stp_Siz :Real; //Соотношение длины к максимумe
begin //установка позиции прогресса
 If X<=0 then
  Result := 0;
 If Prg=Nil then Exit;
 If (X>=0)And(X<=Prg.Width-1) then
 Begin
   Stp_Siz := (Prg.Width-1.8)/Prg.Max; 
  Ps := Round(X/Stp_Siz);
  Prg.Position := Ps;
   Result := Ps;
   // Hint
  Prg.Hint := Format('Позиция: %d', [Ps]);
  GetCursorPos(Pt);
  Application.ActivateHint(Pt);
 end;
end;

procedure TForm1.PBar1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin //
 Dow := True;
end;

procedure TForm1.PBar1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin //
 Dow := False;
end;

procedure TForm1.PBar1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Var Buf :Integer;  
begin //
 If Dow then
 begin
  Buf := DrawPos(PBar1, X);
   TBar1.Position := Buf; //-DEL-
   Edit1.Text := IntToStr(Buf); //-DEL-
 end;

end;

end.

Используйте функцию:

Function TForm1.DrawPos(Prg :TProgressBar; X :Integer):Integer;
Var Ps :Integer;
    Pt :TPoint;
    Stp_Siz :Real; //Соотношение длины к максимумe
begin //установка позиции прогресса
 If X<=0 then
  Result := 0;
 If Prg=Nil then Exit;
 If (X>=0)And(X<=Prg.Width-1) then
 Begin
   Stp_Siz := (Prg.Width-1.8)/Prg.Max; 
  Ps := Round(X/Stp_Siz);
  Prg.Position := Ps;
   Result := Ps;
   // сам Hint
  Prg.Hint := Format('Позиция: %d', [Ps]);
  GetCursorPos(Pt);
  Application.ActivateHint(Pt);
 end;
end;

2 Vovandows: у вас при изменении размера прогресса будет нарушена правильность работы, мой код переваривает любую длину прогресса.
___________________________________ _________________________
я могу расчитывать на плюсик?