Jednoduché tvary v Delphi – Delphi – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Jednoduché tvary v Delphi – Delphi – Fórum – Programujte.comJednoduché tvary v Delphi – Delphi – Fórum – Programujte.com

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
14. 3. 2010   #1
-
0
-

Dobrý den, nevím si rady s krekslením obdélníka, elipsy atd...samozřejmě znám komponentu TShape, ale ta je mi k ničemu. Potřeboval bych, aby když v ComboBoxu vyberu např. možnost "elipsa", aby se mi tažením myši kreslila libovolně velká elipsa, dokud myš nepustím, snad víte co myslím. Předem díky za odpověď

Nahlásit jako SPAM
IP: 89.176.54.–
Reklama
Reklama
Honzc0
Stálý člen
15. 3. 2010   #2
-
0
-

Tady to kreslí obdélníky nebo elipsy:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin, ComCtrls;

type
TForm1 = class(TForm)
SpinEdit1: TSpinEdit; //tloušťka čáry (1 až 5 pixelů)
Label1: TLabel; //Nadpis 'Tloušťka čáry'
ComboBox1: TComboBox; //barva čáry (položky(Items) černá,červená,modrá,zelená,
//žlutá,fialová,světle modrá)
//ItemIndex dát 0
Label2: TLabel; //Nadpis 'Barva čáry'
StatusBar1: TStatusBar;
Label3: TLabel; //Nadpis 'Objekt'
ComboBox2: TComboBox; //objekt (položky(Items) obdélník, elipsa)
//ItemIndex dát 0
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
PocX,PocY,KonX,KonY: Integer;
Hranice: Boolean;
Barva: TColor;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
PocX := X;
KonX := X;
PocY := Y;
KonY := Y;
Hranice := True;
case ComboBox1.ItemIndex of
0: Barva := clBlack;
1: Barva := clRed;
2: Barva := clBlue;
3: Barva := clLime;
4: Barva := clYellow;
5: Barva := clFuchsia;
6: Barva := clAqua;
end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Hranice then
begin
Canvas.Pen.Mode := pmNot;
Canvas.Pen.Width := SpinEdit1.Value;
Canvas.Pen.Style := psDash;
Canvas.Brush.Style := bsClear;
case ComboBox2.ItemIndex of
0: Canvas.Rectangle(PocX, PocY, KonX, KonY);
1: Canvas.Ellipse(PocX, PocY, KonX, KonY);
end;
KonX := X;
KonY := Y;
case ComboBox2.ItemIndex of
0: Canvas.Rectangle(PocX, PocY, KonX, KonY);
1: Canvas.Ellipse(PocX, PocY, KonX, KonY);
end;
StatusBar1.Panels[0].Text := ' délka = '+IntToStr(abs(X-PocX));
StatusBar1.Panels[1].Text := ' výška = '+IntToStr(abs(Y-PocY));
end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Hranice then
begin
Hranice := False;
Canvas.Pen.Color := Barva;
Canvas.Pen.Style := psSolid;
Canvas.Pen.Mode := pmCopy;
Canvas.Brush.Style := bsClear;
case ComboBox2.ItemIndex of
0: Canvas.Rectangle(PocX, PocY, KonX, KonY);
1: Canvas.Ellipse(PocX, PocY, KonX, KonY);
end;
end;
end;

end.

Nahlásit jako SPAM
IP: 85.207.57.–
16. 3. 2010   #3
-
0
-

Díky moc, funguje to, objekt to nakreslí, ale v okamžiku kliknutí na formulář to hodí error: List index out of bounds (0), a dál se nedostanu. Kde dělám chybu?Díky

Nahlásit jako SPAM
IP: 89.176.54.–
Honzc0
Stálý člen
17. 3. 2010   #4
-
0
-

To maniak123
A máš v Object Inspectoru u komponenty SpinEdit1 nastaveno:
MaxValue na 5
MinValue na 1
Value na 1

a v těch ComboBoxech to co je vždy uvedeno za //....?

Nahlásit jako SPAM
IP: 85.207.57.–
17. 3. 2010   #5
-
0
-

mám, všechno jsem nastavoval:-(

Nahlásit jako SPAM
IP: 89.176.54.–
19. 3. 2010   #6
-
0
-

nikdo nic?:-(

Nahlásit jako SPAM
IP: 89.176.54.–
liborb
~ Redaktor
+18
Guru
20. 3. 2010   #7
-
0
-

Tak sem dej svůj kód a uvidíme.

Nahlásit jako SPAM
IP: 195.189.142.–
21. 3. 2010   #8
-
0
-

je to ten kód výše...

Nahlásit jako SPAM
IP: 89.176.54.–
Honzc0
Stálý člen
22. 3. 2010   #9
-
0
-

Nemáš ve StatusBaru 2 sloupečky (ale pouze 1)
Tedy přidej - viz. níže

procedure TForm1.FormCreate(Sender: TObject);
begin
StatusBar1.Panels.Add;
StatusBar1.Panels[0].Width := 100;
end;

Nahlásit jako SPAM
IP: 85.207.57.–
22. 3. 2010   #10
-
0
-

No vidíš, to mě nenapadlo, ale hází to pořád to samé, ale změnilo se číslo v závorce z 0 na 1, tzn. na "List index out of bounds (1)"

EDIT: Problém vyřešen, panel jsem přidal ručně (pravým tl. na statusbaru na formuláři), nicméně odhalil jsi chybu a za to děkuju moc:-)

Stejně tak díky autorovi kódu, je to moje dlouhodobá maturitní práce, díky vám oběma, pomohli jste mi

EDIT2: P.S.: Kdyby jste se chtěli mrknout na můj druhý problém, tak se to vlákno jmenuje Barevné složky, díky:-)

Nahlásit jako SPAM
IP: 89.176.54.–
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, 16 hostů

Podobná vlákna

Geometrické tvary v C# — založil Mara

Jednoduché pole — založil Fantomas

Jednoduche pocty — založil Hlavinka

 

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