FiveTech Software tech support forums

Added optional 3D and BORDER to all barstyles :

Color
gradient horizontal
gradient vertical
BORLAND
BRICKS
TILED

BORLAND, BRICKS and TILED are using the defined colors as shadow to make them different.

still the TRANSPARENT background and it will be finished !

http://www.pflegeplus&#46 ...

... 46;com/IMAGES/Graph9.jpg

IF ::nDegrade = 31 .or. ::nDegrade = 32 .or. ::nDegrade = 33
oBrush := TBrush():New( { "BORLAND", "TILED", "BRICKS" }[ ::nDegrade - 30 ] )
hBru := CreatePatternBrush( oBrush:hBitmap )
FillRect( ::hDC, { nTop, nLeft, nBottom, nRight }, hBru )
ENDIF

It is ...

... to add more bar-paintings :
0 = NON ( Color )
1 = Gradient horizontal
2 = Gradient vertical
31, 32, 33 = predefined styles ( BORLAND,TILED and BRICKS )
4 = BMP-brush

Another possible change :

http://www.pflegeplus.com/IMAGES/Graph7.jpg

Look the difference using the original ...

... a new Page for xBrowse.
It is possible to test all xBrowse-main-settings :

http://www.pflegeplus.com/pictures/shadow4.jpg

A problem, using predefined Style BORLAND, BRICKS and TILED with xBrowse ?

http://www.pflegeplus.com/pictures/shadow5.jpg

Best Regards
Uwe

... with Message, swichtching back to old Position.
I think it is a better Idea, otherwise the user means, it is not working.
I will still add < Borland, Bricks, Tiled > to the Info ( it only belongs to these Styles ).

http&#58;//www&#46;pflegeplus&#46;com/pictures/blocked1&#46;jpg

Best Regards
Uwe

Hello,

is it possible to disable or hide a Option in Class TSelex ( needed for a Valid )
I need it to disable a predefined Style ( Borland, Bricks or Tiled ).

Sample :
For Window the Style < Bricks > is selected ( oSelex1 )
In < oSelex2 > I want to disable this Style, because Message Bricks on ...

... aBARSTYLE[6] := { " 6", "Crystal" }
aBARSTYLE[7] := { " 7", "Office 3D" }
aBARSTYLE[8] := { " 8", "Crystal 3D" }
aBARSTYLE[9] := { " 9", "Bricks" }
aBARSTYLE[10] := { "10", "Tiled" }
aBARSTYLE[11] := { "11", "Borland" }

aBARST := ASORT ( aBARSTYLE, , , {|x,y| x[2] < y[2] } )
aBARSTYLE ...

Enrico
it works as well. The Difference :
The same Resource must show all Backgrounds : Colors, Brush, Image, Gradient, Circle and Style ( Bricks .. )

// works with Image
REDEFINE IMAGE oBMP10 ID 170 OF oFld:aDialogs[1] FILENAME c_path + c_Set + "\Fantasy2.jpg" ADJUST

My Solution for all ...

... The selected Logo
BRUSH=CLOUDOKY.BMP // The selected Brush
COLOR1=14853684 // Plain Color or 1. Color for Gradient
COLOR2=16314573 // 2. Gradient-Color
MOVE=0.50 // Move Color-Position for Gradient
TYPE=2 // Style-Types = Borland, Bricks, Tiled
DIRECTION=.T. // Gradient-Direction

Best Regards
Uwe

... http&#58;//www&#46;pflegeplus&#46;com/pictures/xBrwDlg&#46;jpg

It is possible for the next Update to include some more Dialog-vars
like Styles : BRICKS, BORLAND and TILED
( will be included in Browser : Dialog-Background-Style Pos. 7, 8 and 9 )

Maybe to delete the Bar-settings ( Width and Hight ...

... Sample : Testbtn3.prg
The reason for my question about a working Transparent-button on Images :
A empty transparent Button could be used as Hotspotarea .
With Colors, Image-Brushes and Styles ( Bricks, Tiled..) it works.
http&#58;//www&#46;pflegeplus&#46;com/pictures/btntools8&#46;jpg

Regards
Uwe

... 40; oDlg&#58;oClient &#58;= oBrw, oDlg&#58;Resize&#40;&#41; &#41;

CLOSE DATABASE

RETURN NIL




[code]

DEFINE BRUSH oBrush1 STYLE "BRICKS"

oCol:oBrush := { || IIF( _FIELD->LAST = "Crystal", oBrush1, NIL ) }
*oCol:bClrStd := { || IIF( _FIELD->LAST = "Crystal", { 16777215,128 ...

... Polizas->Telefono
cCondi:=Polizas->Condiciona
cSuperficie:=Polizas->Superficie
cAntig:=Polizas->Antiguedad

DEFINE BRUSH oBrush STYLE BRICKS
DEFINE DIALOG oDlg RESOURCE "Dialog_2" TITLE "Ver Siniestro" BRUSH oBrush
REDEFINE GET cRefe ID 10 OF oDlg UPDATE WHEN .F.
REDEFINE Combobox ...

... Function Hija()

Local oWndCh, oBruCh, oIcoCh, oBarCh

DEFINE ICON oIcoCh RESOURCE "CARPETAS"
DEFINE BRUSH oBruCh STYLE BRICKS
DEFINE WINDOW oWndCh OF oWnd ;
TITLE O2A('AlmaGest(c) v.8.9') FROM 10,10 TO 35,115 ;
MENU Menu1() ;
BRUSH oBruCh ;
ICON oIcoCh BORDER ...

... lines have to be included
SS_CENTER 0
ES_AUTOVSCROLL 64

------------------------------

In resources, you cannot use something like :

Bricks BITMAP
{
'42 4D 66 01 00 00 00 00 00 00 76 00 00 00 28 00'
'00 00 1E 00 00 00 0F 00 00 00 01 00 04 00 00 00'
'00 00 F0 00 00 00 C4 0E 00 00 ...