Habs nur mal kurz überflogen - müßte aber folgendermaßen funze:
Vor der Zeile
for x:=vSpalte to bSpalte do begin
müsstes du folgende Zeile einfügen
Quelltext
1:
| drawtext(canvas.handle,pchar('Hallo',length('Hallo'),r,DT_SINGLELINE or DT_VCENTER); |
Habe es nicht getestet oder so. Kann auch sein das du noch die Position angeben mußt.
Naja hoffe das hilft dir zumindest ein bischen.
Gruß Renegade
_________________
Sokrates (468 v.Chr. - 399 v.Chr.)
"Es ist keine Schande, nichts zu wissen, wohl aber, nichts lernen zu wollen."