AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

fillrect funktioniert nur mit konstanten?

Ein Thema von richard_boderich · begonnen am 30. Mai 2007 · letzter Beitrag vom 30. Mai 2007
Antwort Antwort
Benutzerbild von richard_boderich
richard_boderich

Registriert seit: 21. Jun 2004
Ort: Berlin
1.067 Beiträge
 
Delphi 7 Architect
 
#1

fillrect funktioniert nur mit konstanten?

  Alt 30. Mai 2007, 13:14
moin,

wenn ich ein recteck mit fillrect so zeichne funktioniert das.
image1.canvas.fillrect(rect(10,10,100,100); wenn ich es so mach nicht.
image1.canvas.fillrect(rect(x,10, x+10, 100); vielleicht kann mir jemand sagen warum? immer wenn ich variablen statt der konstanten nehm tritt das auf. ich habe es auch schon so versucht. dabei
steht der wert der variablen help ja eindeutigt fest. es geht aber trotzdem nicht.

Delphi-Quellcode:
help:=x+10;
image1.canvas.fillrect(rect(x,10, help, 100);
gruß richard
mfG Richard

Cimmams schrieb "das einzige was an ArmA gut ist, ist die Grafik bis 100m und der Rest ist so unreal wie unsere Demokratie."
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

Re: fillrect funktioniert nur mit konstanten?

  Alt 30. Mai 2007, 13:15
Fehlt da nicht noch eine schliessende Klammer?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von richard_boderich
richard_boderich

Registriert seit: 21. Jun 2004
Ort: Berlin
1.067 Beiträge
 
Delphi 7 Architect
 
#3

Re: fillrect funktioniert nur mit konstanten?

  Alt 30. Mai 2007, 13:26
ja haste recht aber daran liegt das nicht. ist nur ein tippfehler. hab grade nochmal den quelltext überprüft. achja und was ich noch rausgefunden habe.
wenn ich es so schreibe.

image1.canvas.fillrect(rect(10,10, help, 100)); dann zeichnet er es komischerweise, aber für help nimmt er irgendeinen wert,jedoch nicht den wert in help. z.b. wenn help den wert 15 hat, zeichnet
er immer durchgehend nach rechts über die gesamte breite des image. das kuriose ist, wenn ich debugge steht in help der korrekte wert. zeichen tut er aber trotzdem falsch. als ob er beim zeichnen irrsinnig hohe werte nimmt bzw.

gruß richard
mfG Richard

Cimmams schrieb "das einzige was an ArmA gut ist, ist die Grafik bis 100m und der Rest ist so unreal wie unsere Demokratie."
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

Re: fillrect funktioniert nur mit konstanten?

  Alt 30. Mai 2007, 13:32
Geht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c, d: Integer;
begin
  Image1.Canvas.Brush.Color := clRed;
  Image1.Canvas.Brush.Style := bsSolid;
  a := 10;
  b := 10;
  c := 25;
  d := 25;
  Image1.Canvas.FillRect(rect(a, b, c, d));
end;
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von richard_boderich
richard_boderich

Registriert seit: 21. Jun 2004
Ort: Berlin
1.067 Beiträge
 
Delphi 7 Architect
 
#5

Re: fillrect funktioniert nur mit konstanten?

  Alt 30. Mai 2007, 13:36
@ luckie

führe mal eine operation mit einer deiner variablen durch. z.B.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c, d: Integer;
begin
  Image1.Canvas.Brush.Color := clRed;
  Image1.Canvas.Brush.Style := bsSolid;
  a := 10;
  b := 10;
  c := 25;
  d := 25;
  Image1.Canvas.FillRect(rect(a, b, c-50, d));
end;
oder so

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c, d: Integer;
begin
  Image1.Canvas.Brush.Color := clRed;
  Image1.Canvas.Brush.Style := bsSolid;
  a := 10;
  b := 10;
  c := 25;
  d := c+b;
  Image1.Canvas.FillRect(rect(a, b, c, d));
end;
und teste nochmal bitte

richard
mfG Richard

Cimmams schrieb "das einzige was an ArmA gut ist, ist die Grafik bis 100m und der Rest ist so unreal wie unsere Demokratie."
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#6

Re: fillrect funktioniert nur mit konstanten?

  Alt 30. Mai 2007, 13:41
Geht:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c, d: Integer;
begin
  Image1.Canvas.Brush.Color := clRed;
  Image1.Canvas.Brush.Style := bsSolid;
  a := 10;
  b := 10;
  c := 150;
  d := 25;
  Image1.Canvas.FillRect(rect(a, b, c-100, d));
end;
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von richard_boderich
richard_boderich

Registriert seit: 21. Jun 2004
Ort: Berlin
1.067 Beiträge
 
Delphi 7 Architect
 
#7

Re: fillrect funktioniert nur mit konstanten?

  Alt 30. Mai 2007, 13:45
@luckie
welche deplhi version hast du ? hast du eine idee woran es noch liegen kann. wie gesagt in help steht der richtige wert, das hab ich mit f8 überprüft.

richard
mfG Richard

Cimmams schrieb "das einzige was an ArmA gut ist, ist die Grafik bis 100m und der Rest ist so unreal wie unsere Demokratie."
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#8

Re: fillrect funktioniert nur mit konstanten?

  Alt 30. Mai 2007, 13:57
Getestet mit Delphi 6 Professional. Im BSD2006 habe ich gerade ein Projekt auf und will das jetzt nicht schliessen.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.312 Beiträge
 
Delphi XE2 Professional
 
#9

Re: fillrect funktioniert nur mit konstanten?

  Alt 30. Mai 2007, 14:00
Hallo,

ich hab Luckies Cods, aus Neugier, mal in Delphi7 Pro getestet. Und dort funktioniert er auch!
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat
Benutzerbild von richard_boderich
richard_boderich

Registriert seit: 21. Jun 2004
Ort: Berlin
1.067 Beiträge
 
Delphi 7 Architect
 
#10

Re: fillrect funktioniert nur mit konstanten?

  Alt 30. Mai 2007, 14:00
@luckie

ja is ok. hab trotzdem vielen dank. es funktioniert jetzt komischer weise auf einmal. das dumme ist nur ich weis nicht warum. naja egal.
also nochmals dank an dich für deine unterstützung.

gruß richard

//edit auch dank an dich helmi
mfG Richard

Cimmams schrieb "das einzige was an ArmA gut ist, ist die Grafik bis 100m und der Rest ist so unreal wie unsere Demokratie."
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:00 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz