Desktop pod formą

0

Cześć! Mam problemik. Piszę sobie programika (cały prawieże program zrobiłem w 15 min, ale teraz trza go uładnić :P) i napotkałem problem. Otóż, czy możliwe jest ("dla chcącego nic trudnego..." :) ), a jeżeli tak to jak pobrać wygląd ekranu spod jakegoś okna?? Przykładowo, chciałbym zrobić przezroczyste okno (coś jak AlphaBlend) dla ort! Win98 (przy tym trza korzystać z pobierania wyglądu ekranu spod okna :P ). Z góry dziękuję za podpowiedzi, pozdrawiam KiteK.

PS. proszę się nie śmiać :P

0

Kiedyś znalazłem (chyba na Torry.net) kod do robienia przezroczystego okna:

procedure TForm1.FormCreate(Sender: TObject);
var AControl :TControl;
    A, Margin, X, Y, CtlX, CtlY :Integer;
    Rgn,FullRgn:HRGN;
begin
  Margin := ( Width - ClientWidth ) div 2;
  X := Margin;
  Y := Height - ClientHeight - Margin;
  FullRgn := CreateRectRgn(0, 0, Width, Height);
  Rgn := CreateRectRgn( X, Y, X + ClientWidth, Y + ClientHeight );
  CombineRgn( FullRgn, FullRgn, Rgn, RGN_DIFF );
  DeleteObject(Rgn);
  for A := 0 to ControlCount - 1 do begin
    AControl := Controls[A];
    if ( AControl is TWinControl ) or ( AControl is TGraphicControl )
        then with AControl do begin
      if Visible then begin
        CtlX := X + Left;
        CtlY := Y + Top;
        Rgn := CreateRectRgn( CtlX, CtlY, CtlX + Width, CtlY +
Height );
        CombineRgn( FullRgn, FullRgn, Rgn, RGN_OR );
        DeleteObject(Rgn);
      end;
    end;
  end;
  SetWindowRgn(Handle, FullRgn, TRUE);
  // brakuje jeszcze "DeleteObject(FullRgn)", ale można to
  // zrobić dopiero w momencie zamykania programu
end;
0

Cześć! Dzięki, ale nie zabardzo mi o to chodziło. W programie są wykorzystywane regiony, program jest prześwitujący, forma w niektórych miejscach nie istnieje, a o to mi nie chodziło. Przykładowo, chcę zrobić okno, które będzie miało na sobie narysowane zciemnionym o 40% kolorem, pulpit spod formy (coś takiego można zrobić, ale efekt nie będzie najlepszy. Przy tworzeniu formy zapisać do jakiejś zmiennej TBitmap pulpit, a potem, przy przemieszczaniu formy (WM_WINDOWPOSCHANGING) przerysować ją odpowiednim kawałkiem tego rysunku :P ). I tutaj moje pytanko, czy są jaieś procki/funkcje obierające pixele spod okien?? Jak można byłoby zrobić pobieranie desktopu spod formy, nie korzystając z chowania formy na początku jej przemieszczania, przerysowania i pokazania?? Pozdrawiam, KiteK.

Ps. mam nadzieję, że zbyt nie pomieszałem :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1