View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0005258JEDI VCL00 JVCL Componentspublic2010-06-06 21:002012-02-29 16:53
ReporterPavelZAssigned Toobones 
PrioritynormalSeveritymajorReproducibilityalways
Status resolvedResolutionfixed 
Product Version3.39 
Target VersionFixed in Version3.45 
Summary0005258: TJvBalloonHint NOT painting on Windows 7
DescriptionBalloonHint painting entirely transparent. Visible only edging.
I compile in Delphi 2007 project BalloonPrj.dproj in folder examples\JvBalloonHint\.
On Windows XP and Vist Hint painting correctly. On Windows 7 - transparent. See example in the attached picture.
TagsNo tags attached.

Relationships

has duplicate 0005542 resolvedobones [TJvBalloonHint] Problem with long hint on vista 
related to 0006307 resolvedobones TJvBalloonHint NOT painting on Windows WIN8 and DEX5 
related to 0006297 resolvedobones TJvBalloonHint NOT painting on Windows 7 / 8 

Activities

2010-06-06 21:00

 

BalloonHint.gif (12,446 bytes)
BalloonHint.gif (12,446 bytes)

obones

2010-06-07 10:35

administrator   ~0017437

Please try with the latest SVN content and report back your findings

PavelZ

2010-06-09 10:46

reporter   ~0017482

I try the latest SVN version TJvBalloonHint - NOT painting on Windows 7. :(
I use Windows 7 ultimate russian edition.

moondog

2010-07-20 15:59

reporter   ~0017537

This can be fixed by adding the following code on the createparams method:

function IsWin7: Boolean;
begin
  Result := (Win32Platform = VER_PLATFORM_WIN32_NT) and
    ((Win32MajorVersion = 6) and (Win32MinorVersion = 1));
end;

procedure TJvBalloonWindow.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  { Drop shadow in combination with custom animation may cause blurry effect,
    no solution.
  }
  with Params do
  begin
    Style := Style and not WS_BORDER;

    if IsWinXP_UP and (GetComCtlVersion >= ComCtlVersionIE6) then
    begin
      WindowClass.Style := WindowClass.Style or CS_DROPSHADOW;
      {$IFDEF JVCLThemesEnabled}
      if (not IsWin7) and (IsWinVista_UP and ThemeServices.ThemesEnabled) then
        ExStyle := ExStyle or WS_EX_LAYERED;
      {$ENDIF JVCLThemesEnabled}
    end
    else
      WindowClass.Style := WindowClass.Style and not CS_DROPSHADOW;
  end;
end;

moondog

2010-07-20 16:00

reporter   ~0017538

In unit JvBallonHint.pas

obones

2010-10-08 16:14

administrator   ~0017817

Thanks, this is now in SVN

Issue History

Date Modified Username Field Change
2010-06-06 21:00 PavelZ New Issue
2010-06-06 21:00 PavelZ File Added: BalloonHint.gif
2010-06-07 10:35 obones Note Added: 0017437
2010-06-07 10:35 obones Status new => feedback
2010-06-09 10:46 PavelZ Note Added: 0017482
2010-07-20 15:59 moondog Note Added: 0017537
2010-07-20 16:00 moondog Note Added: 0017538
2010-10-08 16:14 obones Note Added: 0017817
2010-10-08 16:14 obones Status feedback => resolved
2010-10-08 16:14 obones Fixed in Version => Daily / SVN
2010-10-08 16:14 obones Resolution open => fixed
2010-10-08 16:14 obones Assigned To => obones
2011-09-26 17:04 obones Relationship added related to 0005542
2012-02-23 10:04 obones Relationship replaced has duplicate 0005542
2012-02-29 16:53 obones Fixed in Version Daily / SVN => 3.45
2014-08-31 22:39 obones Relationship added related to 0006307
2014-08-31 22:40 obones Relationship added related to 0006297