Antonio Linares wrote:Dear Silvio,
Here you have the EXE:
https://github.com/FiveTechSoft/FWH_tools/blob/master/skin3.exe
Please execute it from FWH\samples
Antonio Linares wrote:Please copy the EXE to FWH\samples and execute it there
Silvio.Falconi wrote:Antonio Linares wrote:Please copy the EXE to FWH\samples and execute it there
Nice work!!
If you create more colore Styles Is good!!
Antonio Linares wrote:Dear Silvio,
Do you want it as the first screenshot that you posted or as this previous one ?
Antonio Linares wrote:Dear Silvio,
Look at this! Thanks to Master Lailton!
EXE and new theme:
https://github.com/FiveTechSoft/FWH_tools/blob/master/mdi_skin_w11.zip
#include "fivewin.ch"
#include "constant.ch"
Function Configurazione()
local oDlg, oFld,oFont,oBold
local oBtnConfirm,oBtnClose
local aprompts:={"Azioni all'avvio","Aspetto Interfaccia","Connessioni","Premi" }
local cTitle:= "Configurazione applicazione"
local oSkin
local aGet:=array(30)
local oSay
DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0, 12
DEFINE FONT oBold NAME "MS Sans Serif" SIZE 0, 12 BOLD
DEFINE DIALOG oDlg ;
SIZE 500, 250 PIXEL TRUEPIXEL RESIZABLE ;
TITLE cTitle COLOR 0, CLR_WHITE FONT oFont STYLE WS_POPUP
@ 1,1 FOLDER oFld Prompts aprompts OF oDlg;
SIZE oDlg:nWidth-5,oDlg:nHeight-30
@ 100,10 Say oSay Prompt "NB. Le modifiche saranno effettive al prossimo avvio del programma" of oDlg SIZE 350,18 PIXEL TRANSPARENT
@ 100,10 BUTTON oBtnConfirm PROMPT "OK" of oDlg SIZE 80,22 DEFAULT ACTION ( oDlg:end( IDOK ) )
@ 100,10 BUTTON oBtnClose PROMPT "Annulla" of oDlg SIZE 80,22 CANCEL ACTION ( oDlg:end( IDCANCEL ) )
oDlg:bResized := <||
local oRect := oDlg:GetCliRect()
oSay:nLeft := oRect:nLeft+5
oSay:nTop := oRect:nBottom - 25
oBtnConfirm:nLeft := oRect:nRight - 200
oBtnConfirm:nTop := oRect:nBottom - 25
oBtnClose:nLeft := oRect:nRight - 100
oBtnClose:nTop := oRect:nBottom - 25
oFld:nTop := oRect:nTop
oFld:nWidth := oRect:nWidth - 10
oFld:nHeight := oRect:nBottom - 30
return nil
>
oDlg:aMinMaxInfo := { nil, nil, ,, 600, 350,600, 350 }
oDlg:bStart := {|| oSkin := Skin( oDlg, "Blue_skin" ),;
oSkin:this[ 10 ]:bLButtonUp := nil ,;
oSkin:this[ 11 ]:bLButtonUp := nil ,;
oSkin:this[ 9 ]:bLButtonUp := nil }
ACTIVATE DIALOG oDlg center ;
ON INIT ( EVAL( oDlg:bResized))
return nil
//----------------------------------------------------------------------------------------------//
#include "fivewin.ch"
#include "constant.ch"
Function Configurazione()
local oDlg, oFld,oFont,oBold
local oBtnConfirm,oBtnClose
local aprompts:={"Azioni all'avvio","Aspetto Interfaccia","Connessioni","Premi" }
local cTitle:= "Configurazione applicazione"
local oSkin
local aGet:=array(30)
local oSay
Local nBottom := 29
Local nRight := 90
Local nWidth := Max( nRight * DLG_CHARPIX_W, 180 )
Local nHeight := nBottom * DLG_CHARPIX_H
DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0, 12
DEFINE FONT oBold NAME "MS Sans Serif" SIZE 0, 12 BOLD
DEFINE DIALOG oDlg ;
SIZE nWidth, nHeight PIXEL TRUEPIXEL RESIZABLE ;
TITLE cTitle COLOR 0, CLR_WHITE FONT oFont ;
STYLE WS_POPUP
@ 10,1 FOLDER oFld Prompts aprompts OF oDlg;
SIZE oDlg:nWidth-5,oDlg:nHeight-30
@ 100,25 Say oSay Prompt "NB. Le modifiche saranno effettive al prossimo avvio del programma" of oDlg SIZE 350,18 PIXEL TRANSPARENT
@ 100,10 BUTTON oBtnConfirm PROMPT "OK" of oDlg SIZE 80,22 DEFAULT ACTION ( oDlg:end( IDOK ) )
@ 100,10 BUTTON oBtnClose PROMPT "Annulla" of oDlg SIZE 80,22 CANCEL ACTION ( oDlg:end( IDCANCEL ) )
oDlg:bResized := <||
local oRect := oDlg:GetCliRect()
oSay:nLeft := oRect:nLeft+25
oSay:nTop := oRect:nBottom - 25
oBtnConfirm:nLeft := oRect:nRight - 200
oBtnConfirm:nTop := oRect:nBottom - 28
oBtnClose:nLeft := oRect:nRight - 100
oBtnClose:nTop := oRect:nBottom - 28
oFld:nTop := oRect:nTop+30
oFld:nWidth := oRect:nWidth - 20
oFld:nHeight := oRect:nBottom - 60
return nil
>
oDlg:aMinMaxInfo := { nil, nil, ,, 600, 350,600, 350 }
oDlg:bStart := {|| oSkin := Skin( oDlg, "Blue_skin" ) }
ACTIVATE DIALOG oDlg center ;
ON INIT ( EVAL( oDlg:bResized))
return nil
//----------------------------------------------------------------------------------------------//
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 51 guests