u_multicast.pas
- multicast events for delphi. in contract to the regular event this is a list of events which means that multiple subscribers would be called when an event is to be fired. due to the use of interfaces the unsubscribing is automatic but a subscription token needs to be kept while subscribed. Dependency: IEntity which is not yet shared here. IEntity is list/map structure storing pairs name->value.
u_qrXslxExport.pas
- QuickReports Microsoft Excel (XLSX) export filter. Dependency: zexmlss. Zexmlss uses Abbrevia.
u_intfCustomMessageBox.pas
- allows creating Windows MessageBoxes like this:
procedure TTestCustomMessageDialog.test_CustomMessageDlg;
var
dlg: ICustomMessageBox;
answer: string;
const
button1 = 'button1';
button2 = 'Show an error in next dlg';
begin
dlg := CustomMessageDlg.SetText(
'Testing mtWarning '+sLineBreak+
'line2.1')
.SetType(mtWarning)
.SetButtons([button1,button2])
.SetDefBtn(button1);
answer := dlg.Execute;
dlg.SetText(
'Testing mtError '+sLineBreak+
'line2.2'+sLineBreak+
'You selected: '+answer);
if(answer=button1) then
dlg.SetType(mtError);
dlg.Execute;
dlg.SetType(mtInformation);
dlg.SetText(
'Testing mtInformation '+sLineBreak+
'line2.3');
dlg.Execute;
end;
Advantages: saves a lot of intermediate variables and makes dialog showing a LOT more flexible.