Am 06.10.2006 um 11:41 schrieb Enno Bussmann:
Am 06.10.2006 um 10:32 schrieb info at it-rosenowski dot de:
Alternativ kann man auch die Farbe in Listbox.CellTag(row,column)
hinterlegen.
Dadurch bleibt der Zelltext unberührt.
was ich bislang noch nicht geschafft habe ist, dass die information
beim nächsten cellclick erhalten bleibt, dass also die zelle(1,1)
wenn ich auf die zelle (1,2) klicke weiterhin ihren farbigen
zellhintergrund behält. Irgendwas habe ich offenkundig noch nicht
verstanden :-((
Du must einfach im CellBackgroundPaint event schauen ob im CellTag
eine Farbe steht und wenn ja die Zelle entsprechend einfärben.
also etwa so:
if cellTag(row,column) = "1" then
Zeichne Farbe hier
end if
jetzt musst du nur noch im CellClick Event den CellTag füllen. Ich
habe es jetzt in dem Bsp einfach gehalten und gehe davon aus, das man
dort wenn es selektiert ist eine 1 reinschreibt und sonst nichts.
Du kannst dort aber zb auch den RGB Code deiner gewünschten Farbe
hinterlegen zb also 255,0,0 und dann kannst du dadurch auch
unterschiedliche farben darstellen.
if len(cellTag(row,column) > 0 then
rot = val(nthfield(cellTag(row,column),",",1))
grün = ....
blau = ....
g.foreColor = rgb(rot,grün,blau)
Flöche Zeichen
end if
Ist alles Pseudocode und aus dem Kopf geschrieben
gruss V
|