Entwickler-Ecke
Windows API - Fragwürdiger Quelltext
thepaine91 - Do 26.03.09 15:02
Titel: Fragwürdiger Quelltext
HI mal eine Frage guckt sich keiner den Quelltext der hier steht genau an?
Bin nämlich grade auf folgendes gestoßen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TForm1.FormCreate(Sender: TObject);
var
HR: HRgn;
p:array[0..3] of TPoint;
begin
p[0]:=Point(Width div 2,1);
p[1]:=Point(1, Height div 2);
p[2]:=Point(Width div 2,Height);
p[3]:=Point(Width, Height div 2);
HR:= CreateEllipticRgn (0, 0, Width, Height);
SetWindowRgn(Handle, HR, True);
end; |
( Stellt ein Formular rund da )
Sieht mir nach copy paste aus und dann im Forum posten.
Was ist daran jetzt falsch und der stand orginal so da. (delphi-libary.de)
Moderiert von 
Narses: Topic aus Sonstiges (Delphi) verschoben am Do 26.03.2009 um 14:42
jaenicke - Do 26.03.09 15:15
Worauf willst du hinaus, der Quelltext funktioniert, also wo ist das Problem?
Und wenn du meinst der wäre kopiert, woher denn?
Marc. - Do 26.03.09 15:17
Ich glaub er will darauf hinaus, dass der Quelltext auch ohne Deklaration des Punkte-Arrays funktioniert. :roll:
Aya - Do 26.03.09 15:17
Was geht denn nicht?
Am Quelltext könnte man bemängeln das die werte die ausgerechnet werden und in P gespeichert sind garnicht benutzt werden xD
bzw, das ganze ist eigentlich ein einzeiler :)
Delphi-Quelltext
1:
| SetWindowRgn(Handle, CreateEllipticRgn(0, 0, Width, Height), True); |
Dude566 - Do 26.03.09 15:18
Was glaubste wie oft hier Quelltext kopiert wird, aber wo ist das Problem?
Marc. - Do 26.03.09 15:30
Ich denke der Quelltext sollte ursprünglich wie folgt lauten:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| var
p: Array[0..3] of TPoint;
begin
p[0] := Point(Width div 2, 1);
p[1] := Point(1, Height div 2);
p[2] := Point(Width div 2, Height);
p[3] := Point(Width, Height div 2);
SetWindowRgn(Handle, CreatePolygonRgn(p, Length(p), ALTERNATE), True);
end; |
Ergibt eine Raute. :zwinker:
€: Es geht übrigens um diesen Thread:
...ein Form beliebig "verformen"? [
http://www.delphi-library.de/viewtopic.php?t=320]
thepaine91 - Do 26.03.09 17:34
ne ne es ging einfach nur darum das ich mich gefragt habe für was er p deklariert hat.
Und ja das wird wohl stimmen aber deswegen glaube ich copy paste ^^ denn wenn er es geschrieben hätte würde er den Text nicht unter 1. Rundes Fenster Schreiben und die Variablen drinn lassen. ^^
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!