AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Text vertikal zeichnen

Ein Thema von Tpercon · begonnen am 15. Sep 2003 · letzter Beitrag vom 16. Sep 2003
Antwort Antwort
Tpercon

Registriert seit: 7. Jun 2002
638 Beiträge
 
Delphi 5 Professional
 
#1

Text vertikal zeichnen

  Alt 15. Sep 2003, 15:52
Auch wenn es hier schonmal einen Beitrag zum Zeichnen in StringGrid's gibt, warum geht folgendes nicht bei nem Image?
Delphi-Quellcode:
    Image1.Canvas.Font.Size := Sign[i].Font.Size;
    Image1.Canvas.Font.Style := Sign[i].Font.Style;
    Image1.Canvas.Font.Name := Sign[i].Font.Name;
    Image1.Canvas.Font.Color := Sign[i].Font.Color;
    if Sign[i].Horizontal = false then begin
      tf:=TFont.Create;
      try
        tf.Assign(Image1.Canvas.Font);
        GetObject(tf.Handle, sizeof(lf), @lf);
        lf.lfEscapement:=900;
        lf.lfOrientation:=0;
        tf.Handle:=CreateFontIndirect(lf);
        Image1.Canvas.Font.Assign(tf);
      finally
        tf.Free;
      end;
    end;
    Image1.Canvas.TextOut(Sign[i].Left, Sign[i].Top, sign_s);
Der Text bleibt ledier Horizontal.
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: Text vertikal zeichnen

  Alt 15. Sep 2003, 15:54
Was ist denn sign für ein Typ?
  Mit Zitat antworten Zitat
Tpercon

Registriert seit: 7. Jun 2002
638 Beiträge
 
Delphi 5 Professional
 
#3

Re: Text vertikal zeichnen

  Alt 15. Sep 2003, 16:03
Sign ist einfach ein Array.
Was wohl interessanter sein dürfte:
Delphi-Quellcode:
    tf: TFont;
    lf: TLogFont;
  Mit Zitat antworten Zitat
Tpercon

Registriert seit: 7. Jun 2002
638 Beiträge
 
Delphi 5 Professional
 
#4

Re: Text vertikal zeichnen

  Alt 15. Sep 2003, 21:53
Hat denn keiner eine Idee, worin der Fehler liegen könnte?
Kennt jemand eine andere Möglichkeit?
  Mit Zitat antworten Zitat
Tpercon

Registriert seit: 7. Jun 2002
638 Beiträge
 
Delphi 5 Professional
 
#5

Re: Text vertikal zeichnen

  Alt 16. Sep 2003, 10:44
Ich hab's!
Diese nette Zeile fehlte:
      SetGraphicsMode(Image1.Canvas.Handle, GM_ADVANCED); Hat jemand eine Idee, wie man ein Rechteck um den Text zeichnet, dass ebenfalls so gedreht wird? Wahrscheinlich nur mit Hilfe vom Polygon?!
  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 13:59 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz