Canvas.Textout funktioniert nicht

McFarlane · Verfasst: Sa 16.12.06 13:42

Tach,

das ist mein Problem:

Eine Funktion soll aus einem Memo die Linien in ein Canvas schreiben.

Das ist mein Code dazu:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure Tpreview.initwnd(Sender: TObject);
var zeile, x, y: integer;
    breite, hoehe, randlinks, randoben: integer;
begin

[...]

  SetMapMode(prew.Canvas.Handle, MM_LOMETRIC);

  prew.Canvas.Font.Name := 'Tahoma';
  prew.Canvas.Brush.Color := clWhite;
  randoben := 120;
  randlinks := 120;
  x := randlinks;
  y := -randoben;

  prew.Canvas.Font.Height := 70;
  prew.Canvas.Font.Style := [fsBold,fsUnderline];
  prew.Canvas.TextOut(120,-120,rez.rezeptbox.Caption); // <-- Das hier klappt

  prew.Canvas.Font.Height := 40;
  prew.Canvas.Font.Style := [];

  y := -190;

  FOR zeile := 0 TO rez.desc.Lines.Count -1 DO
  begin
    prew.Canvas.TextOut(120,y,rez.desc.Lines[zeile]); //<-- Das hier zeigt es einfach  nicht an
    dec(y,50);
  end;

end;

In dem Memo (desc) steht was drin.
Ich hab es auch schon mit rez.desc.lines.strings[zeile] probiert, wurde aber auch nicht angezeigt...

Weiß einer woran das liegen könnte???
Danke, McFarlane

PS: Bin sehr im Zeitdruck mit diesem Programm, wäre sehr dankbar für schnelle Hilfe

_________________
21 ist nur die halbe Wahrheit...

Chryzler · Beiträge: 1097 Erhaltene Danke: 2

Und wenn du das prew.Canvas.Font.Style := []; weglässt?

GTA-Place · Verfasst: Sa 16.12.06 13:57

Es muss an was anderem liegen, denn der Source oben funktioniert bei mir. Irgenwie wird wahrscheinlich die Memo-Schleife nicht benutzt. Mach mal vor der Schleife: ShowMessage(IntToStr(rez.desc.Lines.Count));.

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

McFarlane · Verfasst: So 17.12.06 11:04

rez.desc.Lines.Count = 6.... sagt mir auch der Zeile-Für-Zeile Debugger...

An der Schleife liegts nicht, es liegt an der [zeile]... aber es gibt genügend Zeilen und der Syntax ist auch korrekt...

_________________
21 ist nur die halbe Wahrheit...

Kroko · Beiträge: 1284 W98 W2k WXP Turbo D

Was meinst Du denn, wo

markieren

Delphi-Quelltext

1:

 Y:= -190;

auf dem Canvas sein soll?

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!

GTA-Place · Verfasst: So 17.12.06 18:16

@Kroko: Du hast den Sinn von SetMapMode(prew.Canvas.Handle, MM_LOMETRIC); nicht verstanden.

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

Kroko · Beiträge: 1284 W98 W2k WXP Turbo D

GTA-Place hat folgendes geschrieben:

@Kroko: Du hast den Sinn von SetMapMode(prew.Canvas.Handle, MM_LOMETRIC); nicht verstanden.

(a) Eher doch, aber sein Rand ist lt. Quelle bei 120, und er möchte bei -190 schreiben
und
(b) kann ich aus der Hilfe:

Zitat:

MM_LOMETRIC Each logical unit is mapped to 0.1 millimeter. Positive x is to the right; positive y is up.

nicht erkennen, dass (0;0) verschoben wird, aber ich kann mich auch irren :wink:

(c) Wenn laut eigene Aussage -120 geht, dann würde ich einfach mal -90 testen und nicht -190!

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!

GTA-Place · Verfasst: So 17.12.06 20:48

OK, wenn du das weißt, dann entschuldige :oops:

(a) Die Werte verwendet er aber gar nicht. y wird wieder überschrieben und x nicht verwendet.

Ich zitiere mich nochmal:

GTA-Place hat folgendes geschrieben:

Es muss an was anderem liegen, denn der Source oben funktioniert bei mir.

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

McFarlane · Verfasst: Di 19.12.06 13:23

Liegt es auch...

Der Ursprung liegt oben links in der Ecke.
X wird nach rechts größer und Y nach unten kleiner.
Wenn ich bei y = -190 nen String reinschreibe, dann zeigt es den auch richtig an. Aber sobald ich einen Indexverweis benutzte, geht es nicht.....

_________________
21 ist nur die halbe Wahrheit...

Böser Borstel · Beiträge: 154

was ist bitte rez.desc

GTA-Place · Verfasst: Mi 20.12.06 13:40

Wer lesen kann ist klar im Vorteil:

McFarlane hat folgendes geschrieben:

In dem Memo (desc) steht was drin.
Ich hab es auch schon mit rez.desc.lines.strings[zeile] probiert, wurde aber auch nicht angezeigt...

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

Kroko · Beiträge: 1284 W98 W2k WXP Turbo D

GTA-Place hat folgendes geschrieben:

Wer lesen kann ist klar im Vorteil:

McFarlane hat folgendes geschrieben:

...

Hey, das ist meine Signatur :lol:

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!

Böser Borstel · Beiträge: 154

funktioniert deine schleife richtig? kannst du dir deine Zeilen woanders ausgeben lassen (vielleicht mit showmessage)?

GTA-Place · Verfasst: Mi 20.12.06 14:56

@Kroko: Ich muss deine Signatur grad nochmal verwenden:

McFarlane hat folgendes geschrieben:

rez.desc.Lines.Count = 6.... sagt mir auch der Zeile-Für-Zeile Debugger...

Nicht ganz die Antwort auf deine Frage, aber ich habe bereits oben vorgeschlagen mit ShowMessage die Einträge anzeigen zu lassen, demnach bitte nächstes mal schon vorhandene Beiträge lesen ;-)

.

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

Böser Borstel · Beiträge: 154

ich glaube GTA-Place möchte sich irgendwie wichtig machen und nicht die hilfsversuche von anderen akzeptieren.
GTA-Place meinte lediglich McFarlane sollte sich die anzahl der zeilen ausgeben lassen und nicht den inhalt der aktuellen zeile innerhalb der schleife, denn wenn alle zeile leer sind, wird natürlich auch kein text auf dem canvas ausgegeben. man kann ja auch mehrere zeilen nur mit "sLineBreak" haben.

GTA-Place · Verfasst: Mi 20.12.06 15:39

Kann, aber McFarlane wird das überprüft haben ;-)

.

_________________
"Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme