Re: MDI child window appearance
Posted: Thu Dec 29, 2022 11:27 pm
Hi Silvio,
If you resize it to much the "bitmap" can't be paited, then it is reason for why the skin disapear.
then you need adjust the oDlg:aMinMaxInfo to avoid that
in case you want some different style you can make your own by editing the BMPs, please check the folder black_skin, blue_skin and simple_skin ( inside samples of fwh ).
Any question let me know.
If you resize it to much the "bitmap" can't be paited, then it is reason for why the skin disapear.
then you need adjust the oDlg:aMinMaxInfo to avoid that
in case you want some different style you can make your own by editing the BMPs, please check the folder black_skin, blue_skin and simple_skin ( inside samples of fwh ).
Any question let me know.
Silvio.Falconi wrote: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
playing with the window I got this error
so i did a test on all three window types and i saw this
however even in the dialog there is some error if for example I use a resizable dialog with a folder inside it gives me an error in the sense that it shows the interface incorrectly as you can see below
dialog source
- Code: Select all Expand view
#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
//----------------------------------------------------------------------------------------------//