-
Notifications
You must be signed in to change notification settings - Fork 1
/
frameFacturas.pas
42 lines (34 loc) · 945 Bytes
/
frameFacturas.pas
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
unit frameFacturas;
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.StdCtrls;
type
TFrame2 = class(TFrame)
Panel1: TPanel;
HeaderControl1: THeaderControl;
Button1: TButton;
Button2: TButton;
Button3: TButton;
ListViewFacturas: TListView;
procedure FrameResize(Sender: TObject);
procedure ListViewFacturasResize(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
procedure TFrame2.FrameResize(Sender: TObject);
begin
Button1.Left:=HeaderControl1.Width-96;
Button2.Left:=HeaderControl1.Width-64;
Button3.Left:=HeaderControl1.Width-32;
end;
procedure TFrame2.ListViewFacturasResize(Sender: TObject);
begin
(Sender as TListView).Columns[2].Width:= HeaderControl1.Width - 180;
end;
end.