…
AndMask:=TBitmap.Create;
with AndMask do begin
Monochrome:=true;
Width:=IconWidth;
Height:=IconHeight;
with Canvas do begin
Brush.Color:=clWhite;
FillRect(Rect(0, 0, IconWidth, IconHeight));
Brush.Style:=bsClear;
with Font do begin
Name:='Times';
Size:=16;
Style:=[fsBold];
end;
TextOut(2, 4, 'AS');
TextOut(4, 6, 'AS');
end;
end;
…
…
XorMask:=TBitmap.Create;
with XorMask do begin
Width:=IconWidth;
Height:=IconHeight;
with Canvas do begin
Brush.Color:=clBlack;
FillRect(Rect(0, 0, IconWidth, IconHeight));
Brush.Style:=bsClear;
with Font do begin
Name:='Times';
Size:=16;
Style:=[fsBold];
Color:=clBlue;
end;
TextOut(4, 6, 'AS');
Font.Color:=clAqua;
TextOut(2, 4, 'AS');
end;
end;
…
…
IconInfo.fIcon:=true;
IconInfo.xHotspot:=0;
IconInfo.yHotspot:=0;
IconInfo.hbmMask:=AndMask.Handle;
IconInfo.hbmColor:=XorMask.Handle;
…
…
Icon:=TIcon.Create;
Icon.Handle:=CreateIconIndirect(IconInfo);
...
…
Application.Icon:=Icon;
InvalidateRect(Application.Handle, nil, true);
…