Re: Text in listbox auszeichnen

[IT-Rosenowski <info at it-rosenowski dot de>]

Hallo Enno,
natürlich geht das.
Einfach zwei Variablen anlegen z.B. selectedRow und selectedColumn als integer.
Im Event CellClick diese füllen.
Danach im CellbackgroundPaint folgendes:

  if selectedColumn=column and selectedRow=row then
    g.ForeColor=&cFF0000
    g.FillRect 0,0,g.Width,g.Height
    
  else
    g.ForeColor=&cFFFFFF
    g.FillRect 0,0,g.Width,g.Height
    
  end
  return true

und im CellTextPaint das:

  if selectedColumn=column and selectedRow=row then
    g.Bold=True
    g.ForeColor=&CFFFFFF
  else
    g.ForeColor=&c000000
  end if
  g.DrawString me.cell(row,column),x,y
  return true

Und siehe da wir haben die Lösung.

Gruß Rossi