topic-40227

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

time schedule system
Posted: Fri Apr 09, 2021 12:02 PM

Hello friends,

I am starting on a web interface for my schedule system.
This system uses the file system directly without a database.
There is a daily folder for the next few years on the hard disk.
Virtually this system recreates an appointment book.
A simple file manager helps to assign the documents with drag & drop and a file browser.

Best regards,
Otto
https://mybergland.com/fwforum/scheduler.mp4

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: time schedule system
Posted: Thu Apr 15, 2021 04:24 PM

Hello friends,
Now editing the appointment items is working fine.
Best regards,
Otto

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: time schedule system
Posted: Thu Apr 15, 2021 07:47 PM

Otto, it's great, congratulations

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: time schedule system
Posted: Fri Apr 16, 2021 08:02 AM

Dear Cristobal,

Thank you for the kind words.
Now also preload is working fine.

Best regards,
Otto

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: time schedule system
Posted: Fri Apr 16, 2021 08:35 AM

Hello friends,
Here you can see a size comparison.
Regards,
Otto

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: time schedule system
Posted: Fri Apr 16, 2021 10:39 AM

Dear Otto,

You could supply the factor as a parameter:

function resizeImage( cSrc, cDst, nValue )

local nQuality := 0
local oImage := GdiBmp():New( cSrc )
local nFactor := oImage:GetWidth() / If( Empty( nValue ), 400, nValue )
local newHeight := oImage:GetHeight( nFactor )

FErase( cDst )
oImage:Resize( If( Empty( nValue ), 400, nValue ), newHeight )
oImage:Save( cDst, nQuality )
oImage:End()

return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion