Problémy s kreslením – Delphi – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Problémy s kreslením – Delphi – Fórum – Programujte.comProblémy s kreslením – Delphi – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
pepca
~ Anonymní uživatel
7 příspěvků
24. 9. 2008   #1
-
0
-

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

Nahlásit jako SPAM
IP: 212.24.154.–
Reklama
Reklama
KIIV+42
God of flame
24. 9. 2008   #2
-
0
-

na smazani obrazovky staci myslim minimalizovat... kdyz ti nevyhovujou sily linek tak si je nakresli sam.. jen to bude trochu pomalejsi...

Nahlásit jako SPAM
IP: 80.188.94.–
Program vždy dělá to co naprogramujete, ne to co chcete...
pepca
~ Anonymní uživatel
7 příspěvků
24. 9. 2008   #3
-
0
-

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.

Nahlásit jako SPAM
IP: 212.24.154.–
KIIV+42
God of flame
24. 9. 2008   #4
-
0
-

nechapu

Nahlásit jako SPAM
IP: 80.188.94.–
Program vždy dělá to co naprogramujete, ne to co chcete...
pepca
~ Anonymní uživatel
7 příspěvků
24. 9. 2008   #5
-
0
-

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 ...

Nahlásit jako SPAM
IP: 212.24.154.–
KIIV+42
God of flame
24. 9. 2008   #6
-
0
-

To pepca : tak hlavne ze si to vyresil

Nahlásit jako SPAM
IP: 80.188.94.–
Program vždy dělá to co naprogramujete, ne to co chcete...
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 10 hostů

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý