Forms Look and Feel (White Paper)
668833Nov 5 2008 — edited Nov 12 2008Hello,
Sorry for my english. I had only 4 years englis at school. I hope you can understand me.
I use Forms Version 10.1.2.0.2 and I want to do the LAF-Tutorial from the Forms Look and Feel (White Paper April 2007), but I have a lot of problems.
The greatest Problems I have with the colors. The canvas have no colors.
Here the Trigger WHEN-TIMER-EXPIRED:
Begin
-- Look and Feel - white paper
If lower(Get_Application_Property( TIMER_NAME )) = 'laf_timer' Then
-------------------------------------
-- form main initializations --
-------------------------------------
Set_Custom_Property( 'CTRL.BEAN', 1, 'SET_SCHEME', 'blue' ) ;
If PKG_Look_And_Feel.Open_Css('C:\DevSuiteHome_1\forms\forms.css') Then
-- read the global GUI properties --
PKG_LOOK_AND_FEEL.Set_GUI_Properties( '.GUIProperties1', 'CTRL.LAF');
-- paint the canevases --
PKG_LOOK_AND_FEEL.Paint_Canevas('.canvasx', 'CTRL.BEAN' ) ;
PKG_LOOK_AND_FEEL.Paint_Canevas('.canvas2', 'CTRL.LAF' ) ;
-- set some individual properties --
Set_Custom_Property('CTRL.BEAN',1,'SET_GRADIENT_COLORS','r0g0b0,r80g80b80');
Set_Custom_Property( 'BL.BT2', 1, 'SET_TEXT_POSITION', 'right');
Set_Custom_Property( 'BL.BT2', 1, 'SET_IMAGE_POSITION', 'LM' );
Set_Custom_Property( 'BL.BT2', 1, 'SET_IMAGE', 'http://sheikyerbouti.developpez.com/images/warning.gif' ) ;
Set_Custom_Property( 'BL.BT2', 1, 'SET_IMAGE_ON','http://sheikyerbouti.developpez.com/images/warningOFF.gif' ) ;
Set_Custom_Property( 'BL.DEL_LIST', 1, 'SET_TEXT_POSITION', 'right');
Set_Custom_Property( 'BL.DEL_LIST', 1, 'SET_IMAGE', '/del.gif,LM' );
Set_Custom_Property( 'BL.ADD_LIST', 1, 'SET_TEXT_POSITION', 'right');
Set_Custom_Property( 'BL.ADD_LIST', 1, 'SET_IMAGE', '/add.gif,LM' );
Set_Custom_Property( 'BL.SCHEME', 1, 'SET_MAX_ROWS', '10' ) ;
-- paint the blocks --
PKG_LOOK_AND_FEEL.Paint_Block
(
PC$Block => 'EMP'
,PC$BeanName => 'CTRL.BEAN'
,PC$VA_Name => :PARAMETER.PM$VA
,PC$HeadClass => :PARAMETER.PM$HEADER
,PC$BodyClass => :PARAMETER.PM$BODY
,PC$TitleClass => :PARAMETER.PM$TITLE
,PC$Title => 'Theme #1 for this table block'
,PB$ScrollBar => True
) ;
Go_Block('EMP');
-- populate the block --
Execute_Query ;
Synchronize ;
End if ;
Show_View('CV2');
Go_Block('EMP');
End if ;
End ;
I don“t know why. But it looks white...
Please help my.
Greetings from Germany.
Liane
The Figure 2 (in the white paper) with the example of an Oracle Forms table block decorated like an HTML table,
background colour gradients and images on canvases, look so good. But how can I do this...