Am 30.12.2006 um 06:18 schrieb Stefan Mettenbrink:
Andy Fuchs wrote:
Also bei mir geht's ... ich kann die selektion so malen wie ich will:
mal so ausm Kopp:
if me.selected(row) then
g.forecolor = rgb(255,0,0)
g.fillrect 0,0,g.width-1, g.height-1
end if
Bei mir (RB5.5) auch. Solange der Focus auf der Listbox bleibt.
Wenn der
Focus wechselt, wird meineselbstgemalte Hintergrundfarbe grau.
MfG, Metti.
2006r4 geht es.
CellBackroundPaint
dim c as color
If FillingProzess then //male nur, wenn die Listbox gerade nicht
gefüllt wird -- Performance
return true
end if
if PrefDic.value("ListBoxColor") and row<me.ListCount then
c = ListBoxColoring(row)
If me.Selected(row) then //If this cell is on a selected row
make the color slightly darker
c = ListBoxZeilenFarbe
End
g.foreColor = c //set the cell color to this new color
g.fillRect 0,0,g.width,g.height //fill in the cell
return true
end if
Claudius
--
iMac CD 2GHz / MacOS X 10.4de / RB 2006r4/ Valentina 2.5
Homepage http://www.ClaSai.de
iChat ryhoruk
RealBasic ListBoxes: [ I feel the need...the need for speed!!! ]
|