Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#4

Re: Wie TIcon gestretcht in ein TBitmap zeichnen?

  Alt 5. Mai 2010, 09:30
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 (MSDN-Library durchsuchenHICON) 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;
  ...
$2B or not $2B
  Mit Zitat antworten Zitat