[Ray Konopka]

Hi Olivier,

What properties have you changed in the TRzGroupBox? I created a test project and set the Color property to clSkyBlue and the VisualStyle to vsClassic, and when I ran the project, the group box appeared blue at runtime.

Can you duplicate the problem in a test app? If so, please send the source code (no executables) to our support email and I’ll take a look.

Ray

[Ray Konopka]

Hi,

I suspect that you are using the same logger instance when calling the TraceMethod method as well as the other Send() calls within the method. The TraceMethod call will result in the same logger to be used when the method exits to send the ExitMethod message. Therefore, if the category of the logger changes inside the method, then that category will be used when sending the ExitMethod message. You would get the same behavior if you called EnterMethod() instead of TraceMethod at the beginning of the method, and ExitMethod() at the end.

However, if you use a separate logger instance, then the categories are maintained. For example,

procedure TForm30.FormCreate(Sender: TObject);
begin
  CodeSite.Category := 'CodeSite';
  csTracer := TCodeSiteLogger.Create( Self );
  csTracer.Category := 'Tracer';
end;

procedure TForm30.Button1Click(Sender: TObject);
begin
  csTracer.TraceMethod( 'Button1Click' );
  CodeSite.Send( 'Height', Height );
  CodeSite.Send( 'Main Form', Self );
end;

The csTracer is defined as a private field in the form declaration. When you click the button, the EnterMethod and ExitMessage messages in the Viewer will be associated with the “Tracer” category, while the Height and Main Form messages will be associated with “CodeSite”.

Ray

[Ray Konopka]

Thanks for the report. We’ll look into adding that for the next release.

Ray

[Ray Konopka]

Hi Patrick,

This is kind of a hack, but it may be good enough for your needs.

Ray

type
  TRzPageControlAccess = class( TRzPageControl )
  end;

procedure TForm27.FormCreate(Sender: TObject);
begin
  Application.OnShowHint := ShowHintHandler;
end;

procedure TForm27.ShowHintHandler( var HintStr: string; var CanShow: Boolean;
                                   var HintInfo: Vcl.Controls.THintInfo);
var
  P: TPoint;
  Idx: Integer;
  TabDataList: TRzTabDataList;
begin
  P := HintInfo.CursorPos;
  Idx := RzPageControl1.TabAtPos( P.X, P.Y );
  if Idx <> -1 then
  begin
    TabDataList := TRzPageControlAccess( RzPageControl1 ).GetTabDataList;
    if P.X < TabDataList.Items[ Idx ].RawRect.Left + 20 then
    begin
      HintStr := 'Tab Image ' + Idx.ToString;
    end
    else
    begin
      HintStr := 'Regular Tab ' + Idx.ToString + ' Hint';
    end;
  end;
end;

[Ray Konopka]

Hi Alvaro,

KSVC is deployed via the GetIt Package Manager for 10.4. I’m not aware of any way to manually install KSVC.

Ray

[Ray Konopka]

Hi Hans,
Glad you are seeing the benefits of the new version! Thanks for sharing
Ray

[Ray Konopka]

Hi,

The control reference was added to several RzCommon methods in 6.5 in order to support VCL Style changes. Generally, you can simply pass “Self” as the parameter. For example, for the CustomFramingFrame.pas unit for the RCDemo:

if UsingSystemStyle then

becomes

if UsingSystemStyle( Self ) then

The same situation occurs in the TabsFrame.pas unit as well.

The MainForm.pas unit has a similar change but with the GetGradientPanelFrameColor method:

C := GetGradientPanelFrameColor( FCurrentGCS )

becomes

C := GetGradientPanelFrameColor( Self, FCurrentGCS )

Ray

[Ray Konopka]

Thanks for the clarification. I hope you are able to get this resolved.

Ray

[Ray Konopka]

Hi Robert,

Unfortunately, I was not involved in the changes that Embarcadero made for version 7, so I’m not sure what specific changes they made that would result in this. I do know that the focus of 7 was to provide better High DPI support. Perhaps they are using the WIC Imaging class to that end.

I would highly recommend that you report this issue to Embarcadero. I would call your Embarcadero Support contact as well as log the issue in Quality Portal. Be sure to add the KSVC: prefix to the description.

Sorry, I could not be more helpful.

Ray

[Ray Konopka]

Hi Rael,

Have you tried engaging Embarcadero on this issue as it appears to be related to GetIt? They should be able to resolve this issue, or at least provide a work-around.

Ray

[Ray Konopka]

This has always been a philosophical debate between Borland/CodeGear/Embarcadero and 3rd-Party Vendors. Delphi has always been developed using the “moving forward” only approach. Once a new version of Delphi is released, older versions stop receiving updates.

Technically, 3rd-Party vendors do the exact same thing. For example, once CodeSite 5 was released, we stopped updating CodeSite 4.

However, the difference is that 3rd-Party vendors support multiple versions of Delphi, and because of that, 3rd-Party vendors design their code to reflect that. With KSVC, the library is maintained by Embarcadero and they consider the library an extension of their current code base.

Ray

[Ray Konopka]

Hi Richard,

I apologize for the delay. I’m trying to determine the best way to handle your request.

Ray

[Ray Konopka]

Hi Wesley,

I dug into this a little more and the problem is indeed with the GetIt installation that Embarcadero created for Delphi 11. The point is that Embarcadero is aware of the issue and are working on releasing a new GetIt package that fixes the problem.

In the meantime, you can apparently workaround the issue by doing the following:

>>>
A temp fix is to:

add $(BDSCatalogRepositoryAllUsers)\KonopkaControls-280-7.0\Source
before $(BDSCatalogRepositoryAllUsers)\KonopkaControls-280-7.0\Lib\RX11\Win32 and
$(BDSCatalogRepositoryAllUsers)\KonopkaControls-280-7.0\Lib\RX11\Win64
Build your project
<< Ray

[Ray Konopka]

Hi Wesley,

This type of error suggests that the Library Search Path in Delphi 11 is referencing a directory that contains the Delphi 10.4.x version of the component units. I would first check your Library Search Path in Delphi 11 and make sure that the directory containing the 10.4 Lib directory does not exist.

I would also strongly recommend that you contact Embarcadero about this. It sure sounds like they may have messed up the GetIt Package for KSVC for Delphi 11. That, or they somehow combined the two and are not distinguishing between 10.4 and 11.

Ray

[Ray Konopka]

Hi Marc,
Embarcadero has stated that in order to provide HiRes support, it needed to make some changes that would prevent it from being used in earlier versions of Delphi. When the components were owned by Raize Software, I would ensure that backward compatibility be maintained by using conditional compilation. Unfortunately, that is something that Embarcadero (and before that CodeGear and Borland) have never done. They have only focused on moving forward.

Unfortunately, I have not had time to review the specific changes that Embarcadero made for supporting HiRes, so I’m not even sure if it would be possible to conditionally wrap the modifications.

Ray

[Author]

Posts