f



bBrowser - RecordGroups

Hi

Example program details:
		// Record Groups: Initialize Level 1
		cGroupKey :=3D "Alltrim(Server:TRAIN_NAME)"	//Ez ut=C3=A1n nem teheto sem=
mi, mert akkor a csoportos=C3=ADt=C3=A1s nem muk=C3=B6dik.
		oRecordGroupLevel :=3D bRecordGroupLevel{bCodeblock{cGroupKey, oServer},;=
		// Expression for determining group values
															,;													// Expression for determining group sub value=
s
															nil,;												// Group sub value for the main record of a=
 record group
															_or(BRGLO_AUTOOPEN, BRGLO_GROUPLEASH, BRGLO_SERVERSEEK, BRGL=
O_LEVELSEPARATOR)}	// Options for the record group level
		oRecordGroupLevel:GroupRowHeight :=3D 24

		ocbGroupHeader :=3D bCodeblock{"'Train: ' +Alltrim(Server:TRAIN_NAME)", o=
Server}  =20
		oRecordGroupLevel:GroupHeader :=3D bRecordGroupHeader{ocbGroupHeader}

		oGrid :=3D bGrid{BGRID_OUTLINEHORIZONTAL, , , , , Color{COLORBLACK}}
		oFont :=3D self:oDCSub_Browse:GetDefaultFont()
		oFont:Bold :=3D true
		oRecordGroupLevel:GroupView :=3D bViewStyle{ , , BALIGN_LEFT + BALIGN_BOT=
TOM, oFont, oGrid}						// Attributes for the graphical representation of t=
he group values=20

		self:oDCSub_Browse:RecordGroup:LevelList:Add(oRecordGroupLevel)						// A=
dd level to the record group list =20
		// Recalculate the browser so that the record groups are considered
		self:oDCSub_Browse:Recalculate()=09

What it looks like:
https://drive.google.com/file/d/0B6fClxsodC7KY0d4T0lNNHNFSGs/view?usp=3Dsha=
ring=20

So it would be correct:
https://drive.google.com/open?id=3D0B6fClxsodC7KWHVZWUw0M0ZnZ0E

I ask for your help!

Szepligeti
0
szepligeti
12/14/2016 7:08:35 AM
comp.clipper.visual-objects 12618 articles. 0 followers. Post Follow

3 Replies
249 Views

Similar Articles

[PageSpeed] 57

Szepligeti,

remove  BRGLO_AUTOOPEN from  bRecordGroupLevel

HTH

Gerhard Bunzel



schrieb im Newsbeitrag 
news:fa980d74-9bc5-4fef-aa45-5a0af6fd5ad5@googlegroups.com...

Hi

Example program details:
// Record Groups: Initialize Level 1
cGroupKey := "Alltrim(Server:TRAIN_NAME)" //Ez után nem teheto semmi, mert 
akkor a csoportosítás nem muködik.
oRecordGroupLevel := bRecordGroupLevel{bCodeblock{cGroupKey, oServer},; // 
Expression for determining group values
,; // Expression for determining group sub values
nil,; // Group sub value for the main record of a record group
_or(BRGLO_AUTOOPEN, BRGLO_GROUPLEASH, BRGLO_SERVERSEEK, 
BRGLO_LEVELSEPARATOR)} // Options for the record group level
oRecordGroupLevel:GroupRowHeight := 24

ocbGroupHeader := bCodeblock{"'Train: ' +Alltrim(Server:TRAIN_NAME)", 
oServer}
oRecordGroupLevel:GroupHeader := bRecordGroupHeader{ocbGroupHeader}

oGrid := bGrid{BGRID_OUTLINEHORIZONTAL, , , , , Color{COLORBLACK}}
oFont := self:oDCSub_Browse:GetDefaultFont()
oFont:Bold := true
oRecordGroupLevel:GroupView := bViewStyle{ , , BALIGN_LEFT + BALIGN_BOTTOM, 
oFont, oGrid} // Attributes for the graphical representation of the group 
values

self:oDCSub_Browse:RecordGroup:LevelList:Add(oRecordGroupLevel) // Add level 
to the record group list
// Recalculate the browser so that the record groups are considered
self:oDCSub_Browse:Recalculate()

What it looks like:
https://drive.google.com/file/d/0B6fClxsodC7KY0d4T0lNNHNFSGs/view?usp=sharing

So it would be correct:
https://drive.google.com/open?id=0B6fClxsodC7KWHVZWUw0M0ZnZ0E

I ask for your help!

Szepligeti 

0
Gerhard
12/14/2016 1:33:10 PM
It is still not perfect:

https://drive.google.com/file/d/0B6fClxsodC7KRkFKTU03X1dHT2M/view?usp=sharing

Szepligeti
0
szepligeti
12/14/2016 1:50:46 PM
Hi,

You need to callopse the groups; e.g.:
        self:oDCBrowser:RecordGroup:CollapseItems(_Or(BRGCIO_COLLAPSEALL, 
BRGCIO_CLEARAUTOOPENINLEVEL))



Paul
schreef in bericht 
news:fa980d74-9bc5-4fef-aa45-5a0af6fd5ad5@googlegroups.com...

Hi

Example program details:
// Record Groups: Initialize Level 1
cGroupKey := "Alltrim(Server:TRAIN_NAME)" //Ez után nem teheto semmi, mert 
akkor a csoportosítás nem muködik.
oRecordGroupLevel := bRecordGroupLevel{bCodeblock{cGroupKey, oServer},; // 
Expression for determining group values
,; // Expression for determining group sub values
nil,; // Group sub value for the main record of a record group
_or(BRGLO_AUTOOPEN, BRGLO_GROUPLEASH, BRGLO_SERVERSEEK, 
BRGLO_LEVELSEPARATOR)} // Options for the record group level
oRecordGroupLevel:GroupRowHeight := 24

ocbGroupHeader := bCodeblock{"'Train: ' +Alltrim(Server:TRAIN_NAME)", 
oServer}
oRecordGroupLevel:GroupHeader := bRecordGroupHeader{ocbGroupHeader}

oGrid := bGrid{BGRID_OUTLINEHORIZONTAL, , , , , Color{COLORBLACK}}
oFont := self:oDCSub_Browse:GetDefaultFont()
oFont:Bold := true
oRecordGroupLevel:GroupView := bViewStyle{ , , BALIGN_LEFT + BALIGN_BOTTOM, 
oFont, oGrid} // Attributes for the graphical representation of the group 
values

self:oDCSub_Browse:RecordGroup:LevelList:Add(oRecordGroupLevel) // Add level 
to the record group list
// Recalculate the browser so that the record groups are considered
self:oDCSub_Browse:Recalculate()

What it looks like:
https://drive.google.com/file/d/0B6fClxsodC7KY0d4T0lNNHNFSGs/view?usp=sharing

So it would be correct:
https://drive.google.com/open?id=0B6fClxsodC7KWHVZWUw0M0ZnZ0E

I ask for your help!

Szepligeti 

0
Paul
12/22/2016 3:41:19 PM
Reply: