Thema: Delphi Mit Skins arbeiten

Einzelnen Beitrag anzeigen

Kinimod8

Registriert seit: 9. Jan 2004
Ort: Barsbüttel
317 Beiträge
 
Delphi 6 Personal
 
#10

Re: Mit Skins arbeiten

  Alt 3. Feb 2004, 20:07
Okay, meine Frage war einfach schlecht formuliert...

Ich meinte ich habe ein Bitmap das beinhaltet einen gelben Stern.

So, und jetzt gibt es weiße Stellen im Bitmap, und die sollen dann Transparent angezeigt werden.

P.S.: Für die, die nach einer Form-Ausgabe im Sternformat suchen:

Delphi-Quellcode:
const
  RgnPoints : array[1..10] of TPoint =
((X:203;Y:22), (X:157;Y:168), (X:3;Y:168),
(X:128;Y:257), (X:81;Y:402), (X:203;Y:334),
(X:325;Y:422), (X:278;Y:257), (X:402;Y:168),
(X:249;Y:168));

procedure TForm1.FormCreate(Sender: TObject);
var
  Rgn : HRGN;
begin
  Rgn := CreatePolygonRgn(RgnPoints, High(RgnPoints), ALTERNATE);
  SetWindowRgn(Handle, Rgn, True);
end;
Dominik Peters
  Mit Zitat antworten Zitat