1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

unit GaugeCaption;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, StdCtrls, Gauges, StrUtils;

type
  TTemperature= (tNormal, tDegradado, tTemperatura);
  TPosicion= (poIzquierda, poDerecha);
  TGaugeKind = (gkText, gkHorizontalBar, gkVerticalBar, gkPie, gkNeedle);

  TGaugeCaption = class(TGauge)
  private

  FMinValue: Longint;
  FMaxValue: Longint;
  FCurValue: Longint;
  FKind: TGaugeKind;
  FShowText: Boolean;
  FBorderStyle: TBorderStyle;
  FBorderWidth: TBorderWidth;

//---nun dachte ich an sowas-----//
         FButton1: TButton;
         FButton2: TButton;
//--- aber wie kann ich die Buttons in die Graphic einbinden bzw wie komm ich an die eigenschaften?---//					

1:
2:
3:
4:
5:
6:
7:
8:
9:

unit ButtonGauge;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, StdCtrls, Gauges, StrUtils;


  TButtonGauge = class(??????)					

1:
2:
3:
4:
5:
6:

  TMyGauge = class(TCustomPanel)
    private
    ....
    protected
    procedure Paint(var Message: TWMPaint); Message WM_PAINT;
    ....					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

type TOnBtnClickEvent= procedure (GaugeMax, GaugeMin, GaugePos: integer) of object;

type TGaugeButton=class
  private
    Btn: TButton;
    Gauge: TGauge;

    VOnBtnClick: TOnBtnClickEvent;
    VLeft: integer;

    procedure SetLeft (v: integer);

    procedure InternalOnBtnClick(Sender: TObject);
  public
    constructor Create( Owner: TWinControl);
    property Left: integer read VLeft write SetLeft; 
    property OnBtnClick: TOnBtnClickEvent read VOnBtnClick write VOnBtnClick;
end;

...

constructor TGaugeButton.Create (Owner: TWinControl);
begin
  Gauge:=TGauge.Create(Owner);
  Gauge.Parent:=Owner;

  Btn:=TButton.Create(Owner;
  Btn.Parent:=Owner;
  Btn.OnClick:=InternalOnBtnClick;

  //eventuell noch default positionen setzen
end;

procedure TGaugeButton.InternalOnBtnClick(Sender: TObject);
begin
  if Assigned(OnBtnClick) then
     VOnBtnClick( Gauge.Min, Gauge.Max, Gauge.Pos);
end;

procedure TGaugeButton.SetLeft (v: integer);
begin
  Gauge.Left:=v;
  Btn.Left:=v+5;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

GBtn: TGaugeButton;
begin
  GBtn:= TGaugeButton.Create(Form1);
  GBtn.Left:=100;
  GBtn.OnBtnClick := OnGaugeBtnClick;
end;

procedure TForm1.OnGaugeBtnClick(GaugeMax, GaugeMin, GaugePos: integer);
begin
  ShowMessage('Gauge filled at '+floattostr( (GaugeMax-GaugeMin)/(GaugePos-GaugeMin)*100 )+'%');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

....
   property Position: Integer read FPosition write SetPosition;
  Property OnButtonClick:TnotifyEvent read FButtonClick write FButtonClick;
  end;

  TForm259 = class(TForm)
    TrackBar1: TTrackBar;
    procedure TrackBar1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FMyGauge: TMyGauge;
  public
    { Public declarations }
  end;

var
  Form259: TForm259;

implementation

{$R *.dfm}

{ TMyGauge }


Procedure TMyGauge.InternalClick(Sender:TObject);
begin
// hier gegf. interne Routinen
    if Assigned(FButtonClick) then FButtonClick(Sender);
end;

constructor TMyGauge.Create(AOwner: TComponent);
begin
  inherited;
  DoubleBuffered := True;
  FButton := TButton.Create(Self);
  FButton.OnClick := InternalClick;
  FButton.Left := 10;
 
....					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

type TGaugeBtn = class(TButton)
  private
    Gauge: TGauge;
  
    procedure SetPosition(V: integer);
    function GetPosition: integer;
 
    constructor Create( Owner: TWinControl );
    destructor  Destroy;
  public
    property Position: integer read GetPosition write SetPosition;
end;

constructor TGaugeBtn.Create( Owner: TWinControl );
begin
  inherited Create(Owner);

  Gauge:=TGauge.Create(Owner);
  Gauge.Left:=Self.Left;
  Gauge.Top:=Self.Top+Self.Height;
  Gauge.Width:=Self.Width;
  Gauge.Height:=Self.Height;
  Gauge.Parent:=Owner;
end;

destructor TGaugeBtn.Destroy;
begin
  Gauge.Free;
  Gauge:=nil;

  inherited Destroy;
end;

procedure TGaugeBtn.SetPosition(V: integer);
begin
  Gauge.Progress:=V;
end;

function TGaugeBtn.GetPosition:integer;
begin
  Result:=Gauge.Progress;
end;