Zeilenumbruch bei JvDesktopAlert von JVCL

[jus]

ok, ich denke, dass ich eine Lösung für mich selber gefunden habe. Die Lösung ist zwar ein bisschen "quick&dirty", aber für meinen Zweck reicht es. Und zwar habe ich in der JvDesktopAlertForm.pas brutal die Labelhöhe geändert.

Delphi-Quellcode:

unit JvDesktopAlertForm;

...

//=== { TJvFormDesktopAlert } ================================================

constructor TJvFormDesktopAlert.Create(AOwner: TComponent);
begin
  inherited CreateNew(AOwner, 1);

  Font.Assign(Screen.IconFont);
  MouseTimer := TTimer.Create(Self);
  MouseTimer.Enabled := False;
  MouseTimer.Interval := 200;
  MouseTimer.OnTimer := DoMouseTimer;
  MouseTimer.Enabled := True;

  BorderStyle := bsNone;
  BorderIcons := [];
  Scaled := False;
  Height := cDefaultAlertFormHeight;
  Width := cDefaultAlertFormWidth;
  OnPaint := FormPaint;

  imIcon := TImage.Create(Self);
  imIcon.Parent := Self;
  imIcon.SetBounds(8, 11, 32, 32);
  imIcon.AutoSize := True;
  imIcon.Transparent := True;

  lblHeader := TLabel.Create(Self);
  lblHeader.Parent := Self;
  lblHeader.SetBounds(48, 11, 71, 13);
  lblHeader.Font.Style := [fsBold];
  lblHeader.Transparent := True;

  lblText := TJvLabel.Create(Self);
  lblText.Parent := Self;
  lblText.AutoSize := False;
  //lblText.SetBounds(56, 24, 67, 13);  // Original
  lblText.SetBounds(56, 24, 67, 50);  //<----hier geändert
  lblText.Transparent := True;
  lblText.WordWrap := True;
  lblText.Anchors := [akLeft..akBottom];

...

end;

Danach wird der Text umgebrochen.

lg,
jus