Xojo Conferences
MBSSep2018MunichDE
XDCMay2019MiamiUSA

Listboxfrage #2 (Real Studio network user group Deutschland Mailinglist archive)

Back to the thread list
Previous thread: Sprachen
Next thread: Update von mySQL


Re: 5.2.1de ist da   -  
  Listboxfrage #2   -   Enno Bussmann
   Re: Listboxfrage #2   -   Rudi Maier
    Re: Listboxfrage #2   -   Enno Bussmann
     Re: Listboxfrage #2   -   Rudi Maier
    Re: Listboxfrage #2   -   Enno Bussmann
    Re: Listboxfrage #2   -   Enno Bussmann
     Re: Listboxfrage #2   -   Rudi Maier
   Re: Listboxfrage #2   -   Norbert Kraemer
    Re: Listboxfrage #2   -   Enno Bussmann

Listboxfrage #2
Date: 10.12.03 14:13 (Wed, 10 Dec 2003 14:13:42 +0100)
From: Enno Bussmann
Ich habe gesucht, bin aber nicht fündig geworden: wie verändere ich in einer mehrspaltigen listbox die
textfarbe einzelner zellen? Im moment kann ich zwar einen ersten eintrag machen (schwarzer text),
einen zweiten (roter text) und beim dritten eintrag werden alle bisherigen einträge dann aber rot.

Für eure hilfe wie immer mein dank

enno

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Listboxfrage #2
Date: 10.12.03 14:26 (Wed, 10 Dec 2003 14:26:51 +0100)
From: Rudi Maier
am 10.12.2003 14:13 Uhr schrieb Enno Bussmann unter <email address removed>:

> Ich habe gesucht, bin aber nicht fündig geworden: wie verändere ich in einer
> mehrspaltigen listbox die
> textfarbe einzelner zellen? Im moment kann ich zwar einen ersten eintrag
> machen (schwarzer text),
> einen zweiten (roter text) und beim dritten eintrag werden alle bisherigen
> einträge dann aber rot.
Im Event CellTextPaint der Listbox. Es gibt ein Beispiel in der
Sprachreferenz.

Rudi

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Listboxfrage #2
Date: 10.12.03 16:06 (Wed, 10 Dec 2003 16:06:04 +0100)
From: Enno Bussmann
"REALbasic-NUG German" <<email address removed>> schrieb am
10.12.03 14:26:58:
>

> Im Event CellTextPaint der Listbox. Es gibt ein Beispiel in der
> Sprachreferenz.
>
> Rudi
>
Danke, Rudi, das ist ja dieses beispiel, das ich suche und nicht finde.

enno

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Listboxfrage #2
Date: 10.12.03 17:34 (Wed, 10 Dec 2003 17:34:38 +0100)
From: Rudi Maier
am 10.12.2003 16:06 Uhr schrieb Enno Bussmann unter <email address removed>:

> "REALbasic-NUG German" <<email address removed>> schrieb am
> 10.12.03 14:26:58:
>>
>
>> Im Event CellTextPaint der Listbox. Es gibt ein Beispiel in der
>> Sprachreferenz.
>>
>> Rudi
>>
> Danke, Rudi, das ist ja dieses beispiel, das ich suche und nicht finde.
>
If row=4 and column=1 then
g.foreColor=RGB(255,0,0)
g.DrawString "Zahlung überfällig!",x,y
end if
Return True

Rudi

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Listboxfrage #2
Date: 10.12.03 19:38 (Wed, 10 Dec 2003 19:38:23 +0100)
From: Enno Bussmann
Danke, Rudi, es war die letzte zeile, die ich vergessen hatte.
> >
> If row=4 and column=1 then
> g.foreColor=RGB(255,0,0)
> g.DrawString "Zahlung überfällig!",x,y
> end if
> Return True
>
> Rudi
>
>
> - - - - - - - - - -
> For list commands, send "Help" in the body of a message to
> <<email address removed>>


- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Listboxfrage #2
Date: 10.12.03 22:44 (Wed, 10 Dec 2003 22:44:43 +0100)
From: Enno Bussmann
>
> Danke, Rudi, es war die letzte zeile, die ich vergessen hatte. ..Hoppla...da habe ich zu früh auf den
knopf gedrückt...die zeile sollte enden mit _aber das färbt die ganze zeile ein...am besten schildere ich
die problematik:

in einem editfield1 wird entweder
- direkt ein eintrag in die listbox1 (4 kolonnen) geschrieben und dieser soll dann rot erscheinen,
oder
- in ein zweites fenster mit einem weiteren editfield2 verzweigt, dessen eintrag in der listbox1 schwarz
erscheinen soll.

Das klappt einmal und beim zweitenmal wird alles rot und zwar in dem augenblick wo fenster2 zum
2.mal aufgerufen wird.

Hier der code für den cellTextpaint event

for i=0 to me.lastIndex
if me.cell(i,1)="xyz" then
g.forecolor=rgb(255,0,0)
g.drawstring "xyz",0,0
// eintrag erscheint an der richtigen stelle und in rot, allerdings   ist die ganze zeile in rot//
elseif me.cell(i,1)="abc" then
g.forecolor=rgb(0,0,0)
g.drawstring "abc",0,0
  //eintrag erscheint an der richtigen stelle und in schwarz, allerdings   ist die ganze zeile in schwarz//
end
next
return false

Wäre schön, wenn es zu lösen ist.

enno

os10.2.6, rb4.5.3

--

> > >
>

Re: Listboxfrage #2
Date: 11.12.03 09:15 (Thu, 11 Dec 2003 09:15:30 +0100)
From: Rudi Maier
am 10.12.2003 22:44 Uhr schrieb Enno Bussmann unter <email address removed>:

>>
>> Danke, Rudi, es war die letzte zeile, die ich vergessen hatte. ..Hoppla...da
>> habe ich zu früh auf den
> knopf gedrückt...die zeile sollte enden mit _aber das färbt die ganze zeile
> ein...am besten schildere ich
> die problematik:
>
> in einem editfield1 wird entweder
> - direkt ein eintrag in die listbox1 (4 kolonnen) geschrieben und dieser soll
> dann rot erscheinen,
> oder
> - in ein zweites fenster mit einem weiteren editfield2 verzweigt, dessen
> eintrag in der listbox1 schwarz
> erscheinen soll.
>
> Das klappt einmal und beim zweitenmal wird alles rot und zwar in dem
> augenblick wo fenster2 zum
> 2.mal aufgerufen wird.
>
> Hier der code für den cellTextpaint event
>
> for i=0 to me.lastIndex
> if me.cell(i,1)="xyz" then
> g.forecolor=rgb(255,0,0)
> g.drawstring "xyz",0,0
> // eintrag erscheint an der richtigen stelle und in rot, allerdings
>   ist die ganze zeile in rot//
> elseif me.cell(i,1)="abc" then
> g.forecolor=rgb(0,0,0)
> g.drawstring "abc",0,0
>   //eintrag erscheint an der richtigen stelle und in schwarz, allerdings   ist
> die ganze zeile in schwarz//
> end
> next
> return false
>
> Wäre schön, wenn es zu lösen ist.
Der CellTextpaint-Event wird bei jeder Zelle der Listbox ausgelöst.
Dabei wird immer row und column übergeben.
Darum brauchst Du keine for...next Schleife.
Du frägst einfach:

if me.cell(row, 1)="xyz" then
g.forecolor=rgb(255,0,0) //rot
elseif me.cell(row,1)="abc" then
g.forecolor=rgb(0,255,0) //grün
else
g.forecolor=rgb(0,0,0) //schwarz
end if

Rudi

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: Listboxfrage #2
Date: 11.12.03 00:17 (Thu, 11 Dec 2003 00:17:33 +0100)
From: Norbert Kraemer


"<email address removed>" wrote:
>
> Ich habe gesucht, bin aber nicht fündig geworden: wie verändere ich in
> einer mehrspaltigen listbox die
> textfarbe einzelner zellen? Im moment kann ich zwar einen ersten
> eintrag machen (schwarzer text),
> einen zweiten (roter text) und beim dritten eintrag werden alle
> bisherigen einträge dann aber rot.
>

Mit meiner alten Version von RB (3.0) geht es nicht, mit neueren vielleicht.
--

Re: Listboxfrage #2
Date: 11.12.03 10:21 (Thu, 11 Dec 2003 10:21:12 +0100)
From: Enno Bussmann
"REALbasic-NUG German" <<email address removed>> schrieb am
11.12.03 09:15:47:
>
> Der CellTextpaint-Event wird bei jeder Zelle der Listbox ausgelöst.
> Dabei wird immer row und column übergeben.
> Darum brauchst Du keine for...next Schleife.
> Du frägst einfach:
>
> if me.cell(row, 1)="xyz" then
> g.forecolor=rgb(255,0,0) //rot
> elseif me.cell(row,1)="abc" then
> g.forecolor=rgb(0,255,0) //grün
> else
> g.forecolor=rgb(0,0,0) //schwarz
> end if
>
> Rudi

Ja, warum kompliziert, wenn's auch einfach geht.
Danke

enno

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>