AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Zeilenumbruch bei JvDesktopAlert von JVCL

Ein Thema von jus · begonnen am 30. Sep 2016 · letzter Beitrag vom 30. Sep 2016
Antwort Antwort
jus

Registriert seit: 22. Jan 2005
344 Beiträge
 
Delphi 2007 Professional
 
#1

Zeilenumbruch bei JvDesktopAlert von JVCL

  Alt 30. Sep 2016, 01:11
Hallo,

ich würde gerne in dem MessgeText von der JVCL Komponente JvDesktopAlert einen Zeilenumbruch machen. Weiß jemand wir man bei der Komponente sowas macht?

Ich mit folgendes vergeblich probiert:
JvDesktopAlert1.MessageText:='Name'+ #13#10 +'Strasse'; Es scheint so zu sein, dass JvDesktopAlert1.MessageText auf TJvLabel basiert. Leider weiß ich nicht, wie man da einen Zeilenumbruch macht.

lg,
jus
  Mit Zitat antworten Zitat
jus

Registriert seit: 22. Jan 2005
344 Beiträge
 
Delphi 2007 Professional
 
#2

AW: Zeilenumbruch bei JvDesktopAlert von JVCL

  Alt 30. Sep 2016, 02:31
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
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#3

AW: Zeilenumbruch bei JvDesktopAlert von JVCL

  Alt 30. Sep 2016, 11:01
Versuch es doch mal mit lblText.AutoSize := True; . Eigentlich sollte sich das Label dann dem Inhalt anpassen.
Was ich nicht weiß ist, ob der übrige Teil von JvDesktopAlert damit umgehen kann und die Optik mit der Änderung "manierlich" bleibt.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:25 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz