title image


Smiley kleines beispiel noch...


procedure TForm1.Button1Click(Sender: TObject);

var s:string;

var rec:Trect;

begin

rec:=rect(0,0,Image1.width,image1.height);

s:='Das ist ein String, der mit der Api-Routine "DrawText" ausgegeben wird. Wortumbruch integriert!';

drawtext(image1.canvas.handle,pchar(s),length(s),rec,dt_left or dt_wordbreak);

end;





//
// C wurde erfunden, damit die baeume der programmierer
// nicht in den himmel wachsen.
//
// frager


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: