Forms - auf der Captionbar zeichnen

Little.Dave

Hey Leute!
Kennt jemand die neue Version von BearShare (V 4.0)???
Da ist im Hauptfenster oben links, neben dem Icon eine Grafik anstatt der normalen Text-Caption. Nur mal so Interessehalber: hat jemand ne Idee, wie man sowas machen könnte???

MfG
LD

[ Dieser Beitrag wurde am 10.08.2002 um 09:03 Uhr von Jansen editiert. ]

F98

void __fastcall TForm1::FormResize(TObject *Sender)
{
     TCanvas * FCanvas = new TCanvas();
     if (FCanvas)
     {
        FCanvas->Handle = GetWindowDC(Handle); //Fensterhandle
        Graphics::TBitmap *BrushBmp = new Graphics::TBitmap;
        BrushBmp->LoadFromFile(".\\Bild.bmp"); //im akt. Verzeichnis
        FCanvas->Brush->Bitmap = BrushBmp;
        FCanvas->FillRect(Rect(0,0,16,16)); //Kachel 16x16 malen
        delete BrushBmp;
        delete FCanvas;
     }
}

Little.Dave

WOW! Das ging ja schnell! Dachte nicht, dass das so einfach ist! Geht das eigentlich auch mit Gifs? Also mit transparenter Farbe und so?

MfG
LD