Search found 484 matches

by José Luis Sánchez
Fri Feb 12, 2021 9:38 am
Forum: FiveWin para Harbour/xHarbour
Topic: galería de imágenes
Replies: 52
Views: 32240

Re: galería de imágenes

Aida,
eso son funciones mías que puedes quitar del código sin problemas. oApp() es una función que devuelve la clase de la aplicación, es una manera de tener una clase global. La otra función edita un registro de la tabla Li.

Saludos,
by José Luis Sánchez
Fri Jan 29, 2021 5:10 pm
Forum: FiveWin para Harbour/xHarbour
Topic: galería de imágenes
Replies: 52
Views: 32240

Re: galería de imágenes

Una nueva entrada en Harbour Magazine explicando como hacer una galería de imágenes:

https://medium.com/harbour-magazine/c%C ... d88652ee27

Saludos,
by José Luis Sánchez
Mon Jan 25, 2021 8:34 am
Forum: FiveWin para Harbour/xHarbour
Topic: galería de imágenes
Replies: 52
Views: 32240

Re: galería de imágenes

Pues está quedando fenomenal, aquí tenéis una imagen.

Image

Saludos,
by José Luis Sánchez
Sun Jan 24, 2021 3:13 pm
Forum: FiveWin para Harbour/xHarbour
Topic: galería de imágenes
Replies: 52
Views: 32240

Re: galería de imágenes

Hola a todos, Ya tengo funcionando la galería de portadas de libros. Muchas gracias a Antonio, Mr. Rao, Angel y Enrico por vuestra ayuda. Pongo a continuación el código que estoy utilizando. // _____________________________________________________________________________// Function LiGaleria()    LO...
by José Luis Sánchez
Sat Jan 23, 2021 3:00 pm
Forum: FiveWin para Harbour/xHarbour
Topic: galería de imágenes
Replies: 52
Views: 32240

Re: galería de imágenes

Hola José,

eso es la clase c5vmenu de Paco García. La tienes completa en los fuentes de Cuaderno de Bitácora que tengo publicados en Github: https://github.com/JoseluisSanchez/bitacora. Ahí están los fuentes y cómo uso yo la clase.

Saludos,
by José Luis Sánchez
Sat Jan 23, 2021 8:12 am
Forum: FiveWin para Harbour/xHarbour
Topic: galería de imágenes
Replies: 52
Views: 32240

Re: galería de imágenes

Thanks Enrico. I need that TAlbum class inherits from TControl because I need to put it in a dialog. It's very difficult for me to control the application flow with 2 windows, so I need to create a dialog and inside it the talbum class. I have seen the code from Antonio, and also noticed about the ...
by José Luis Sánchez
Fri Jan 22, 2021 6:19 pm
Forum: FiveWin para Harbour/xHarbour
Topic: galería de imágenes
Replies: 52
Views: 32240

Re: galería de imágenes

Here you have !!! That is all that I need :-) #include "fivewin.ch" REQUEST DBFCDX //----------------------------------------------------------------------------// function Main()    local oDlg, oFont, oBold, oPanel    local aPhotos    aPhotos := DirectoryRecurse( "c:\fivetech\fwh1905...
by José Luis Sánchez
Fri Jan 22, 2021 6:14 pm
Forum: FiveWin para Harbour/xHarbour
Topic: galería de imágenes
Replies: 52
Views: 32240

Re: galería de imágenes

Mr. Rao,

I've done what I need just with a TScrollPanel and your code of showing the images. I'll post it when I've a nice sample. I didn't known that FWH has a TScrollPanel control, sorry.

¡¡ Muchas gracias a todos !!
by José Luis Sánchez
Fri Jan 22, 2021 5:15 pm
Forum: FiveWin para Harbour/xHarbour
Topic: galería de imágenes
Replies: 52
Views: 32240

Re: galería de imágenes

Thanks Enrico. I need that TAlbum class inherits from TControl because I need to put it in a dialog. It's very difficult for me to control the application flow with 2 windows, so I need to create a dialog and inside it the talbum class. I have seen the code from Antonio, and also noticed about the T...
by José Luis Sánchez
Tue Jan 19, 2021 7:02 pm
Forum: FiveWin para Harbour/xHarbour
Topic: galería de imágenes
Replies: 52
Views: 32240

Re: galería de imágenes

Sorry, I tried and gives me error with oAlbum := TAlbum():New( aImages, aLabels, aRecno ):Activate() and also with: oAlbum := TAlbum():New( aImages, aLabels, aRecno ) oAlbum:Activate() Here is my TAlbum class. I modified to show a label and I'm trying to edit the record of the cover: CLASS TAlbum   ...
by José Luis Sánchez
Tue Jan 19, 2021 5:40 pm
Forum: FiveWin para Harbour/xHarbour
Topic: galería de imágenes
Replies: 52
Views: 32240

Re: galería de imágenes

Antonio, this is the error.log Application =========== Path and name: C:\alanit\develop\bitacora\bitacora.exe (32 bits) Size: 5,786,624 bytes Compiler version: Harbour 3.2.0dev (r1904111533) FiveWin version: FWH 19.05 C compiler version: Borland/Embarcadero C++ 7.0 (32-bit) Windows version: 6.2, Bui...
by José Luis Sánchez
Tue Jan 19, 2021 3:35 pm
Forum: FiveWin para Harbour/xHarbour
Topic: galería de imágenes
Replies: 52
Views: 32240

Re: galería de imágenes

Mr. Rao,

it's possible to add a method to select a image and highlight it and then with arrow keys move and select other image ?

Regards,
by José Luis Sánchez
Tue Jan 19, 2021 3:33 pm
Forum: FiveWin para Harbour/xHarbour
Topic: galería de imágenes
Replies: 52
Views: 32240

Re: galería de imágenes

I don't undestand this. I'm using the same code from Mr. Rao. If I write:

Code: Select all

  oAlbum := TAlbum():New():Activate()
I don't have the error, but if I write

Code: Select all

oAlbum := TAlbum():New()
oAlbum:Activate()
I get the error.
by José Luis Sánchez
Mon Jan 18, 2021 6:28 pm
Forum: FiveWin para Harbour/xHarbour
Topic: galería de imágenes
Replies: 52
Views: 32240

Re: galería de imágenes

About centering the TAlbum over the main window of my program, I do the following:   ACTIVATE WINDOW ::oWnd ;       ON INIT ::oWnd:Center( oApp():oWndMain ) ;       VALID (::lExit := .t.) and I get this error: Application =========== Path and name: C:\alanit\develop\bitacora\bitacora.exe (32 bits) S...
by José Luis Sánchez
Mon Jan 18, 2021 5:29 pm
Forum: FiveWin para Harbour/xHarbour
Topic: galería de imágenes
Replies: 52
Views: 32240

Re: galería de imágenes

Thanks Antonio, the dialog version works fine, but doesn't has the scroll feature.

Regards,