Form sieht nach Programmstart anders aus

[-=cats=-]

Hi :-)

Jetzt hab ich ein Problem gelöst und dadurch ein
neues bekommen :-D

Also, ich zeichne mir eine Form als Polygon.
Klappt alles wunderbar.
Das ganze mache ich im onCreate. Die Punkte
speichere ich in einem Array.

Jetzt habe ich der Form gesagt, sie soll schwarz
sein. Aber noch im Design-Modus (heißt das so ?).
Wenn ich das Programm jetzt starte, ist sie allerdings
nicht schwarz, sondern in der grauen Voreinstellung.
Meine Buttons werden auch nicht angezeigt.

Hat jemand eine Idee, woran das liegen könnte ?
Bin sehr ratlos ... :gruebel:

Gruß,
-=cats=-

:coder:

[gmc616]

Nutzt du die XP-Styles (XPMan) ??
Wenn ja, dann könnte es was mit der Transparents zu tun haben.

Delphi-Quellcode:

ParentBackgroud := false;

Nur ne Vermutung.

[SirThornberry]

Wie erzeugst du das Form? hättest du bischen Quelltext?

[-=cats=-]

Hier ist mal mein gesamter Quellcode :-)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var HR : HRgn;
 n : array [0..27] of TPoint;
begin
  n[0] := Point(Width div 2, Height -20); // P1
  n[1] := Point(Width div 2 + 40, Height - 24); // P2
  n[2] := Point(Width div 2 + 40, Height - 44); // P3
  n[3] := Point(Width div 2 + 80, Height - 48); // P4
  n[4] := Point(Width div 2 + 80, Height - 68); // P5
  n[5] := Point(Width div 2 + 40, Height - 72); // P6
  n[6] := Point(Width div 2 + 40, Height - 92); // P7
  n[7] := Point(Width div 2 + 80, Height - 96); // P8
  n[8] := Point(Width div 2 + 80, Height - 116); // P9
  n[9] := Point(Width div 2 + 40, Height - 120); // P10
  n[10] := Point(Width div 2 + 40, Height - 140); // P11
  n[11] := Point(Width div 2 + 80, Height - 144); // P12
  n[12] := Point(Width div 2 + 80, Height - 164); // P13
  n[13] := Point(Width div 2 + 40, Height - 168); // P14
  n[14] := Point(Width div 2, Height - 164); // P15
  n[15] := Point(Width div 2 - 40, Height - 168); // P16
  n[16] := Point(Width div 2 - 80, Height - 164); // P17
  n[17] := Point(Width div 2 - 80, Height - 144); // P18
  n[18] := Point(Width div 2 - 40, Height - 140); // P19
  n[19] := Point(Width div 2 - 40, Height - 120); // P20
  n[20] := Point(Width div 2 - 80, Height - 116); // P21
  n[21] := Point(Width div 2 - 80, Height - 96); // P22
  n[22] := Point(Width div 2 - 40, Height - 92); // P23
  n[23] := Point(Width div 2 - 40, Height - 72); // P24
  n[24] := Point(Width div 2 - 80, Height - 68); // P25
  n[25] := Point(Width div 2 - 80, Height - 48); // P26
  n[26] := Point(Width div 2 - 40, Height - 44); // P27
  n[27] := Point(Width div 2 - 40, Height - 24); // P28

  HR := CreatePolygonRgn(n, 28, ALTERNATE);
  SetWindowRgn(Handle, HR, true);
end;

XPStyles nehme ich soweit ich weiß nicht ...

[gmc616]

Der Code funktioniert bei mir korrekt. Sogar mit XP-Styles. :-D

Das Problem muß wohl wo anders liegen.

[-=cats=-]

Echt ?
Hmm ... so ein Mist :-(
Du hast nicht zufällig eine Idee, was das sein könnte ... ?

[EDatabaseError]

Also bei mir funkts auch einwandfrei :? :gruebel:

[-=cats=-]

Spinne ich jetzt ... :gruebel:

Das kann ja nicht sein :-(

Hab mal nen Screenshot angehängt.
Eigentlich sollte die Form schwarz sein !!!

[EDatabaseError]

lad bitte mal das form und die unit hoch...

mfg

[-=cats=-]

Hier ist mal mein ganzer Ordner :-)
Habe nen LMDShapeButton auf der Form.
Nur falls Du kein LMD hast ...

Habe es jetzt nochmal mit einem anderen Formular
gemacht und dann ging es ... komisch ...