View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0006307JEDI VCL00 JVCL Componentspublic2014-07-22 17:362014-08-31 22:40
ReporterricoleboAssigned Toobones 
PrioritynormalSeveritymajorReproducibilityalways
Status resolvedResolutionduplicate 
Product Version3.47 
Target VersionFixed in Version 
Summary0006307: TJvBalloonHint NOT painting on Windows WIN8 and DEX5
DescriptionI use Version 3.48

Just complile project BalloonPrj.dproj in folder examples\JvBalloonHint\. on DEX5 and WIN8 to see the bug


TagsNo tags attached.

Relationships

duplicate of 0006297 resolvedobones TJvBalloonHint NOT painting on Windows 7 / 8 
related to 0005258 resolvedobones TJvBalloonHint NOT painting on Windows 7 

Activities

ricolebo

2014-07-22 18:04

reporter   ~0021006

Problem saw and fixed in this topic http://issuetracker.delphi-jedi.org/view.php?id=5258

But Not fixed in 3.48 ...
May be the fix was lost

It works with this code (I added the previous fix) :

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 IsWinSeven_UP and IsWinVista_UP and StyleServices.Enabled then
      begin
        ExStyle := ExStyle or WS_EX_LAYERED;
        if FIsMultiLineMsg then
          ExStyle := ExStyle or WS_EX_COMPOSITED;
      end;
      {$ENDIF JVCLThemesEnabled}
    end
    else
      WindowClass.Style := WindowClass.Style and not CS_DROPSHADOW;
  end;
end;

obones

2014-08-31 22:40

administrator   ~0021019

Duplicate

Issue History

Date Modified Username Field Change
2014-07-22 17:36 ricolebo New Issue
2014-07-22 18:04 ricolebo Note Added: 0021006
2014-08-31 22:39 obones Relationship added related to 0005258
2014-08-31 22:39 obones Assigned To => obones
2014-08-31 22:40 obones Note Added: 0021019
2014-08-31 22:40 obones Relationship added duplicate of 0006297
2014-08-31 22:40 obones Duplicate ID 0 => 6297
2014-08-31 22:40 obones Status new => resolved
2014-08-31 22:40 obones Resolution open => duplicate