Blurred Delphi Form Icon in Windows 7 Taskbar

Question

enter image description here I have an application having 2 Forms, each Form and Application have individual Icon. On Form1BitBtn1.Click Form2 is Shown-Nonmodaly and on Form1BitBtn2.Click Form1 is closed. On Form2BitBtn1.Click Form2 is Closed and Form2BitBtn2.Click Form1 is closed. It works fine. But the problem is that in Windows 7 Taskbar the Form1 Icon is Blurred and another problem is that when Form2 is shown using Form1BitBtn1.Click the application shows only Form1 Icon but not Form2 Icon. Please help me.

Here is the download link for my project file is "http://hotfile.com/dl/140219264/04ce49c/Delphi_XE2_Form_Handler.7z.html"

My code is as below :

unit KoushikHalder01;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls,
  Vcl.ComCtrls;
type
  TForm01 = class(TForm)
    BitBtn01: TBitBtn;
    BitBtn02: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure BitBtn01MouseEnter(Sender: TObject);
    procedure BitBtn02MouseEnter(Sender: TObject);
    procedure BitBtn01MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn02MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn01MouseLeave(Sender: TObject);
    procedure BitBtn02MouseLeave(Sender: TObject);
    procedure BitBtn02Click(Sender: TObject);
    procedure BitBtn01Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form01: TForm01;

implementation

{$R *.dfm}

uses KoushikHalder02;

procedure TForm01.BitBtn01Click(Sender: TObject);
begin
   Doublebuffered := True;
   Form02.Show;
   if Form01.Visible = true then Form01.BringToFront;
end;

procedure TForm01.BitBtn01MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   BitBtn01.Font.Color :=10379745;
end;

procedure TForm01.BitBtn01MouseEnter(Sender: TObject);
begin
   BitBtn01.Font.Color :=16711825;
end;

procedure TForm01.BitBtn01MouseLeave(Sender: TObject);
begin
   BitBtn01.Font.Color :=15756035;
end;

procedure TForm01.BitBtn02Click(Sender: TObject);
begin
  Form01.Close;
end;

procedure TForm01.BitBtn02MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   BitBtn02.Font.Color :=10379745;
end;

procedure TForm01.BitBtn02MouseEnter(Sender: TObject);
begin
   BitBtn02.Font.Color :=16711825;
end;

procedure TForm01.BitBtn02MouseLeave(Sender: TObject);
begin
   BitBtn02.Font.Color :=15756035;
end;

procedure TForm01.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Doublebuffered := True;
end;

procedure TForm01.FormCreate(Sender: TObject);
begin
   Doublebuffered := True;
end;

procedure TForm01.FormHide(Sender: TObject);
begin
   Doublebuffered := True;
end;

procedure TForm01.FormShow(Sender: TObject);
begin
   Doublebuffered := True;
end;

end.

Please edit your question to include a small screen capture or something to show what you're asking. "Blurred Delphi form icon in windows 7 taskbar" is very hard to understand from a vague description and some totally unrelated code you expect people to compile and run in order to even (maybe) know what you're asking. People here want to help, but you need to actually explain what you want help with in order to make it possible. :) (And the code you post only repeats a couple of things in several events; they're all DoubleBuffered := True/Font.Color := <something> done for no reason.) — Ken White
To clarify, DoubleBuffered := True can be done once in the Object Inspector (or even once in FormCreate), and is wasted effort every other time you're doing it. Changing the Font.Color is meaningless in the scope of any question you're asking here (whatever it is, it has nothing to do with font color changes). None of the code applies to any question related to the application or window icons. — Ken White
@Koushik - Is this question a duplicate of this one, despite all the code you posted? — Sertac Akyuz
@Sertac Looks very much to me as though it is. Reassuring to see that your analysis and mine are very largely in alignment. — David Heffernan
@David - Yeah, now I'm certain with the accept.. And indeed!.. — Sertac Akyuz

Wagner Wagner · Accepted Answer · 2012-06-17T17:11:57

I know how to fix this...and it's simple. Don't provide an icon for Form1.Icon.

Provide your icon information in

Project > Options > Application > Application Icon Settings > Load Icon.

Be sure to choose the best resolution for your icon.

Run the application and shazan!

Blurred Delphi Form Icon in Windows 7 Taskbar

4 Answers