AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Canvas.Textout Farbe ändern Problem

Ein Thema von Brainstalker · begonnen am 2. Mär 2008 · letzter Beitrag vom 4. Mär 2008
Antwort Antwort
Benutzerbild von Brainstalker
Brainstalker

Registriert seit: 9. Jan 2004
Ort: Berlin
176 Beiträge
 
Delphi 2009 Professional
 
#1

Canvas.Textout Farbe ändern Problem

  Alt 2. Mär 2008, 19:59
Hi,

ich hab gerade ein Problem. Ich will mit Textout Farbigen Text in einem TListView ausgeben.

Code:
Canvas.TextOut(aTextRect.Left, aTextRect.Top, ItemCaption);

  if ItemType = 'Passiv' then
    Canvas.Font.Color := clBlue
  else
    Canvas.Font.Color := clRed;

  aTextRect.Top := aTextRect.Top + 14;
  Canvas.TextOut(aTextRect.Left, aTextRect.Top, ItemType);
Mein Problem ist, das der Text immer in schwarz ausgegeben wird. Wenn ich das Font.Color Property vor dem ersten Textout setze, wird die richtige Farbe gesetzt. Allerdings dann für den gesamten nachfolgenden Text.
Wieso wird Font.Color nach dem ersten Aufruf von TextOut nicht berücksichtigt?
Michael N.
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#2

Re: Canvas.Textout Farbe ändern Problem

  Alt 2. Mär 2008, 20:08
Das schaut schon richtig aus, bist du sicher das nix anderes drüberschreibt ?

Was versuchst du denn zu tun?
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
Larsi

Registriert seit: 10. Feb 2007
2.262 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Canvas.Textout Farbe ändern Problem

  Alt 2. Mär 2008, 20:11
Warum nimmste nicht ein unstichtbares Label oder schreibst den Text dirket in die Listiview?
Ein Tag ohne Delphi ist ein verlorener Tag!

Homepage zu meinem neuen Programm: StreamZ
  Mit Zitat antworten Zitat
Benutzerbild von Brainstalker
Brainstalker

Registriert seit: 9. Jan 2004
Ort: Berlin
176 Beiträge
 
Delphi 2009 Professional
 
#4

Re: Canvas.Textout Farbe ändern Problem

  Alt 2. Mär 2008, 20:39
Also ich möchte in meiner ListView Text in zwei Zeilen schreiben. Wobei die zweite Zeile eine andere Farbe haben soll.

Delphi-Quellcode:
procedure TMainFrm.SkillBoxCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  aIconRect, aTextRect:TRect;
  ItemCaption: string;
  ItemType: string;
begin
  DefaultDraw := False;

  ItemCaption := Copy(Item.Caption, 0, Pos('|||', Item.Caption)-1);
  ItemType := Copy(Item.Caption, Pos('|||', Item.Caption)+3, Length(Item.Caption));

  aIconRect:=Item.DisplayRect(drBounds);
  aTextRect:=Item.DisplayRect(drLabel);

  if (Item.Index=TListView(Sender).ItemIndex) or (TListView(Sender).ItemFocused=Item) or (Item.selected) then
  begin
    Sender.Canvas.Pen.Color := $008FC2B3;
    Sender.Canvas.Brush.Color := $00CDEFE9;
    Sender.Canvas.Rectangle(aTextRect);
  end;

  with Sender do
  begin
    aTextRect.Left := aTextRect.Left + 2;
    aTextRect.Top := aTextRect.Top + 2;
    
    Canvas.TextOut(aTextRect.Left, aTextRect.Top, ItemCaption);
    
    if ItemType = 'Passivthen
      Canvas.Font.Color := clBlue
    else
      Canvas.Font.Color := clRed;
    
    aTextRect.Top := aTextRect.Top + 14;
    Canvas.TextOut(aTextRect.Left, aTextRect.Top, ItemType);
    TListView(Sender).SmallImages.Draw(Canvas,aIconRect.Left+2,
      aIconRect.Top,Item.ImageIndex);
  end;
end;
Das soll Zwei Zeilen Text schreiben, was es auch tut. Die Zeilenhöhe wird automatisch angepasst durch die ImageList.
Wie gesagt, er schreibt beide Zeilen, aber die Farbe wird nicht übernommen, nachdem ich bereits einmal TextOut aufgerufen habe.
Michael N.
  Mit Zitat antworten Zitat
Benutzerbild von Brainstalker
Brainstalker

Registriert seit: 9. Jan 2004
Ort: Berlin
176 Beiträge
 
Delphi 2009 Professional
 
#5

Re: Canvas.Textout Farbe ändern Problem

  Alt 4. Mär 2008, 19:45
Ich hab jetzt noch einige Tests gemacht, aber ich kam immer noch nicht zum gewünschten Effekt. Sobald einmal TextOut aufgerufen wurde kann ich die Schriftfarbe nicht mehr ändern.
Das ist jetzt mein Code:
Delphi-Quellcode:
procedure TMainFrm.SkillBoxCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  aIconRect, aTextRect:TRect;
  ItemCaption: string;
  ItemType: string;
begin
  DefaultDraw := false;

  Sender.Canvas.Font.Color := clGreen;
  Sender.Canvas.TextOut(50,50,'Bla');
  Sender.Canvas.Font.Color := clBlack;
  Sender.Canvas.TextOut(50,70,'Bla');
end;
Allerdings werden beide Grün dargestellt.

EDIT:

Hab gerade rausgefunden, das es so bei OnCustomDrawItem ist, pack ich den gleichen Code ind OnCustomDraw funktioniert es.
Michael N.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:45 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf