Wie TIcon gestretcht in ein TBitmap zeichnen?

[himitsu]

Ach du meine Güte, der Grund, warum das Standard-Icon einer Form nicht gezeichnet wurde und warum es beim Speichern zu einer Exception kommt, war ja "einfach".

Es gibt in Form.Icon in diesem Fall zwar eine TIcon-Instanz, aber innerhalb Dieser ist kein Icon (HICON) enthalten.

In meinem Fall konnte ich dieses Problem also nun so lösen:

Delphi-Quellcode:

procedure TInsightAction.AssignImage(Value: TGraphic);
begin
  if (Value is TIcon) and (TIcon(Value).Handle = 0) then
    Value := nil;
  ...