Text Variable an bestimmter Stelle auf Image ausgeben

Bull80 · Beiträge: 23 mal dies, mal das

hallo @ all,

habe den weg als neuling zu euch gefunden, weil mich das forum bisher von allen am besten angesprochen hat. hoffe, das ihr mir evtl. bei folgendem problem weiterhelfen könnt. zur veranschaulichung vorweg eine grafik:

www.bosserver.de/delphi.gif

ich möchte gerne an den mit roten pfeilen markierte stelle die ziffern der eingabe von länge und breite (beide bereits als variable deklariert) anzeigen lassen. reicht der ausschnitt an quelltext:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

//                 ==========Grafik zeichnen=========
     laenge:=0;
     breite:=0;
     laenge := StrToInt(E_Laenge.Text);
     breite  := StrToInt(E_Breite.Text);

     with Image1 do begin
        Image1.Canvas.Pen.Color:=clSkyBlue;
        Image1.Canvas.Brush.Color:=clSkyBlue;
        Image1.Canvas.Rectangle(40,360,40+laenge,360-breite);
        Image1.Canvas.Pen.Color:=clBlack;
        Image1.Canvas.MoveTo(40+laenge-1,360);      //X-Achse                 
        Image1.Canvas.LineTo(40+laenge-1,365);      //X-Achse              AN DIESER STELLE
        Image1.Canvas.MoveTo(35,360-breite);        //Y-Achse
        Image1.Canvas.LineTo(40,360-breite);        //Y-Achse              AN DIESER STELLE
     end;

hoffe, das jetzt richtig gemacht zu haben.
eine andere sache, die mich noch stört ist. das ich nur das Rechteck ausgefüllt haben möchte, nicht jedoch die achsenbeschriftung. gibt es da auch eine möglichkeit?

ich dank euch für eure mühe.

mfg
björn

Moderiert von Gausi: Delphi-Tags hinzugefügt

mkinzler · Verfasst: Di 03.10.06 15:08

Canvas.Textout()

_________________
Markus Kinzler.

Bull80 · Beiträge: 23 mal dies, mal das

besten dank, aber damit kann ich die variablen nicht ausgeben sondern nur das, was ich darein schreibe:

Image1.Canvas.TextOut(40,360-breite,'Text'); //Y-Achse

das habe ich ja bereits für die achsenbeschriftung angewendet. würde es ganz gern so haben (beispiel):

Image1.Canvas.TextOut(40,360-breite,'hier soll die variable "laenge" z.b. ausgegeben werden'); //Y-Achse

oder habe ich dich missverstanden und es funzt damit doch?

mkinzler · Verfasst: Di 03.10.06 15:25

Wenn du laenge in einen String castest sollte es gehen (IntToStr())

_________________
Markus Kinzler.

Bull80 · Beiträge: 23 mal dies, mal das

ich habe es hinbekommen. es fehlte nur folgendes ohne es in IntToStr zu ändern:

Image1.Canvas.TextOut(20,360-breite,E_Laenge.Text);

einfach "E_Laenge.Text". dank dir trotzdem. hast du evtl. auch eine idee, wie ich nur das rechteckt mit der farbe ausfülle und nicht zusätzlich auch die achsenbeschriftungen?

mkinzler · Verfasst: Di 03.10.06 15:41

Vielleicht Beschriften nach dem Füllen.

_________________
Markus Kinzler.

Bull80 · Beiträge: 23 mal dies, mal das

vielen dank für deine hilfe, hast mich ein ganzes stück weiter gebracht.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme