Ver Mensaje Individual
  #1  
Antiguo 03-06-2012
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.010
Reputación: 20
oscarac Va por buen camino
componentes no aparecen en el formulario

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 ?

Código Delphi [-]
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.
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita