At 12:39 AM 17/08/2003 +0000, you wrote:

>Hi,
> is there a way to change a TIB_TransactionBar's button help
>messages, eg "Post Datasets and Commit and Retain Current
>Transaction", to something more user friendly, other than changing
>it in IB_Constants.pas?
>
>IBO4.2.Ie

Have you tried this?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, {Unit2,} IB_TransactionBar, IB_Components;

type
TForm1 = class(TForm)
IB_TransactionBar1: TIB_TransactionBar;
IB_Connection1: TIB_Connection;
IB_Transaction1: TIB_Transaction;
IB_Cursor1: TIB_Cursor;
procedure FormCreate(Sender: TObject);
private
procedure DoInitTBHints;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
inherited;
DoInitTBHints;
end;

procedure TForm1.DoInitTBHints;
var
I: TIB_TransactionBar_ButtonType;
Btn: TIB_TransactionBar_Button;
begin
with IB_TransactionBar1 do

begin
for I := Low(Buttons) to High(Buttons) do begin
Btn := Buttons[ I ];
case I of
tbStart: Btn.Hint := 'my Start Transaction';
tbPostAll: Btn.Hint := 'my Post Datasets';
tbCancelAll: Btn.Hint := 'my Cancel Datasets';
tbSavePoint: Btn.Hint := 'my Commit and Retain Current Transaction';
tbCommitRetaining: Btn.Hint := 'my Post Datasets and Commit and Retain Current Transaction';
tbCommit: Btn.Hint := 'my Commit and End Current Transaction';
tbRollback: Btn.Hint := 'my Rollback and End Current Transaction';
tbRollbackRetaining: Btn.Hint := 'my Rollback and Retain Current Transaction';
tbClose: Btn.Hint := 'my Close Current Transaction';
end;
end;
end;

end;

end.

cheers,
Helen