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
time schedule system
Re: time schedule system
Hello friends,
Now editing the appointment items is working fine.
Best regards,
Otto

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

Re: time schedule system
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
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
Re: time schedule system
Dear Cristobal,
Thank you for the kind words.
Now also preload is working fine.
Best regards,
Otto

Thank you for the kind words.
Now also preload is working fine.
Best regards,
Otto

- Antonio Linares
- Site Admin
- Posts: 44515
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: time schedule system
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
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
