Instalación de GHFreebrary

[webmasterplc]

Buenas he descargado las lunidades de gh freebrary pero no se on componentes instalables o solo unidades que debo colocar en una carpeta y relacionar a mi proyecto

[Al González]

Hola webmasterplc.

Para esa biblioteca hay una sección particular (http://www.clubdelphi.com/foros/forumdisplay.php?f=54). Pero no hará falta que abras otro hilo; un moderador moverá este en algún rato libre. ;)

La versión de mediados de noviembre de 2016 no tiene incorporadas aún las clases componentes. Puedes hacer uso de las clásicas Library path y Search path para que el compilador encuentre las unidades GHF que pongas en típicas cláusulas Uses. Algunas clases, como TghSys, cuentan con métodos de clase (class function) y son para usarse al estilo:
If TghSys.BoolBar (XXX) Then // Método de clase BoolBar que devuelve un valor de True/False
Foo := TghSys.Bar (XXX); // Asignar a una variable Foo lo que devuelve un método de clase llamado Bar

Si usas formularios VCL, te recomiendo cambiar su clase padre, de TForm a TghForm. De esa manera podrás abrir tus formularios llamando a los métodos Open y Execute, en lugar de Show y ShowModal. Pero esto no es requisito.

Hay muchas clases y métodos en esos fuentes (https://github.com/algonzalez74/GHFreebrary), para realizar todo tipo de cosas. Anímate a explorar el código y pregunta con toda confianza.

Saludos.

Al González.

[webmasterplc]

Me parece que esta liberación podría compilar en XE8 también. Debo comprobarlo.

GHF.Form es la unidad que contiene a TghForm (un TForm "extendido").

GHF.Sys y GHF.SysEx son las unidades centrales.

GHF.Win contiene cosas generales para aplicaciones Windows.

GHF.VCL contiene cosas generales para aplicaciones Windows+VCL.

[Al González]

¡Chanfle! Modifiqué tu mensaje por error. :o :o :o

Creí que estaba respondiendo, no editando. :eek:

Una disculpa, compañero. Voy a buscar una copia para recuperarlo.

[webmasterplc]

¡Chanfle! Modifiqué tu mensaje por error. :o :o :o

Creí que estaba respondiendo, no editando. :eek:

Una disculpa, compañero. Voy a buscar una copia para recuperarlo.
que unidades debo agregar para trabajar con la clase de los formularios, y si tengo que modificar todo el codigo de mi proyecto, porque tengo en mi codigo la creacion de form en tiempo de ejecución y la liberacio al cerrarlo y por lo que lei solo tengo que llamarlo con .execute u open y al cerrarlo se libera automaticamente.

[Al González]

La unidad a agregar al Uses es GHF.Form.

Localizas aquellos formularios que te interese adaptar a TghForm. Si en su respectivo archivo .pas dice algo como:
TForm1 = class(TForm)
Lo cambias por
TForm1 = class(TghForm)
En caso de que utilices herencia visual este cambio es más fácil, porque solo hay que hacerlo en las plantillas base. Y cambiar la clase padre por TghForm no te obliga a cambiar la sintaxis de creación y apertura de formularios; tú decides cuándo usar la sintaxis corta que se explica a continuación:
[...] cuando derivamos nuestros formularios de TghForm en lugar de TForm, seguimos contando con todo lo que trae de herencia TForm, pero podemos lanzar los formularios sin tener que crear y destruir nosotros mismos las instancias de éstos. Con una sola línea se crea, se ejecuta (abre) y, cuando el usuario lo cierra, se destruye el formulario:
TForm1.Execute;
No necesitamos preocuparnos de instanciar la variable del formulario, ni de liberarla después de usar éste. Execute es como ShowModal, pero haciendo el trabajo completo. Y, como ShowModal, devuelve un estado mrOK, mrCancel, ..., según la manera en que haya sido cerrado el formulario. Además puede recibir parámetros abiertos, por si queremos indicarle algo a nuestro formulario:
TForm1.Execute ('Rueda');
TForm1.Execute ('Palanca');
El formulario puede "recoger" esos parámetros en alguno de sus eventos, como el evento OnCreate:
procedure TForm1.FormCreate(Sender: TObject);
begin
// Agregamos al título del formulario "Rueda" / "Palanca" (lo que se haya puesto en Execute)
Caption := Caption + ' - ' + OpenParams [0];
end;
Y si queremos algo similar a Execute, pero que en lugar de hacer ShowModal abra el formulario como lo hace Show, entonces tenemos para ello el método Open:
TForm1.Open ('Rueda');

NOTA: En la práctica, muy pocas veces es necesaria la variable global que Delphi agrega con cada formulario. Pero, en caso de que la necesites, puedes asignarle Self en el evento OnCreate. Aunque con ello se reduce un poco la ventaja del ahorro de código.

Saludos. :)

Al González.

P.D. Agradecería a cualquiera que haya conservado o tenga acceso al texto original del mensaje #3 (tendré más cuidado con los clics en mi teléfono móvil). :p

[webmasterplc]

Para pasarle daos a las variables a la hora de abrirlo es igual a la manera anterior? o hay algun metodo en la libreria

[Al González]

Para pasarle daos a las variables a la hora de abrirlo es igual a la manera anterior? o hay algun metodo en la libreria
¿A qué te refieres? ¿Podrías explicarte o poner un ejemplo de lo que quieres hacer? Gracias. :)

[webmasterplc]

with TFormSelCliente.Create(Self) do
try
Caption:='Seleccionar Cliente Para ver Su Historico';
forma:='1';
ShowModal;
finally
Free
end;

[fjcg02]

Ostias Al,
se me hace raro ver el avatar que has puesto y no "el tuyo".

Saludos

[Al González]

with TFormSelCliente.Create(Self) do
try
Caption:='Seleccionar Cliente Para ver Su Historico';
forma:='1';
ShowModal;
finally
Free
end;
Un par de preguntas para determinar la alternativa con GHF:

En tu ejemplo, ¿forzosamente debe ser Self el parámetro dado al constructor, o el Owner puede ser también Application, Nil, etc.? Y ¿qué es "forma" y cómo usas ese elemento más tarde? Mostrarme código.

Saludos.

Al González.

[Al González]

Ostias Al,
se me hace raro ver el avatar que has puesto y no "el tuyo".
Es que viajé al futuro, el presente aquí, y se actualizó sin darme cuenta el sistema operativo de mi machine d'arithmétique. ;)