time schedule system

mod_harbour is an Apache module that allows to run PRGs directly on the web !!!
Post Reply
User avatar
Otto
Posts: 7020
Joined: Fri Oct 07, 2005 7:07 pm
Contact:

time schedule system

Post by Otto »

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
User avatar
Otto
Posts: 7020
Joined: Fri Oct 07, 2005 7:07 pm
Contact:

Re: time schedule system

Post by Otto »

Hello friends,
Now editing the appointment items is working fine.
Best regards,
Otto
Image
User avatar
cnavarro
Posts: 6763
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: time schedule system

Post by cnavarro »

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
User avatar
Otto
Posts: 7020
Joined: Fri Oct 07, 2005 7:07 pm
Contact:

Re: time schedule system

Post by Otto »

Dear Cristobal,

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

Best regards,
Otto

Image
User avatar
Otto
Posts: 7020
Joined: Fri Oct 07, 2005 7:07 pm
Contact:

Re: time schedule system

Post by Otto »

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


Image
User avatar
Antonio Linares
Site Admin
Posts: 44515
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Re: time schedule system

Post by Antonio Linares »

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
Post Reply