[Ray Konopka]

The vsWinXP value originally meant, use the new Windows XP Visual Styles (i.e. Themes back in the day). Any when VCL Styles were introduced, vsWinXP by the very nature of how Embarcadero (CodeGear) implemented VCL Styles, the vsWinXP also meant to use the currently active VCL Style.

Yes, it would most certainly be nice to change the enum value to something more appropriate, but that is not a simple task. Each component that has a property like that would need to have a ReadProperties override in order to “fix up” any reference to that enum that already exists in a DFM file. Although, I believe that is the default value, so maybe there are not that many references to it in actual DFM files.

Feel free to submit a request into Embarcadero’s Quality Portal to rename the enum.

Ray

[Ray Konopka]

Hi,

Ah, you are using the Community Edition. I believe Embarcadero limits what software packages are available in GetIt for the Community Edition. You would need to contact Embarcadero for confirmation.

Ray

[Ray Konopka]

Hi,

The CodeSite Express installer is only available via the GetIt Package Manager. I just started Delphi 10.4 and selected Tools > GetIt Package Manager. I then entered CodeSite into the search box and the CodeSite Express entry was displayed in the results.

Ray

[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

[Author]

Posts