[Ray Konopka]

Hi Uwe,

Thanks for the report. I’ve been working on High DPI support for all the CodeSite Tools apps–I’ll be sure to include the Method Tracer as well.

Ray

[Ray Konopka]

Hi Chris,

I just created a 64-bit Windows test project in Delphi 11 with the TRzDBGrid from KSVC 7 and it compiled and ran just fine. As noted in my earlier responses, this would suggest either a problem with your Library Search Path or the original installation of KSVC that Embarcadero released for Delphi 11. I would suggest uninstalling KSVC 11 and then re-install it.

Ray

[Ray Konopka]

Hi,

The rotation of the font does require a True Type font to be selected. If a non-true type font is selected, then the font is automatically changed to Verdana. Other than that, the rendering of the font is handled by the Windows API.

Ray

[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

[Author]

Posts