Anonymní profil brambooor – Programujte.com

Dobrý den, mám problém s tiskem z komponenty IMAGE... potřebuju vytisknout obrázek a nevím jak to udělat, poradíte mi ? děkuji.

No, mám v tom celkem dost zmatek, jsem teprve zacatecnik.
To posunutí kurzoru je bez chyby, ale ten zbytek jsem asi špatně použil tak mi to nejde.

Hold jsem si vymyslel svoje, vypada to sice složiťe, ale funguje :D :

procedure TForm1.SpeedButton30Click(Sender: TObject);  // tl. "<-" pro vymazání posledního znaku z displeje

 var i:integer;

     VyslE:string;

begin

 VyslE:='';

 for i:=1 to Edit1.GetTextLen-1 do

  VyslE:=VyslE+Edit1.Text[i];



 Edit1.Text:=VyslE;

end;

Dobrý den,
Potřebaval bych poradit jak docílit toho abych v poli edit1.text pomocí tlačítka smazal poslední znak v poli Editu. Dále bych chtěl vědět jak přehodím kurzor v Editu z levé strany na pravou; zarovnání textu je vlevo.

Děkuji za odpověď, jestli je toto téma již založené tak se omlouvám, ale nenašel jsem ho.