realbasic-nug.de
[Top] [All Lists]

Re: Text in listbox auszeichnen

To: info at it-rosenowski dot de, REALbasic NUG German <realbasic-nug dot de at lists dot realsoftware dot com>
Subject: Re: Text in listbox auszeichnen
From: Enno Bussmann <170751 at macnews dot de>
Date: Tue, 22 Aug 2006 18:32:38 +0200
Cc:
Delivered-to: listarchive at realsoftware dot com
Delivered-to: realbasic-nug dot de at lists dot realsoftware dot com
References: <20060822115526 dot 30BB9389E6 at webmail dot evanzo dot net>

Am 22.08.2006 um 13:55 schrieb IT-Rosenowski:

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


Besten dank Rossi,

damit klappt es und durch ein verwenden beider codes habe ich jetzt nur einen grauen zellhintergrund statt des hilites für die ganze reihe der angeklickten zelle.

gruss

enno



<Prev in Thread] Current Thread [Next in Thread>