Ownerdrawing und Browse-Header [erledigt]

[Wolfgang Ciriack]

Kann mit Ownerdrawing eigentlich auch den Browse Header selbst "malen" ?
Hat evtl. jemand einen Tipp oder ein Beispiel ?

[Tom]

Das funktioniert genauso wie bei den Zellen, mit dem Unterschied, dass man Ownerdrawing nicht für die DrawingArea der Column, sondern für das Heading aktiviert/verwendet (man kann es in derselbe Methode tun, muss dann nur abfangen, wo man unterwegs ist). GetCell und ähnliche Methoden arbeiten dort analog. Normale Headings haben eine Zelle, aber es gibt ja auch mehrzeilige.

[Wolfgang Ciriack]

Und wie aktiviere ich das ?
(bei meinem CustomDrawCell in XbpBrowseUrlaub lande ich nur mit den "normalen" Cells).

Code: Alles auswählen

@4.4,1 DCBROWSE oBrowse ;
     DATA aAktBrw ;
     SIZE br, ho ;
     PRESENTATION aPP ;
     TABSTOP ;
     HEADLINES 2 ;
     FREEZELEFT {1} ;
     SUBCLASS 'XbpBrowseUrlaub()' ;
     EVAL {|o| o:UseVisualStyle:=.F. }

DCBROWSECOL ELEMENT AP_NAME HEADER "Name" WIDTH 12 PARENT oBrowse FONT "10.Arial" 
DCBROWSECOL ELEMENT AP_TGENO HEADER "Tage;gen." WIDTH 3 PARENT oBrowse FONT "10.Arial" 
DCBROWSECOL ELEMENT AP_TPLAN HEADER "Tage;gepl." WIDTH 3 PARENT oBrowse FONT "10.Arial"
for i:=1 to 12
   DCBROWSECOL ELEMENT i HEADER ntocmonth(i)+";1       10        20        30" ;
         WIDTH 54 PARENT oBrowse EVAL {|o|o:DataArea:DrawMode := XBP_DRAW_OWNER}
next

[Tom]

Code: Alles auswählen

DCBROWSECOL ELEMENT i HEADER ntocmonth(i)+";1       10        20        30" ;
         WIDTH 54 PARENT oBrowse EVAL {|o|o:DataArea:DrawMode := XBP_DRAW_OWNER,o:Heading:DrawMode := XBP_DRAW_OWNER}

In der Zeichenmethode dann abfangen, ob derzeit im Datenbereich oder im Heading gemalt werden soll:

Code: Alles auswählen

IF aInfo[XBP_DRAWINFO_AREA] == aInfo[XBP_DRAWINFO_COLUMN]:Heading // ja, bin im Header
  ..
  ELSE
  // Datenbereich zeichnen
ENDIF

[Wolfgang Ciriack]

Danke, probiere ich morgen gleich aus.

[Wolfgang Ciriack]

Prima, danke, hat geklappt.

urlaub.gif (51.97 KiB) 3513 mal betrachtet