Image进度条 图片

 

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage,
  Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure ImageProgress(current:Integer;max:Integer; ImageWidth:integer;Image:TImage);
begin
    if Max <> 0 then Image.Width :=Trunc((current /max) *ImageWidth);
end;

var
  i:Integer = 0;
procedure TForm1.Button1Click(Sender: TObject);
begin
   i := 0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.DoubleBuffered :=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   i :=i + 3;
   sleep( 50);
   ImageProgress( i, 100, 144,Image1);
end;

end.

 

//image       

 

 

 

//width

{

min    =      //image1.width:=0;

max    =       //image1.width:=172;//Image1的宽度是172

position=      //pos=trunc((min/max)*100*1.72)=trunc((min/max)*ImageWidth);

 

}

 

procedure ImageProgress(min:Integer;max:Integer;ImageWidth:integer;Image:TImage);
begin
     if Max <> 0 then Image.Width :=Trunc((min /max) *ImageWidth);
end;

 

ImageProgress(StrToInt(Edit1.Text),StrToInt(Edit2.Text),172,Image1);

/////////////////////////////////////////

 

 

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Bevel1: TBevel;
    Button3: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    Memo1: TMemo;
     procedure Timer1Timer(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var min,max,p:integer;
begin
  memo1.Clear;
   ///////////////////////////////////////
  min :=StrToInt(Edit1.Text);
  max :=StrToInt(Edit2.Text);
   if Image1.Width < 0 then Image1.Width := 0;
   if Image1.Width > 172 then Image1.Width := 172;

  p :=Trunc((min / max) * 100 * 1. 72);
  Image1.Width :=p;

   ///////////////////////////////////////
  memo1.Lines.Add(Format( 'µ±Ç°image1.width=%d',[p]));
  memo1.Lines.Add(        'image1.width MIN=0');
  memo1.Lines.Add(        'image1.width MAX=172');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Width := 0;
Edit1.Text := '50';
Edit2.Text := '100';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   if (Image1.Width > = 0) and(Image1.Width < = 172) then  Edit1.Text :=IntToStr(StrtoInt(Edit1.text) + 1);
end;
                   // 0=<image.width<=172
procedure TForm1.Button3Click(Sender: TObject);
begin
   if (Image1.Width > = 0) and(Image1.Width < = 172) then  Edit1.Text :=IntToStr(StrtoInt(Edit1.text) - 1);
end;

end.

来自为知笔记(Wiz)