1:
2:
3:
4:
5:
6:
7:

    WM_PAINT: begin
       if (IsIconic(FSkinedForm.Handle)) then begin
         PaintIconicSkinOfWindow;
         message.Result:= 0;
         useOld:= falsE;
       end;
    end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure PaintIconicSkinOfWindow;
var
    DC: HDC;
    ps: TPaintStruct;
    Canvas: TCanvas;
    r: TRect;

begin
  try
     // DC:= GetDCEx(FSkinedForm.Handle, 0, DCX_WINDOW);
      DC := BeginPaint(FSkinedForm.Handle, ps);
      //SendMessage(FSkinedForm.Handle, WM_ICONERASEBKGND, DC, 0);
      Canvas := TCanvas.Create;
      Canvas.Handle := DC;
      r.Left := 0;
      r.Top := 0;
      r.Right := 40;//GetSystemMetrics(SM_CXSIZE);
      r.Bottom := 10; //GetSystemMetrics(SM_CYSIZE);
      Canvas.Brush.Color:= clREd;
      Canvas.Brush.Style:= graphics.bsSolid;
      Canvas.FillRect(r);
  finally
      //ReleaseDC(FSkinedForm.Handle,DC);
      Canvas.Free;
      EndPaint(FSkinedForm.Handle, ps);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

  
  TWMNCPaint = packed record
    Msg: Cardinal;
    RGN: HRGN;
    Unused: Longint;
    Result: Longint;
  end;

procedure PaintIconicSkinOfWindow(var Message: TWMNCPaint);
var
  ADC,ACachedDC: HDC;
  AMemBmp: HBitmap;
  ACanvas: TCanvas;
  R: TRect;
begin
  ADC:= GetDCEx(FSkinedForm.Handle,message.RGN ,DCX_WINDOW+DCX_INTERSECTRGN);
  ACanvas:= TCanvas.Create;
  ACachedDC := CreateCompatibleDC(ADC);
  ACanvas.Handle:= ACachedDC;

  ACanvas.Draw(0,0,FFormSkinAndShape.ImageSkin.Graphic);

  DeleteDC(ACachedDC);

  ReleaseDC(FSkinedForm.Handle, ADC);
  ACanvas.Free;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TssFormSkinAndShapeController.PaintIconicSkinOfWindow;
var
  ACanvas: TCanvas;
begin
  ACanvas := TCanvas.Create;
  try
    ACanvas.Handle := GetWindowDC(FSkinedForm.Handle);

    with ACanvas do
    begin
      Brush.Color := clBlue;
      Font.Color:= clWhite;

      FillRect(Rect(0,0, FMinimizedWidth,FMinimizedHeight));

      TextOut(2, 2, 'Hallo')
    end;
     finally
    ReleaseDC(FSkinedForm.Handle, ACanvas.Handle);
    ACanvas.Free
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

    WM_NCPAINT: if (not (csDesigning in FSkinedForm.ComponentState))then begin
        if (IsIconic(FSkinedForm.Handle)) then begin
         PaintIconicSkinOfWindow;
         Message.Result:= 0;
         useOld:= false;
       end;
    end;

    WM_NCACTIVATE: if (IsIconic(FSkinedForm.Handle)) then  begin
       useOld:= false;
       Message.Result:= 1;  // ja nicht verändern sonst gibt es ein komisches Verhalten der Form?!
    end;