| Autor |
Beitrag |
thepaine91
 
Beiträge: 763
Erhaltene Danke: 27
Win XP, Windows 7, (Linux)
D6, D2010, C#, PHP, Java(Android), HTML/Js
|
Verfasst: Do 26.03.09 15:02
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
Beiträge: 19313
Erhaltene Danke: 1747
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: 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.
Beiträge: 1876
Erhaltene Danke: 129
Win 8.1, Xubuntu 15.10
|
Verfasst: Do 26.03.09 15:17
Ich glaub er will darauf hinaus, dass der Quelltext auch ohne Deklaration des Punkte-Arrays funktioniert. 
|
|
Aya
Beiträge: 1964
Erhaltene Danke: 15
MacOSX 10.6.7
Xcode / C++
|
Verfasst: 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); | _________________ Aya
I aim for my endless dreams and I know they will come true!
Zuletzt bearbeitet von Aya am Do 26.03.09 15:18, insgesamt 2-mal bearbeitet
|
|
Dude566
Beiträge: 1592
Erhaltene Danke: 79
W8, W7 (Chrome, FF, IE)
Delphi XE2 Pro, Eclipse Juno, VS2012
|
Verfasst: Do 26.03.09 15:18
Was glaubste wie oft hier Quelltext kopiert wird, aber wo ist das Problem?
_________________ Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.
|
|
Marc.
Beiträge: 1876
Erhaltene Danke: 129
Win 8.1, Xubuntu 15.10
|
Verfasst: 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. 
€: Es geht übrigens um diesen Thread: ...ein Form beliebig "verformen"?
|
|
thepaine91 
Beiträge: 763
Erhaltene Danke: 27
Win XP, Windows 7, (Linux)
D6, D2010, C#, PHP, Java(Android), HTML/Js
|
Verfasst: 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. ^^
|
|
|
