You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
792 B
36 lines
792 B
unit ufrmDepartamentos;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.ExtCtrls, Vcl.DBCtrls,
|
|
Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls, Vcl.Grids, Vcl.DBGrids, System.ImageList, Vcl.ImgList;
|
|
|
|
type
|
|
TfrmDepartamentos = class(TmstCadastro)
|
|
DBGrid1: TDBGrid;
|
|
ImageList1: TImageList;
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmDepartamentos: TfrmDepartamentos;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
uses udtmSystem;
|
|
|
|
procedure TfrmDepartamentos.FormCreate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
dtmSystem.SetupHackedNavigator(navPrincipal, ImageList1, 's');
|
|
end;
|
|
|
|
end.
|