Nice i saw the mov,
can you resize the win child or are fix sizes?
Antonio Linares wrote:Dear Silvio,Application
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 :-)Nice work!!
Silvio.Falconi wrote:for a sample close button on win 10 is as thisPlease copy the EXE to FWH\samples and execute it there :-)Nice work!!
If you create more colore Styles Is good!!
Dear Silvio,
Do you want it as the first screenshot that you posted or as this previous one ?
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,playing with the window I got this error
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
//----------------------------------------------------------------------------------------------//Dear Silvio,
Your example is working fine here. I don't get any flickering when changing from one tab to another.
Only flickering when maximizing or restoring it
Maybe it is the display driver (?). Could you test it on another pc ?