kattunga / IWBootstrapFramework

Intraweb Bootstrap 3 Framework for Delphi
http://kattunga.github.io/IWBootstrapFramework
MIT License
98 stars 42 forks source link

TIWBSAlert with rawtext option #22

Closed robertonicchi closed 9 years ago

robertonicchi commented 9 years ago

Could be useful to have the possibility to use HTML formatted text and not only plain text.

thanks

kattunga commented 9 years ago

Please check the demo, You already have an example of alert with rawtext:

Unit2.pas Line 338:

procedure TIWForm2.IWBSButton33AsyncClick(Sender: TObject;
  EventParams: TStringList);
begin
  with TIWBSAlert.Create('<strong>This is an Alert with a button with AsynClick event</strong><br>') do begin
    AlertLabel.RawText := True;
    AddButton('ok',
      procedure(EventParams: TStringList)
      begin
        IWBSInput24.Text := 'You pressed OK in the alert!';
      end);
    Show;
  end;
end;
robertonicchi commented 9 years ago

thanks. didn't see it ..