Update of /cvsroot/eas-dev/eas/client
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv11146/client
Modified Files:
main.prg
Added Files:
eas-logo.png
Log Message:
Continues fix client and small changes in documentation
--- NEW FILE: eas-logo.png ---
(This appears to be a binary file; contents omitted.)
Index: main.prg
===================================================================
RCS file: /cvsroot/eas-dev/eas/client/main.prg,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- main.prg 2 Jun 2006 14:48:10 -0000 1.3
+++ main.prg 5 Jun 2006 14:12:19 -0000 1.4
@@ -190,7 +190,7 @@
/* Open dialog for connection parameters */
function connectionDialog( msg )
//local oConnectData := map(), auth_info:=map(), packet, vRet
- local cfg, win, t, bb, cap, pF, bD
+ local cfg, win, t, bb, cap, pF, bD, gTitle, wIcon, wVer
local oIni, name:="", a
local server, port
@@ -220,27 +220,35 @@
loginWindow := win
// Grid
- t := UIGrid(,6,4)
+ t := UIGrid(,6,4)
t:setSpacing(0)
t:setPadding(3)
win:userSpace:add(t,.T.,.T.)
- // Title
- cap := UILabel(i18n("Login to E/AS system"))
+ // Title
+ cap := UIFrame()
+ cap:setType( 2 ) // TODO: Sunken
+ gTitle := UIHBox()
+ cap:add( gTitle )
+ wIcon := UIImage("~/pro/setup/eas/eas/client/eas-logo.png") // TODO: set data path
+ gTitle:add( wIcon )
+ wVer := UILabel( EASGetVersion() )
+ gTitle:addEnd( wVer )
+ //UILabel(i18n("Login to E/AS system"))
//cap:setProperty("font.style", "BOLD") // TODO: setProperty connect to widget!!!
- t:add(cap, "1,1-3",.T.)
+ t:add(cap, "1,1-4+",.T.)
t:add(UILabel(i18n("Login")), "2,1")
- t:add(win:setName("name",UIEdit(name)),"2,2-4",.T.)
+ t:add(win:setName("name",UIEdit(name)),"2,2-4+",.T.)
t:add(UILabel(i18n("Password")), "3,1")
pF := win:setName("password",UIEdit(""))
pF:setPassword()
- t:add(pF,"3,2-4",.T.)
+ t:add(pF,"3,2-4+",.T.)
t:add(UILabel(i18n("Server name")), "5,1")
- t:add(win:setName("server",UIEdit(server)),"5,2",.T.)
+ t:add(win:setName("server",UIEdit(server)),"5,2+",.T.)
t:add(UILabel(i18n("Port")), "5,3")
- t:add(win:setName("port",UIEdit(port)),"5,4",.T.)
+ t:add(win:setName("port",UIEdit(port)),"5,4+",.T.)
bb := UIButtonBar()
bb:setAlignment( ALIGN_CENTER )
|
