162 respuestas en este tema

[Caral]

Hola
Bueno, paso a paso, sigueme:

1: Colocamos este procedimiento en el private del form:

delphi

private
    procedure InitButtons; // esto es lo nuevo
    { Private declarations }
  public
    { Public declarations }
  end;

2- Despues de Implementacion y Uses pones el codigo que sigue:

delphi

implementation
 
uses UQR1, UQR2;
 
{$R *.dfm}
 
// de aqui en adelante
type
  TDBNavigator = class(DBCtrls.TDBNavigator);
 
procedure TFCamas.InitButtons;
const
	BtnTypeName: array[TNavigateBtn] of String = (
		'First', 'Prior', 'Next', 'Last', 'Insert', 'Delete', 'Edit', 'Post',
		'Cancel', 'Refresh');
 
var
 I: TNavigateBtn;
 
begin
	with TDBNavigator(DBNavigator1)do
		for I := Low(Buttons) to High(Buttons) do
		begin
			Buttons[I].Glyph.LoadFromResourceName(
				HInstance, Format('CDBN_%s', [BtnTypeName[I]]));
			Buttons[I].Caption := BtnTypeName[I];
			Buttons[I].Layout := blGlyphTop;
		end;
end;

3- En el evento OnChow:

delphi

procedure TFCamas.FormShow(Sender: TObject);
begin
   InitButtons();
end;

Ahora pones el archivo que esta en el zip, dentro de la carpeta del proyecto.
Correlo y me dices, como se ve?
Saludos



[archivo adjunto borrado por el administrador]

[Caral]

Hola
Se me olvido, jajaja.
En el unit del proyecto pones esto:
{$R dbnbuttons.res} asi:

delphi

program Project1;
 
uses
  Forms,
  UCamas in 'UCamas.pas' {FCamas},
  UQR1 in 'UQR1.pas' {QR1: TQuickRep},
  UQR2 in 'UQR2.pas' {QR2: TQuickRep};
 
{$R *.res}
{$R dbnbuttons.res} // esto es lo nuevo, hace referencia al archivo del zip.
 
begin
  Application.Initialize;
  Application.CreateForm(TFCamas, FCamas);
  Application.CreateForm(TQR1, QR1);
  Application.CreateForm(TQR2, QR2);
  Application.Run;
end.

Ahora si, correlo.
Saludos

[Caral]

Hola
Presiona Control + F12.
Busca el que dice Proyect1, lo abres, ahi esta el codigo.
Solo tienes que añadir eso.
Ah, por cierto, el archivo del zip creo que va dentro de una carpeta, sacalo y lo dejas dentro de donde este el programa (osea sin la carpeta).
Saludos

[Caral]

Hola
No es el unit1, es el proyect1.
En delphi (arriba a la izquierda) debajo de file hay varios dibujos, el de abajo es new, el de abajo de ese es viw units, si lo presionas te saldra una pantallita, en esa busca proyect1 y la abres, ahi es donde pones esto: {$R dbnbuttons.res} como te lo mostre.
Saludos

[Caral]

Hola
jajajajajaja, me costo mas explicarte donde esta el project1. jajajajja
Se ve bien el dbnavigator, verdad?
Saludos

[Caral]

Hola
Si que se ve mejor, mas elegante, hay que darle las gracias a Roman, el codigo es de el.
Vi algunos problemas con los nombres de los campos, los cambiaste y hay algun conflicto.
Lastima que no le pueda meter mucha mano, los componentes que baje no caminan bien.
Saludos

[Caral]

Hola
Pero asi esta.
Solo muestra las fechas vencidas y las pone en rojo, las fechas que no estan vencidas no las muestra.
Esta es otra cosa que tocaste, ahora muestra tambien la hora.
Eres un travieso.
Saludos

[enecumene]

La pregunta es la siguiente:¿Si cambio 'Fecha Vencimiento' Por 'Expiration Date' tengo que cambiarlo tambien en la base de datos correcto?
Un Saludo.

No amigo, el valor tomado desde el ComboBox no está ligado a la base de datos, sólo es un punto de referencia.

Saludos.