oscarac
03-06-2012, 06:15:34
Buenas noches
hace tiempo que hice un programita en delphi utilizando Jedi, recientemente lo abri y no me aparecen los componentes Jedi en el formulario
adjunto el formulario principal.. alguien tiene alguna idea de como hacer para que aparezcan?
o que pudo suceder ?
unit frmMain_f;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, JvPanel, JvSplitter,
JvComponentBase, JvNavigationPane, JvExControls, JvPageList, JvXPBar,
JvXPCore, JvXPContainer, JvAnimTitle, JvaScrollText, JvScrollText,
JvComponent, iniFiles, ImgList, StdCtrls, jpeg;
type
TfrmMain = class(TForm)
JvPanel1: TJvPanel;
JvXPContainer1: TJvXPContainer;
Consumo: TJvXPBar;
Tablas: TJvXPBar;
JvPanel3: TJvPanel;
Panel1: TPanel;
procedure JvXPBar3Items0Click(Sender: TObject);
procedure JvXPBar1Items0Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure JvXPBar1Items2Click(Sender: TObject);
procedure JvXPBar3Items2Click(Sender: TObject);
procedure JvXPBar3Items1Click(Sender: TObject);
procedure JvXPBar2Items1Click(Sender: TObject);
procedure JvXPBar3Items3Click(Sender: TObject);
procedure JvXPBar4Items1Click(Sender: TObject);
procedure JvXPBar2Items0Click(Sender: TObject);
procedure JvXPBar3Items4Click(Sender: TObject);
procedure ProcesoItems0Click(Sender: TObject);
private
{ Private declarations }
public
_Serie, _Origen, _Igv : string;
{ Public declarations }
end;
var
frmMain: TfrmMain;
const
STR_EMPTY = '';
CONFIG_SECTION = 'Serie';
implementation
uses frmCatalogoTrabajador_f, frmValesdeConsumo_f, frmPassword_f,
dmComedor_d, frmCatalogoHorario_f, frmCatalogoArticulo_f,
frmConsumoTrabajador_f, frmNumeracion_f, frmCambioFecha_f,
frmFacturacion_f, frmcCosto_f, frmActualizacion_f;
{$R *.dfm}
procedure TfrmMain.JvXPBar3Items0Click(Sender: TObject);
begin
frmCatalogoTrabajador := TfrmCatalogoTrabajador.Create(Self);
frmCatalogoTrabajador.Show;
end;
procedure TfrmMain.JvXPBar1Items0Click(Sender: TObject);
begin
frmValesdeConsumo := TfrmValesdeConsumo.Create(nil);
frmValesdeConsumo.Show;
end;
procedure TfrmMain.FormCreate(Sender: TObject);
Var ini:TIniFile; fName : String;
begin
self.Caption := dmComedor.g_NombreUsuario + ' Consumos del Dia : ' + DateToStr(dmComedor.g_FECHA);
fName := ChangeFileExt(Application.ExeName,'.ini');
ini := TIniFile.Create(fName);
_Origen := ini.ReadString(CONFIG_SECTION, 'Origen', STR_EMPTY);
_Serie := ini.ReadString(CONFIG_SECTION, 'Serie', STR_EMPTY);
_Igv := ini.ReadString(CONFIG_SECTION, 'Igv', STR_EMPTY);
end;
procedure TfrmMain.JvXPBar1Items2Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TfrmMain.JvXPBar3Items2Click(Sender: TObject);
begin
frmCatalogoHorario := TfrmCatalogoHorario.Create(nil);
frmCatalogoHorario.Show;
end;
procedure TfrmMain.JvXPBar3Items1Click(Sender: TObject);
begin
frmCatalogoArticulo := TfrmCatalogoArticulo.Create(nil);
frmCatalogoArticulo.Show;
end;
procedure TfrmMain.JvXPBar2Items1Click(Sender: TObject);
begin
frmConsumoTrabajador := TfrmConsumoTrabajador.Create(nil);
frmConsumoTrabajador.Show;
end;
procedure TfrmMain.JvXPBar3Items3Click(Sender: TObject);
begin
frmNumeracion := TfrmNumeracion.Create(nil);
frmNumeracion.Show;
end;
procedure TfrmMain.JvXPBar4Items1Click(Sender: TObject);
begin
frmCambioFecha := TfrmCambioFecha.Create(nil);
frmCambioFecha.Show;
end;
procedure TfrmMain.JvXPBar2Items0Click(Sender: TObject);
begin
frmfacturacion := Tfrmfacturacion.Create(nil);
frmfacturacion.Show;
end;
procedure TfrmMain.JvXPBar3Items4Click(Sender: TObject);
begin
frmCCosto := TfrmCCosto.create(nil);
frmCCosto.Show;
end;
procedure TfrmMain.ProcesoItems0Click(Sender: TObject);
begin
frmActualizacion := TfrmActualizacion.Create(nil);
frmActualizacion.Show;
end;
end.
hace tiempo que hice un programita en delphi utilizando Jedi, recientemente lo abri y no me aparecen los componentes Jedi en el formulario
adjunto el formulario principal.. alguien tiene alguna idea de como hacer para que aparezcan?
o que pudo suceder ?
unit frmMain_f;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, JvPanel, JvSplitter,
JvComponentBase, JvNavigationPane, JvExControls, JvPageList, JvXPBar,
JvXPCore, JvXPContainer, JvAnimTitle, JvaScrollText, JvScrollText,
JvComponent, iniFiles, ImgList, StdCtrls, jpeg;
type
TfrmMain = class(TForm)
JvPanel1: TJvPanel;
JvXPContainer1: TJvXPContainer;
Consumo: TJvXPBar;
Tablas: TJvXPBar;
JvPanel3: TJvPanel;
Panel1: TPanel;
procedure JvXPBar3Items0Click(Sender: TObject);
procedure JvXPBar1Items0Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure JvXPBar1Items2Click(Sender: TObject);
procedure JvXPBar3Items2Click(Sender: TObject);
procedure JvXPBar3Items1Click(Sender: TObject);
procedure JvXPBar2Items1Click(Sender: TObject);
procedure JvXPBar3Items3Click(Sender: TObject);
procedure JvXPBar4Items1Click(Sender: TObject);
procedure JvXPBar2Items0Click(Sender: TObject);
procedure JvXPBar3Items4Click(Sender: TObject);
procedure ProcesoItems0Click(Sender: TObject);
private
{ Private declarations }
public
_Serie, _Origen, _Igv : string;
{ Public declarations }
end;
var
frmMain: TfrmMain;
const
STR_EMPTY = '';
CONFIG_SECTION = 'Serie';
implementation
uses frmCatalogoTrabajador_f, frmValesdeConsumo_f, frmPassword_f,
dmComedor_d, frmCatalogoHorario_f, frmCatalogoArticulo_f,
frmConsumoTrabajador_f, frmNumeracion_f, frmCambioFecha_f,
frmFacturacion_f, frmcCosto_f, frmActualizacion_f;
{$R *.dfm}
procedure TfrmMain.JvXPBar3Items0Click(Sender: TObject);
begin
frmCatalogoTrabajador := TfrmCatalogoTrabajador.Create(Self);
frmCatalogoTrabajador.Show;
end;
procedure TfrmMain.JvXPBar1Items0Click(Sender: TObject);
begin
frmValesdeConsumo := TfrmValesdeConsumo.Create(nil);
frmValesdeConsumo.Show;
end;
procedure TfrmMain.FormCreate(Sender: TObject);
Var ini:TIniFile; fName : String;
begin
self.Caption := dmComedor.g_NombreUsuario + ' Consumos del Dia : ' + DateToStr(dmComedor.g_FECHA);
fName := ChangeFileExt(Application.ExeName,'.ini');
ini := TIniFile.Create(fName);
_Origen := ini.ReadString(CONFIG_SECTION, 'Origen', STR_EMPTY);
_Serie := ini.ReadString(CONFIG_SECTION, 'Serie', STR_EMPTY);
_Igv := ini.ReadString(CONFIG_SECTION, 'Igv', STR_EMPTY);
end;
procedure TfrmMain.JvXPBar1Items2Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TfrmMain.JvXPBar3Items2Click(Sender: TObject);
begin
frmCatalogoHorario := TfrmCatalogoHorario.Create(nil);
frmCatalogoHorario.Show;
end;
procedure TfrmMain.JvXPBar3Items1Click(Sender: TObject);
begin
frmCatalogoArticulo := TfrmCatalogoArticulo.Create(nil);
frmCatalogoArticulo.Show;
end;
procedure TfrmMain.JvXPBar2Items1Click(Sender: TObject);
begin
frmConsumoTrabajador := TfrmConsumoTrabajador.Create(nil);
frmConsumoTrabajador.Show;
end;
procedure TfrmMain.JvXPBar3Items3Click(Sender: TObject);
begin
frmNumeracion := TfrmNumeracion.Create(nil);
frmNumeracion.Show;
end;
procedure TfrmMain.JvXPBar4Items1Click(Sender: TObject);
begin
frmCambioFecha := TfrmCambioFecha.Create(nil);
frmCambioFecha.Show;
end;
procedure TfrmMain.JvXPBar2Items0Click(Sender: TObject);
begin
frmfacturacion := Tfrmfacturacion.Create(nil);
frmfacturacion.Show;
end;
procedure TfrmMain.JvXPBar3Items4Click(Sender: TObject);
begin
frmCCosto := TfrmCCosto.create(nil);
frmCCosto.Show;
end;
procedure TfrmMain.ProcesoItems0Click(Sender: TObject);
begin
frmActualizacion := TfrmActualizacion.Create(nil);
frmActualizacion.Show;
end;
end.