Benytte skins i applikationer

Hvis du skal klippe i din form, så lavede jeg en gang det her:

procedure TForm1.FormCreate(Sender: TObject);
var
  RGN: array of TPoint;
  sl: TStringList;
  S: String;
  I: Integer;
begin
  S := ExtractFilePath(Application.ExeName) + 'rgn.txt';
  if not FileExists(S) then Exit;
  sl := TStringList.Create;
  sl.LoadFromFile(S);
  SetLength(RGN, sl.Count);
  for I := 0 to sl.Count-1 do
  begin
    S := sl.Strings[I];
    RGN[I].x := StrToInt(Copy(S, 0, Pos(',', S)-1));
    RGN[I].y := StrToInt(Copy(S, Pos(',', S)+1, Length(S)));
  end;
  SetWindowRgn(Handle, CreatePolygonRgn(Pointer(RGN)^, High(RGN)+1, ALTERNATE), True);
  sl.Free;
end;

Den kræver bare en rgn.txt-fil der ligger sammen med exe-filen og har opbygningen:

0,0
23,54
54,86

osv...

Hver linie angiver et punkt på formen som der klippes til... Så er det ellers bare at klippe som du vil...
At lave et "klippe-program" til at generere en rgn-fil, er heller verdens sværeste opgave! ;)

//hermandsen

Kan man godt selv om man ikke er frisør ?

Jens B

Problemet er jo at jeg ikke vil at en bruger skal sidde og klippe det ud manuelt, men at det skal bestemmes ud fra en farve helst. Desuden skal delvis "Transparency" kunne bestemmes også, hvis muligt.

Din funktion er god hvis skins kun skulle laves af en selv, men jeg vil helst ikke udsætte en bruger for at skulle gøre dette.

>>jens
Njaaaa... Det er jo derfor vi skal ha' et klippe program til det! ;)

>>angelod
Hvis du kigger på skinning-teknikken i Winamp 2.x, så vil du se at de heller ikke benytter transparency-farve-tingen, men i stedet giver mulighed for at bruge rgn-fil-teknikken (deres er lavet på en anden måde)...

Jeg har set din metode i andre programmer, men skal ikke kunne siges hvordan det gøres...

En anden ide var måske at lave en app til skinning som så tjekker for farven RGB(255, 0, 255); (eller hvad du nu vil), og så laver rgn-filen ud fra det... Så kunne du eventuelt gøre det pr pixel-linie i programmet, og så smække nogle firkanter rundt om dem...

Eller bare lade brugeren klippe programmet ud manuelt ved at sætte en masse punkter efter hinanden på et billede, men det er op til dig, sådan et program er jo ikke verdens sværeste at lave! ;)

//hermandsen

Godt så.. Hermandsen, du gav ikke et endegyldigt svar som jeg kunne bruge fuldt ud, men du gav mig tilstrækkeligt med ideer til at kunne lokalisere noget selv, så for det får du 50 point.

Løsningerne fandt jeg her:

En udførlig tutorial i brugen af regions og Windows skinning, skrevet til C/C++, men er rimeligt nem at overføre til Delphi:
http://www.flipcode.com/articles/article_win32skins.shtml

Samt en fil som beskriver det hele på en anelse mere besværlig måde, men stadigvæk forståeligt:
(PDF version)
http://www.blichmann.de/downloads/translucency_tutorial.pdf
(HTML version download, samt eksempler)
http://www.blichmann.de/downloads/index.htm

NOTE! Der er en reference til Graphics32 i translucency_tutorial, samt et link til Graphics32 version 1.0, men den er siden blevet til version 1.4 og kan findes her:
http://www.blichmann.de/downloads/translucency_tutorial.pdf

Bare i orden! Er glad for at du kunne bruge det! ;)

Hov! Opdagede da lige at jeg lavede en fejl.. Graphics32 kan hentes på http://www.g32.org/graphics32/ og ikke blichmann.de
:o)