david
19aed4c9ee
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@108 1c943782-d109-9647-9548-93b3ac332352
51 lines
982 B
ObjectPascal
51 lines
982 B
ObjectPascal
unit uPanelControl;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, ComCtrls, JvExControls, JvComponent, JvgWizardHeader, StdCtrls,
|
||
ExtCtrls, uDMBase, JvNavigationPane, cxControls, cxContainer,
|
||
cxEdit, cxLabel, Buttons, PngSpeedButton, pngimage;
|
||
|
||
type
|
||
TfPanelControl = class(TForm)
|
||
TabControl1: TTabControl;
|
||
Button1: TButton;
|
||
JvNavPanelHeader1: TJvNavPanelHeader;
|
||
lblUsuarios: TcxLabel;
|
||
Image1: TImage;
|
||
procedure lblUsuariosClick(Sender: TObject);
|
||
private
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end;
|
||
|
||
|
||
procedure VerPanelControl;
|
||
|
||
implementation
|
||
|
||
uses uUsuarios;
|
||
|
||
{$R *.dfm}
|
||
|
||
|
||
procedure VerPanelControl;
|
||
begin
|
||
with TfPanelControl.Create(NIL) do
|
||
try
|
||
ShowModal;
|
||
finally
|
||
Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfPanelControl.lblUsuariosClick(Sender: TObject);
|
||
begin
|
||
AdministrarUsuarios;
|
||
end;
|
||
|
||
end.
|
||
|