[Ray Konopka]

Hi Barry,

First of all, I want to apologize for what happened to this post and your other one on the same topic. I’m still not entirely sure how it happened, but your two posts were flagged by the forum software that our site uses and required approval before being published. Unfortunately, I missed the notification and noticed them when I was doing some site maintenance.

As for the behavior that you are reporting, that is actually coming from the lower-level TCustomGrid code and the default setting for DrawingStyle of gdsThemed. The low-level code is blending the highlight color with the color of the cell, which is resulting in the darker blue color for the shaded cells.

To work around this, you can try using a different setting for DrawingStyle, or write an event handler for the OnDrawColumnCell event. For example,

procedure TForm16.RzDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if gdSelected in State then
  begin
    RzDBGrid1.Canvas.Brush.Color := clRed;
    RzDBGrid1.Canvas.Font.Color := clWhite;
  end;
  RzDBGrid1.DefaultDrawColumnCell( Rect, DataCol, Column, State );
end;

The above code will result in the selected row always being displayed as white text on a red background.

Ray

[Ray Konopka]

Hi Ken,

I have been unable to duplicate the behavior you show in your screenshots. Are you able to duplicate the issue in a test project? It appears that you have HotTrack turned on, but you must also have the ThemeAware property turned off. What I do not know is if you are using a VCL style for the rest of the form, etc.

Ray

[Ray Konopka]

Hi,
Thanks for the post. Since Embarcadero owns the controls, I would suggest submitting a bug or enhancement request for them to fix this. Also, I’m not sure if the code you posted is complete. I’m not sure where Form is defined.

Ray

[Ray Konopka]

Hi Steve,

The TRzStatusBar uses the built-in Align functionality to manage the positions of the status panes. The panes are separate controls and their position is defined by the Align property and their relative location to the other status panes. This is essentially no different than a panel with a bunch of labels (or other controls) with their Align properties set.

With that said, in the VCL it is possible for controls to be repositioned relative to other controls that have the same Align value. Typically, this happens when controls are dynamically created, or the size of the control is changed at startup.

The easiest way to fix the order is to set the Left property of the out of order control. Suppose Pane6 appears to the left of Pane5. To move Pane6, set Pane6.Left := Pane5.Left + 1; By change the Left property, the VCL will re-align the controls and position Pane6 to the right of Pane5.

Hope this helps.
Ray

[Ray Konopka]

Hi Steve,

Unfortunately, not directly using the component. The Custom Framing properties (e.g. FrameVisible) will affect the frame of the control, but the client area is managed by Windows and it treats the csDropDownList style as special.

Now, as an alternative, you could use a custom VCL style for the combo box and get the appearance you are looking for. The new per-control VCL Styling could be very useful in this case where you could just customize the particular combo box that you are trying to color.

Ray

[Ray Konopka]

You can affect the sorting of the ShellTree used by the RzSelectFolderDialog component by do a little bit of a hack. For example,

uses
  RzShellFolderForm;

procedure TForm13.RzButton1Click(Sender: TObject);
begin
  RzSelectFolderDialog1.Execute;
end;

function CustomSortProc(Node1, Node2: TTreeNode; Data: Integer): Integer; stdcall;
begin
  Result := -AnsiStrIComp(PChar(Node1.Text), PChar(Node2.Text));
end;

procedure TForm13.RzSelectFolderDialog1FormShow(Sender: TObject);
begin
  TRzSelectFolderForm( RzSelectFolderDialog1.Form ).ShellTree.CustomSort(@CustomSortProc, 0);
end;

This example will reverse sort the nodes in the Shell Tree.

The problem is that there is no simple way to get at the information you want to sort on. That is, the date modified. That information is not tracked with each node in the Shell Tree. You may be able to do some other lookup to get the information you need, then you could modify the CustomSortProc function to sort by modified date.

Ray

[Ray Konopka]

Hi Steve,

The csSimple style is a very old style of Windows COMBOBOX. It is essentially a and edit box and a list (just like what we typically think of as a combo box), but the edit box and list box are always visible.

If you drop a TComboBox or TRzComboBox onto a form and then change the Style to csSimple you will notice that the drop arrow goes away. What is not so obvious is that you can then use the drag handles to make the control taller. When you do this, you will see the list portion of the control become visible.

BTW, the controls used in the standard Font dialog box (for font name, style, and size) are “simple” combo boxes.

Hope this helps,
Ray

[Ray Konopka]

Hi Jay,

The TRzTreeView is a descendant of the TTreeView and inherits the same properties and events. Specifically, you can do some customizations by handle the OnAdvancedCustomDrawItem event.

For example, I created a test app where I dropped a TRzTreeView on the form. I then added a FormCreate event handler, and an event handler for the tree view’s OnAdvancedCustomDrawItem event.

procedure TForm11.FormCreate(Sender: TObject);
var
  Node: TTreeNode;
begin
  Node := RzTreeView1.Items.Add( nil, 'One' );
  RzTreeView1.Items.AddChild( Node, 'AAAA' );
  RzTreeView1.Items.AddChild( Node, '1111' );

  Node := RzTreeView1.Items.Add( nil, 'Two' );
  RzTreeView1.Items.AddChild( Node, 'BBBB' );
  RzTreeView1.Items.AddChild( Node, '2222' );

  Node := RzTreeView1.Items.Add( nil, 'Three' );
  RzTreeView1.Items.AddChild( Node, 'CCCC' );
  RzTreeView1.Items.AddChild( Node, '3333' );

  RzTreeView1.FullExpand;
end;

procedure TForm11.RzTreeView1AdvancedCustomDrawItem( Sender: TCustomTreeView; Node: TTreeNode;
                                                     State: TCustomDrawState;
                                                     Stage: TCustomDrawStage;
                                                     var PaintImages, DefaultDraw: Boolean);
begin
  if Node.Text = 'AAAA' then
    RzTreeView1.Canvas.Font.Color := clRed
  else if Node.Text = 'BBBB' then
    RzTreeView1.Canvas.Font.Color := clBlue
  else
    RzTreeView1.Canvas.Font.Color := clBlack;
end;

When you run the app, you will see the AAAA and BBBB in their respective colors.
Hope this helps.

Ray

[Ray Konopka]

Hi Goran,
Embarcadero added better support for HighDPI in the controls in version 7. Yes, you will need to uninstalled 6.5.0 from RAD Studio 10.4 before installing version 7. Unfortunately, Embarcadero does not state this anywhere in GetIt and they did not create the installer to check if version 6.5 is already installed. So, if you have 6.5 installed and try to install version 7, you’ll get some odd errors about packages already being loaded. The solution is to use the GetIt Package Manager to uninstall version 6.5 first, then install 7.0.

Hope this helps.
Ray

[Ray Konopka]

Thanks!

[Ray Konopka]

Hi Mark,

You did not do anything wrong. The demo was simply not updated for the 6.5.0 and 7.0.0 releases. Fortunately, it is easy to fix. For the UsingSystemStyle error add Self as a parameter:

if UsingSystemStyle( Self ) then …

After fixing the first one, you will get a couple more. Then you will get an error with the call to GetGradientPanelFrameColor. Again, you can simply add Self as the first parameter:

C := GetGradientPanelFrameColor( Self, FCurrentGCS )

Ray

[Ray Konopka]

Niels,

CodeSite 4 did provide a way to block individual message types in the Dispatcher. There was a Blocked Messages tab (along with a Blocked Categories) in the Settings. However, we removed it from CodeSite 5 because it was hardly ever used and added more complexity to the Dispatcher.

Your request is interesting in that you are blocking the message types from the logging side. However, your example use case is a bit confusing to me. In the RELEASE case, the logger itself is disabled so blocking message types would make no difference.

Could you elaborate more on how you would like to use this functionality?

Ray

[Ray Konopka]

David,

Interesting idea. No promises, but I’ll add it to the enhancement request list.

Ray

[Ray Konopka]

Hi David,
I sincerely apologize for the delay in responding to your message. In regards to the dispatching of messages, there are multiple connections that are involved and that may be impacting your observations.

The connection is between your application code and the CodeSite Dispatcher. Communication on this connection defaults to WM_COPYDATA, but may also be TCP.

The next connection is between the CodeSite Dispatcher and the ultimate Destination (e.g. Live Viewer, Log File, Remote CodeSite Dispatcher).

For the Live Viewer, in CodeSite 5, the Dispatcher always uses WM_COPYDATA to send messages to the Live Viewer.

To send messages to a Remote Dispatcher, the local Dispatcher will of course use TCP to send those messages.

Where it can get a little confusing is that it is possible to have your logging class send its messages directly to a remote CodeSite Dispatcher using the ConnectUsingTcp(host,port) method.

So with all of that said, when it comes to measuring performance, it is important to define what is being measured. For example, in your test above with sending 10,000 messages, are you recording the time it takes to send those messages from your application code? Or, are you measuring the time it takes for all the messages to appear in the Live Viewer.

One of the primary benefits of the Dispatcher is that the work of “dispatching” the messages is offloaded onto the Dispatcher and not your application.

Ray

[Ray Konopka]

Hi Steve,

So sorry for the long delay. I hope you were able to locate the OnGetDayFormat event, which allows you to do what you wish. For example, the following event handler colors May 4 green in honor of Grogu (Baby Yoda).

procedure TForm7.RzCalendar1GetDayFormat(Sender: TObject; DayDate: TDateTime; Year, Month, Day: Word; var DayColor,
  DayFontColor: TColor; var DayFontStyle: TFontStyles);
begin
  if ( Month = 5 ) and ( Day = 4 ) then
  begin
    DayColor := clGreen;
    DayFontColor := clWhite;
  end;
end;

Ray

[Author]

Posts