Créer un icone à partir d'un texte

Commenter

Contenu du snippet 

Function CreateIconFromBitmap(Bitmap: TBitmap; TransparentColor: TColor): TIcon;
begin 
  with TImageList.CreateSize(Bitmap.Width, Bitmap.Height) do 
  begin 
    try 
      AllocBy := 1; 
      AddMasked(Bitmap, TransparentColor);
      Result := TIcon.Create; 
      try 
        GetIcon(0, Result); 
      except 
        Result.Free; 
        raise; 
      end; 
    finally 
      Free; 
    end; 
  end; 
end;

Function CreateStrIcon(s : String): TIcon;
Var TmpBmp : TBitmap;
    aRect : TRect;
Begin
  TmpBmp := TBitmap.Create;
   With TmpBmp do
  Try
    PixelFormat := pf8bit;
    Width := 16;
    Height := 16;
    aRect := Rect(0,0,Width,Height);
    Canvas.Brush.Color := clFuchsia;
    Canvas.FillRect(aRect);
    Canvas.Font.Name := 'Comic sans MS';
    Canvas.Font.Size := 8;
    Canvas.Font.Style := [fsBold];
    Canvas.Font.Color := clRed;
    DrawText(Canvas.Handle, PChar(S), -1, aRect, DT_CENTER or DT_WordBreak);
    Result := CreateIconFromBitmap(TmpBmp, clFuchsia);
  Finally
  TmpBmp.Free;
  End;
End;
Utilisation :
 
 Application.MainForm.Icon :=  CreateStrIcon('Cr');

Compatibilité : Delphi 5

Disponible dans d'autres langages :

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (MorpionMx)