мигание TLabel при наведении указателя

[skalt12]

Доброго всем дня! у меня на форме несколько TLabel'ов.. реализованы как, своего рода, кнопки. При наведении указателя меняется курсор и подчеркивается соответствующий Label.. Но вот низадача, в то время как указатель наводится на один из Label'ов, прямоугольный сектор под ним на миг заливается цветом формы..
Под XP это не наблюдается, только под 7.. Делфи 2010 использую..
Как сие пофиксить? если возможно

[DIgorevich]

А можно глянуть проект? Такого глюка еще не видел...

[kakawkin]

используешь манифест под win7 ?

[skalt12]

Сообщение от DIgorevich

А можно глянуть проект? Такого глюка еще не видел...

http://rghost.ru/2407819/private/ced...85c53f7df107e7
залил.. если поводить мышью по дням недели, увидите

Сообщение от kakawkin

используешь манифест под win7 ?

нет, а надо?

[DIgorevich]

Это из-за использования скинов... надо код смотреть, как это у тебя реализовано, ведь нестандартно всё

[kakawkin]

99% да - ну попробуйте

[skalt12]

Сообщение от DIgorevich

Это из-за использования скинов... надо код смотреть, как это у тебя реализовано, ведь нестандартно всё

скинов? я на канве рисовал, вот кусок кода:

procedure TsubtableWin.FormCreate(Sender: TObject);
var settingz: TIniFIle;
     iRgn: integer;
begin
  settingz := TIniFile.Create(ExtractFilePath(paramStr(0)) + 'dweek.conf');
...  
  with SubtableWin do
    begin
      BorderStyle := bsNone;
      Width := 430;
      Height := 500;
      AlphaBlend := True;
      Color := TColor($00202020);
    end;

  with BackPicture do
    begin
      Picture.LoadFromFile(ExtractFilePath(paramStr(0)) + '/graphicZ/altWin/subjTableBG1.png');
      Left := 12;
      Top := 30;
    end;

  iRgn := CreateRoundRectRgn(0, 0, Width, Height, 15, 15);
  SetWindowRgn(Handle, iRgn, true);
...
   settingz.Free;
end;

<...>

procedure TsubtableWin.FormPaint(Sender: TObject);
begin
  canvas.Brush.Color := TColor($00404040);
  canvas.Font.Name := 'Arial';
  canvas.Font.Size := 8;
  canvas.Font.Color := clWindow;
  canvas.TextRect(Rect(0, 0, Width, 15), 20, 1, 'Расписание');

  canvas.Brush.Style := bsClear;
  canvas.Pen.Color := TColor($00848484);
  canvas.RoundRect(1, 1, Width -2, Height -2, 15, 15);
end;

[DIgorevich]

Скорее всего, каждый раз при переходе с лейбла на лейбл, вызывается Repaint формы.

[skalt12]

Сообщение от DIgorevich

Скорее всего, каждый раз при переходе с лейбла на лейбл, вызывается Repaint формы.

procedure TsubtableWin.Label1MouseEnter(Sende r: TObject);
begin
Label1.Font.Style := [fsUnderLine];
end;

procedure TsubtableWin.Label1MouseLeave(Sende r: TObject);
begin
Label1.Font.Style := [];
end;

[DIgorevich]

Тогда точно глюк Даже не знаю чем помочь...