How can I control the width of the dialog generated by TTIWAdvMessageDialog.Show() ?
I implemented a simple dialog in my application but the resulting box is quite narrow: buttons are on top of each other and the text is nearly underdable (it's several times as high as wide).
I've tried to use the "width" property but that only seems to affects the size of the (non-visual) component at design time, not the width of the run-time dialog.
In case that issue results from an incorrect usage of the control here is the (relevant) code that displays the dialog box:
dlgxDeleteBookingInfoConfirm.CommonButtons := [cbYes, cbCancel];
dlgxDeleteBookingInfoConfirm.Notes := String.Join('<br>', Notes.ToArray());
dlgxDeleteBookingInfoConfirm.ShowDialog := true;
dlgxDeleteBookingInfoConfirm.Position := pTopCenter;
dlgxDeleteBookingInfoConfirm.Tag := rlBookingData.Items[rlBookingData.ItemIndex].Tag;
dlgxDeleteBookingInfoConfirm.Show();
and the object's definition in the dfm:
object dlgxDeleteBookingInfoConfirm: TTIWAdvMessageDialog
Left = 8
Top = 0
Width = 800
Height = 25
ZIndex = 1001
ButtonBarFont.Color = clNone
ButtonBarFont.FontName = 'Helvetica'
ButtonBarFont.Size = 10
ButtonBarFont.Style = []
Caption = 'Please confirm'
CaptionFont.Color = clNone
CaptionFont.FontName = 'Helvetica'
CaptionFont.Size = 10
CaptionFont.Style = [fsBold]
CloseButtonHint = 'Close'
CollapseControlHint = 'Show details'
CollapseControlText = 'Show details'
CommonButtons = [cbYes, cbCancel]
ExpandControlHint = 'Expand'
ExpandControlText = 'Expand'
Font.Color = 10040064
Font.FontName = 'Helvetica'
Font.Size = 12
Font.Style = []
Notes = 'Notes'
OnButtonClick = dlgxDeleteBookingInfoConfirmButtonClick
end
Thank you,
Stephane