Форум программистов [Powered by Invision Power Board]

Код


unit Unit2;


interface
 uses Classes,Buttons, Graphics,Dialogs, SysUtils;

 type

 TProgressBtn = class(TBitBtn)
 private
 fMaxValue:Integer;
 fValue:Integer;
 function GetMaxValue:integer;
 procedure SetMaxValue (MV:integer);
 function GetValue:integer;
 procedure SetValue (V:integer);
 public
 MyForeColor:TColor;
 property MaxValue:integer read GetMaxValue write SetMaxValue;
 property Value : integer read GetValue write SetValue;
 constructor Create(a:TComponent;W:integer;H:integer;L:Integer;T:Integer;c:TColor); overload;
 procedure DrawProgressBar(X1:integer;Y1:Integer;X2:integer;Y2:Integer; c:Tcolor);
 end;

implementation

constructor TprogressBtn.Create(a: TComponent; W:integer; H:integer;L:Integer;T:Integer; c:Tcolor);
begin
 inherited Create(a);
 MyForeColor:=clBlack;
 self.fMaxValue:=0;
 self.fValue:= 0;
 self.Width:=W;
 self.Height:=H;
 self.Left := L;
 self.Top := T;
 self.Glyph.Width := self.Width;
 self.Glyph.Height := self.Height;
 self.DrawProgressBar(10,Height-20,width-10,Height-10,c);
end;

procedure TProgressBtn.DrawProgressBar(X1: Integer; Y1: Integer; X2: Integer; Y2: Integer; c: TColor);
begin
self.Glyph.Canvas.Brush.Color := c;
self.Glyph.Canvas.Rectangle(X1,Y1,X2,Y2);
end;

function TProgressBtn.GetMaxValue;
begin
GetMaxValue:=fMaxValue;
end;

procedure TProgressBtn.SetMaxValue(MV: Integer);
begin
fMaxValue:=MV;
end;

 function TProgressBtn.GetValue;
begin
  GetValue:=fValue;
end;

procedure TProgressBtn.SetValue(V: Integer);
begin
if V < fMaxValue  then
FValue:= V
else
FValue:= FMaxValue;
self.DrawProgressBar(10,Height-20,width-10,Height-10,clMoneyGreen);
self.DrawProgressBar(10,Height-20,Round((width-20)*fValue/fMaxValue)+10,Height-10,MyForeColor);
end;

end.

Код


TProgressBtn = class(TBitBtn)
...
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
end;

...

procedure TBitBtn.WMPaint(var Message: TWMPaint);
begin
  inherited;
  //рисуем свое
  DrawProgressBar;
end;

Цитата(PsiMagistr @ 20.10.2010, 21:02

)

Код

self.DrawProgressBar(10,Height-20,Round((width-20)*fValue/fMaxValue)+10,Height-10,MyForeColor);end;

Цитата(PsiMagistr @ 21.10.2010, 17:34

)

С этим событием что то не так...

Код


TProgressBtn = class(TBitBtn)
   private
   FCanvas: TCancas

    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
end;

...

constructor TprogressBtn.Create(a: TComponent; W:integer; H:integer;L:Integer;T:Integer; c:Tcolor);
var dc: HDC;
begin
 inherited Create(a);
....
  dc := GetDC(Handle);//на destroy освободить ReleaseDC()
  FCanvas := TCanvas.Create; //на destroy освободить
  FCanvas.Handle := dc;
end;

procedure TProgressBtn.WMPaint(var Message: TWMPaint);
begin
  inherited;
  //рисуем свое
  self.DrawProgressBar(10,Height-20,Round((width-20)*fValue/fMaxValue)+10,Height-10,MyForeColor);
end;

procedure TProgressBtn.DrawProgressBar(X1: Integer; Y1: Integer; X2: Integer; Y2: Integer; c: TColor);
begin
  FCanvas.Brush.Color := c;
  FCanvas.Rectangle(X1,Y1,X2,Y2);
end;