Ribbon drawing
Posted: Mon Nov 04, 2013 3:23 pmProbably I'm doing something wrong, but I can't see where.
I'm building a MDI window with a Ribbon Bar, sth that looks easy, but the groups aren't painted right at program star. When the mice passes over it, the problem disapears:
Image with problem:
after passing the mice over:
Code:
It has been compiled against the last FW release, downloaded today.
I have no idea what I'm doing wrong. ¿Any clue?
Regards
I'm building a MDI window with a Ribbon Bar, sth that looks easy, but the groups aren't painted right at program star. When the mice passes over it, the problem disapears:
Image with problem:
after passing the mice over:
Code:
- Code: Select all Expand view
#INCLUDE 'Fivewin.ch'
#INCLUDE 'Ribbon.ch'
STATIC OWNDMAIN, oFont , oFuenteL, oFuenteM, oFuenteS, oWnd
Procedure Main()
LOCAL oBrush , oBmpTit
DEFINE FONT oFuenteL NAME "Segoe UI Light" SIZE 0, -30
DEFINE FONT oFuenteM NAME "Segoe UI Light" SIZE 0, -17
DEFINE FONT oFuenteS NAME "Segoe UI Light" SIZE 0, -14
DEFINE WINDOW oWnd MDI BRUSH oBrush TITLE 'Prueba' STYLE nOr( WS_POPUP, WS_BORDER)
oWnd:bInit :={|| MainMenu(),oWnd:Refresh()}
oWnd:oMenu:end()
ACTIVATE WINDOW oWnd maximized
RETURN
//----------------------------------------------------------------------------//
Function MainMenu()
local oRbnBar, oGr1,oTBtn1, oTBtn2,oTBtn3,oGr2,oGr3, oBtn
local oBackStage
local option
local oMtr,nAct
local aDB := {}
if oRbnBar !=nil
oRbnBar:End()
oRbnBar:=nil
endif
DEFINE RIBBONBAR oRbnBar WINDOW oWnd PROMPT "Principal" HEIGHT 127 TOPMARGIN 25 2013 //Apariencia del 2013
oRbnBar:nLeftMargin = 4
oRbnBar:CalcPos()
ADD group oGr1 RIBBON oRbnBar to Option 1 PROMPT "Maestros" WIDTH 805
@ 5,5 ADD BUTTON oBtn PROMPT "SubSec" GROUP oGr1 BITMAP "subsec" ROUND SIZE 75,75 ACTION Mantegen("MAESUBSEC",aDB,.T.,{},{})
oBtn:SetFont(oFuenteS)
@ 5,85 ADD BUTTON oBtn PROMPT "CLegal" GROUP oGr1 BITMAP "contra" ROUND SIZE 75,75 ACTION Mantegen("MAECONLEG",aDB,.T.,{},{})
oBtn:SetFont(oFuenteS)
@ 5,165 ADD BUTTON oBtn PROMPT "CInterno" GROUP oGr1 BITMAP "contral" ROUND SIZE 75,75 ACTION Mantegen("MAECONINT",aDB,.T.,{},{})
oBtn:SetFont(oFuenteS)
@ 5,245 ADD BUTTON oBtn PROMPT "Provincia" GROUP oGr1 BITMAP "provin" ROUND SIZE 75,75 ACTION Mantegen("MAEPROVIN",aDB,.T.,{},{})
oBtn:SetFont(oFuenteS)
@ 5,325 ADD BUTTON oBtn PROMPT "Paises" GROUP oGr1 BITMAP "paises" ROUND SIZE 75,75 ACTION Mantegen("MAEPAIS",aDB,.T.,{},{})
oBtn:SetFont(oFuenteS)
@ 5,405 ADD BUTTON oBtn PROMPT "Poblacion" GROUP oGr1 BITMAP "poblacion" ROUND SIZE 75,75 ACTION Mantegen("MAEPOBLAC",aDB,.T.,{},{})
oBtn:SetFont(oFuenteS)
oGr1:SetFont(oFuenteS)
ADD group oGr2 RIBBON oRbnBar to Option 1 PROMPT "Internos" WIDTH 100
@ 5,15 ADD BUTTON oBtn PROMPT "Datos Pers." GROUP oGr2 BITMAP "trabaja" ROUND SIZE 75,75 ACTION Mantegen ("DATPER",aDB,.F.,{},{})
oGr2:SetFont(oFuenteS)
oBtn:SetFont(oFuenteS)
ADD group oGr3 RIBBON oRbnBar to Option 1 PROMPT "Externos" WIDTH 100
@ 5,15 ADD BUTTON oBtn PROMPT "Datos Pers." GROUP oGr3 BITMAP "exter" ROUND SIZE 75,75 ACTION Mantegen ("INFTRAEXT",aDB,.F.,{},{})
oGr3:SetFont(oFuenteS)
oBtn:SetFont(oFuenteS)
return nil
Function Mantegen( cData )
RETURN MsgInfo(cData )
It has been compiled against the last FW release, downloaded today.
I have no idea what I'm doing wrong. ¿Any clue?
Regards
