Anonymní profil pepca – Programujte.com

Tak už jsem na to vlastně díky tobě přišel, jen pro názornost:

procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.Brush.Color:=clGreen;
Canvas.Rectangle(10,10,100,100);
Canvas.Pen.Color:=clYellow;
Canvas.Pen.Width:=3;
Canvas.MoveTo(50,10);
Canvas.LineTo(50,100);
end;

Zkus co to udělá, když klikneš na button podruhý a přitom řešení je vlastně velmi jednoduchý - hned za begin dát:
Canvas.Pen.Color:=clGreen;
a je po problému. a já si stím lámal hlavu několik dní. Ach jo ...

Asi jsem to špatně napsal. Problém je v tom, že když např. v proceduře ClickButon nakreslím plný obdélník a přes něj linku jejíž sílu nastavím pomocí PenWidth, tak při prvním kliknutí je to v pořádku. Když kliknu podruhé objeví se daný obdélník orámovaný barvou linky a to nechci. A nepomůže ani když před vykreslením toho obdélníku nastavím PenWidth:=0; navíc ta linka, která tam z určitého důvodu musí být nezmizí, ale jako vlasová čára je tam pořád.

Tabulátory mně taky napadly, ani s nimi to nefunguje. Problém je v tom, že jeden výsledek může být třeba 0,1 a další 0,1253
a další zase jen 0,1. Při příštím výpočtu to může být zase jiné a stím už si asi ani tabulátory neporadí. Řešením by bylo skočit
v řádku na určenou pozici a tam zapsat, ale nevím jestli to jde a jak.

Potřebuji do několika řádků v Memu vypsat výsledky mat. operací, několik na řádek. Protože výsledky jsou různě dlouhé, vznikne při jejich oddělení pouze mezerami po několika řádcích pěkný chaos. Protože jsem začátečník, tak mé znalosti začínají a vlastně i končí u těch mezer. Víte prosím někdo jak to "učesat" např. vytvořením sloupců?

Jako grafické znázornění matem. výsledků používám kreslení různých obdélníků a linek na Image.Canvas. Vše fungovalo bez problémů, dokud jsem nepotřeboval měnit sílu linek. Použil jsem Pen.Width a problém - všechny objekty jsou ohraničeny linkou s barvou, která byla zadána pro linky. I když před vykreslením objektu nastavím Pen.Width:=0; tak tam ty linky jsou, sice vlasové, ale vypadá to dost blbě. Zkoušel jsem v Pen.Style:=Ps.Clear; ale taky nic. Jsem v programování začátečník a už jsem na netu prolezl kde, co, už fakt nevím co s tím. Nevíte prosím jak na to?
Druhý dotaz - jak jednoduše vyčistit kreslící plochu? Existuje něco jako Pascalovský ClrScr?
Díky za odpovědi

Jsem začátečník. Potřebuji v textovém souboru najít zadaný řetězec, např. tata, bez použití komponenty RichEdit
Dík