Windows Gui example

[Arcap94]

Hi there,

I have another acount on this forum (Arnebcab94) but i forgot the password and the password of my email (new computer--->passwords arent saved anymore)
so i created a new one.Sorry for that.

anyway, I made a small application wich can copy a file to another path. it uses my new WinGui lib i will present later (it isn´t finished yet).
Here is it:
http://www.file-upload.net/download-2279112/guiexamples.rar.html

pls tell me what you think. With it i can make buttons, textfields, radiobuttons, textoutputs etc. really fast. There are more things i want to implement later

EDIT:

heres the code (only app, not lib):

Code:

include "WinGui v0.1.lib"

setdisplay(300,200,32,1)
ink(WinGray)
bar(0,0,400,300)

NewInput(2,150,260,"Path")
NewInput(2,125,260,"File")
NewButton(232,175,60,"Copy",15)
NewButton(5,175,60,"Exit",19)
NewCheckBox(30,107,"Check for errors")
NewLabel(30,20,250,WinGray,"line1")
NewLabel(30,35,250,WinGray,"line2")
NewLabel(30,50,250,WinGray,"line3")

while 1
If ButtonPressed("Exit") then : end : end if

If ButtonPressed("Copy") then
if BChecked("Check for errors") then
SetText("line1","Check if file exists...")
    if fileexists(getinput("File")) then : SetText("line1","Check if file exists...Ok!") : else : SetText("line1","Check if file exists...error!") : end if
    if fileexists(getinput("File")) then : SetText("line1","Check if file exists...Ok!") : else : SetText("line1","Check if file exists...error!") : end if
    SetText("line2","Copying file...")
             end if
             filecopy(getinput("File"),getinput("Path"))
             if BChecked("Check for errors") then
             If fileexists(getinput("Path")) then : SetText("line3","File has successfully been copied") : else : SetText("line3","Error: File couldn`t be copied")  : end if
end if
end if

GetInput("Path")
GetInput("File")
BChecked("Check for errors")
wend

[ekv-edit]addet code tags[/]

[Derek]

Hi,

that looks very nice indeed. Thanks for sharing. I'm just a little jealous of what you have achieved. I'm doing something similar for Yabasic but I've not been as productive as this.

Derek.

[aurelB]

Looks nice but do you can use native windows fonts (fnt) insted of true type?
This font is not clear type isnt?
However very good

[E.K.Virtanen]

Nice piece of code. And welcome on board too 

[Arcap94]

Looks nice but do you can use native windows fonts (fnt) insted of true type?
This font is not clear type isnt?
However very good

Thanks for the Hint! It looks alot better now.
I updated the top post with the new download link. take a look

[aurelB]

Yeah,now looks realy good
without ugly fonts.