[Ray Konopka]

Hi Steve,

For a TRzTabSheet in a TRzPageControl, there is a TabIndex and a PageIndex. If all the tabs are visible, then the two values will be the same. However, if any of the tab sheets have their TabVisible property set to False, the TabIndex and PageIndex for a specific TRzTabSheet may indeed be different. The PageIndex always represents the “index” of the particular tab sheet in relation to the other pages in the page control. The TabIndex represents the index of the physical tab displayed that is associated with that tab sheet.

You are getting odd results because you are indexing into the Pages collection using a TabIndex instead of a PageIndex. But the OnPaintTabBackground event does not provide a PageIndex, just a TabIndex. Fortunately, there is a PageForTab method available to handle that. If you change your method to the following, you will get the behavior you are expecting:

procedure TForm14.RzPageControl1PaintTabBackground(Sender: TObject; ACanvas: TCanvas; ATabIndex: Integer;
  const ARect: TRect; var Handled: Boolean);
begin
  with (Sender As TRzPageControl).PageForTab( ATabIndex ) do
  begin
    if (tag = 0) then // if tab is set to tag = 0
      ACanvas.Brush.Color := clYELLOW // color yellow
    else // else
      ACanvas.Brush.Color := clWhite; // color white
  end;

  ACanvas.FillRect(ARect); // paint the tab
  Handled := True; // show its handled
end;

Ray

[Ray Konopka]

Hi Barry,

You can use the Position property to change the splitter bar programatically.

Ray

[Ray Konopka]

Hi Anderson,
I’m glad to hear that you are enjoying CodeSite Express.

The CodeSiteToolsSetup.txt file (included in the Tools directory along with the CS5_Tools.exe) provides details about customizing the CodeSite Tools install. Specifically, there are parameters that you can set to control which tools get installed.

By default the CodeSite Dispatcher does not run as a service. To run the Dispatcher as a service, the Dispatcher needs to be registered with Windows. Please read the “Running as a Service” topic in the CodeSite Help file for details about running the Dispatcher as a service. When the Dispatcher is run as a service, it appears in the Services list as CodeSiteDispatcher.

Ray

[Ray Konopka]

Hi Barry,

You can use the AddItemToGroup method. For example, the following code adds a couple groups and items to the list. Then in the button click event handler, a new player is added to the first group. Changing the first parameter to a 1 will add Ian to the Reserves group.

Ray

procedure TForm8.FormCreate(Sender: TObject);
begin
  RzListBox1.ShowGroups := True;
  RzListBox1.AddGroup( 'Players' );
  RzListBox1.Add( 'Anthony Rizzo' );
  RzListBox1.Add( 'Kris Bryant' );
  RzListBox1.Add( 'Javier Baez' );
  RzListBox1.AddGroup( 'Reserves' );
  RzListBox1.Add( 'Albert Almora Jr.' );
end;

procedure TForm8.RzButton1Click(Sender: TObject);
begin
  RzListBox1.AddItemToGroup( 0, 'Ian Happ' );
end;

[Ray Konopka]

Hi Olivier,

The CodeSite menu is added to the RAD Studio Tools menu by the CodeSite RAD Studio Expert that is located in the CSRadStudioTools270.dll. The DLL is registered with the IDE during installation. Assuming your CodeSite installation worked properly, you should have a CodeSite menu item under the RAD Studio Tools menu.

Ray

[Ray Konopka]

Hi Morten,

Great suggestion. Please send me an email to the Raize Support email (support at raize.com) and we can discuss.

Ray

[Ray Konopka]

Hi,

I apologize for the long delay. Because of the custom styles of tabs that are supported by the TRzPageControl and TRzTabControl, the style entries cannot be used directly. As such, the controls use “style appropriate” colors. In the case of the Auric style, the difference is more pronounced.

However, the TRzPageControl does give you lots of flexibility when it comes to the display. For example, even with VCL Styles active, you can write event handlers for the various OnPaint*** events of TRzPageControl and TRzTabSheet to customize the appearance.

For example, write the following event handlers for the TRzPageControl:

OnPaintCardBackground:

procedure TForm2.RzPageControl1PaintCardBackground(Sender: TObject; ACanvas: TCanvas; ARow: Integer; const ARect: TRect;
  var Handled: Boolean);
begin
  ACanvas.Brush.Color := cl3DDkShadow;
  ACanvas.FillRect( ARect );
  Handled := True;
end;

OnPaintTabBackground:

procedure TForm2.RzPageControl1PaintTabBackground(Sender: TObject; ACanvas: TCanvas; ATabIndex: Integer;
  const ARect: TRect; var Handled: Boolean);
begin
  ACanvas.Brush.Color := cl3DDkShadow;
  ACanvas.FillRect( ARect );
  Handled := True;
end;

And create a new event handler for the OnPaintBackground even for each TRzTabSheet instance in the page control. You can assign all tab sheets to use the same event handler.

OnPaintBackground:

procedure TForm2.TabSheetPaintBackground(Sender: TObject; ACanvas: TCanvas; const ARect: TRect; var Handled: Boolean);
begin
  ACanvas.Brush.Color := cl3DDkShadow;
  ACanvas.FillRect( ARect );
  Handled := True;
end;

This will give you an appearance that will be very close to the standard TPageControl and still let you use all the tab styles of TRzPageControl.

Ray

[Ray Konopka]

Hi Martijn,

I apologize for the long delay in responding. This whole situation have been extremely frustrating and I’m tired of posting messages where I simply do not have any good answers. I know what needs to be done to the library. The problem is that Embarcadero owns the code. All I can offer at this point is for everyone to reach out to Embarcadero and let them know how important the KSVC is to your work.

Ray

[Ray Konopka]

Hi Steve,

I apologize for the late response. Apparently, the forum software marked your post as needing approval, and of course, did not send a notification that approval was needed. I just happened to be browsing the settings when I discovered your pending message.
Unfortunately, I have not received any other reports of what you describe, and I have not experienced it either. I agree with you that the other message regarding DotNetForm is very odd. The fact that the MessageTracerForm and this DotNetForm are raising the same error suggests that there is indeed a problem with the IDE. If I had to guess, I would say that perhaps there is a DLL or package issue with your installation.

Again, I apologize for the mix-up with the post approval.

Ray

[Ray Konopka]

Hi Warren,

I apologize for the late response. Apparently, the forum software marked your post as needing approval, and of course, did not send a notification that approval was needed. I just happened to be browsing the settings when I discovered your pending messages.
Thank you for posting the detailed information. Unfortunately, I have not heard of any other reports like this, and I have not experienced it myself. However, I have made a note of it to keep an eye on this situation.

Again, I apologize for the mix-up with the post.

Ray

[Ray Konopka]

Hi,

What VCL Style are you using?

Ray

[Ray Konopka]

Hi Rhett,

Thank you for the clarification. I’m sorry I misunderstood your post. I thought it was in response to the previous post. As for the style issues with 10.4, I really wish I could share some positive news. I’ve certainly been trying from my side, but the ball is in Embarcadero’s court as they say.

Ray

[Ray Konopka]

Hi Navid,

I apologize for the delay in responding. I missed the notification. As for the uninstaller, I will certainly look into the installer script to make it is operating correctly. As for manually uninstalling CodeSite, you can execute the following command in the directory where CodeSite is installed:

UNWISE.EXE CS5_Install.log

Ray

[Ray Konopka]

Hi Rhett,

Unfortunately, I have not experienced this particular error with GetIt, nor have I heard of any reports. Have you contacted Embarcadero about this?

Ray

[Ray Konopka]

Hi John,

Sorry for not responding sooner. Yes, the changes necessary in !Build_RC6.cmd are pretty straight-forward. Glad to hear you were able to move forward.

Of course, it would be even better if you didn’t have to make any modifications at all and Embarcadero would create the deployment correctly.

Ray

[Author]

Posts