framePresupuestos.pas

unit framePresupuestos;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ExtCtrls,
  Vcl.ToolWin, Vcl.ActnMan, Vcl.ActnCtrls, Vcl.StdCtrls;

type
  TFrame1 = class(TFrame)
    Panel1: TPanel;
    HeaderControl1: THeaderControl;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ListViewPresupuestos: TListView;
    btnobra: TButton;
    procedure FrameResize(Sender: TObject);
    procedure ListViewPresupuestosResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TFrame1.FrameResize(Sender: TObject);
begin
Button1.Left:=HeaderControl1.Width-96;
Button2.Left:=HeaderControl1.Width-64;
Button3.Left:=HeaderControl1.Width-32;
btnobra.Left:=HeaderControl1.Width-128;

end;

procedure TFrame1.ListViewPresupuestosResize(Sender: TObject);
begin
(Sender as TListView).Columns[2].Width:= HeaderControl1.Width - 190;
end;

end.