I have a code like this to assign icon to menuitem
first place a menu with a menuitem named "menuitem1"
Unit Unit1;
{$mode objfpc}{$H+}
Interface
Uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus;
Type
{ TForm1 }
TForm1 = Class(TForm)
MainMenu1: TMainMenu;
MenuItem1: TMenuItem;
micon:tbitmap;
Procedure FormCreate(Sender: TObject);
Procedure FormPaint(Sender: TObject);
Private
{ private declarations }
Public
{ public declarations }
End;
Var
Form1: TForm1;
Implementation
{$R *.lfm}
{ TForm1 }
Procedure TForm1.FormCreate(Sender: TObject);
Begin
micon:=tbitmap.Create;
micon.Width:=22;micon.Height:=16;
micon.TransparentColor:=clblack;
micon.canvas.Brush.Color:=clyellow;
micon.Canvas.Ellipse(1,1,21,16);
menuitem1.Bitmap:=micon;
end;
Procedure TForm1.FormPaint(Sender: TObject);
Begin
canvas.Draw(50,50,micon);
end;
End.
I want the icon to be transparent at the black color but this code didn't work.
Many thanks to anyone can show me how to do it!