AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

MinimizeName alternative

Ein Thema von MrDevil · begonnen am 22. Mär 2007 · letzter Beitrag vom 28. Mär 2015
Antwort Antwort
MrDevil

Registriert seit: 27. Dez 2006
Ort: Melle
62 Beiträge
 
Delphi 5 Standard
 
#1

MinimizeName alternative

  Alt 22. Mär 2007, 18:36
Gibt es eine tolle alternative Funktion zu "MinimizeName"

Da ich "TJvStaticText" verwende und die - zumindest infde ich es nicht - Canvas hat!
Gruss Jens
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.451 Beiträge
 
Delphi 2006 Professional
 
#2

Re: MinimizeName alternative

  Alt 22. Mär 2007, 19:59
Das dürfte ein Static sein. Einfach mit MSDN-Library durchsuchenSetWindowLong den Stil SS_PATHELIPSIS hinzufügen.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#3

Re: MinimizeName alternative

  Alt 22. Mär 2007, 20:09
du kannst auch einfach eine Canvas (zum Beispiel per TBitmap) anlegen, die Font assignen und dann auf die erzeuge Canvas die Funktion anwenden.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.451 Beiträge
 
Delphi 2006 Professional
 
#4

Re: MinimizeName alternative

  Alt 22. Mär 2007, 20:17
Da finde ich meine Lösung aber eleganter.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
MrDevil

Registriert seit: 27. Dez 2006
Ort: Melle
62 Beiträge
 
Delphi 5 Standard
 
#5

Re: MinimizeName alternative

  Alt 23. Mär 2007, 08:51
Zitat von Luckie:
Das dürfte ein Static sein. Einfach mit MSDN-Library durchsuchenSetWindowLong den Stil SS_PATHELIPSIS hinzufügen.
Sorry aber verstehe gerade nur Bahnhof - was ich machen soll - ich ahbe nach "SS_PATHELIPSIS" hier im Forum gesucht aber nur diesen Beitrag gefunden und selbst google kennt das nur einmal ;-(

Wäre super wenn Du mir das genauer erklären könntest
Gruss Jens
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#6

Re: MinimizeName alternative

  Alt 23. Mär 2007, 09:06
Dir kann geholfen werden.

Ich bin der selben Meinung wie Luckie, mit Hilfe von SS_PATHELIPSIS ist es recht einfach und schneller
einen Pathnamen ausf das Wesentliche zu kürzten.

Delphi-Quellcode:

procedure TFormX.SetStaticTextPathEllipsis(aStaticText: TStaticText);
var scStyle: Integer;
begin
  scStyle := GetWindowLong(aStaticText.Handle, GWL_STYLE);
  scStyle := scStyle or SS_PATHELLIPSIS or SS_LEFTNOWORDWRAP;
  SetWindowLong(aStaticText.Handle, GWL_STYLE, scStyle);
end;

procedure TFormX.FormShow(Sender: TObject);
begin
  SetStaticTextPathEllipsis(StaticText1);
end;
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
MrDevil

Registriert seit: 27. Dez 2006
Ort: Melle
62 Beiträge
 
Delphi 5 Standard
 
#7

Re: MinimizeName alternative

  Alt 23. Mär 2007, 09:41
das hat bei mir keine Auswirkung


Edit : hat es doch aber NUR im OnShow .. aber es mnuss auch zur Laufzeit funktionieren, wenn der Pfad sich mal ändert
Gruss Jens
  Mit Zitat antworten Zitat
Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#8

Re: MinimizeName alternative

  Alt 23. Mär 2007, 14:21
Es sollte funktionieren, auf jeden Fall mit Delphi 6 (7).

Das Statictext.Autosize := FALSE; hast du gesetzt ?
Angehängte Dateien
Dateityp: zip testme_122.zip (1,3 KB, 18x aufgerufen)
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat
ELFVIGO

Registriert seit: 26. Mär 2015
1 Beiträge
 
#9

AW: Re: MinimizeName alternative

  Alt 28. Mär 2015, 08:47
Dir kann geholfen werden.

Ich bin der selben Meinung wie Luckie, mit Hilfe von SS_PATHELIPSIS ist es recht einfach und schneller
einen Pathnamen ausf das Wesentliche zu kürzten.

Delphi-Quellcode:

procedure TFormX.SetStaticTextPathEllipsis(aStaticText: TStaticText);
var scStyle: Integer;
begin
  scStyle := GetWindowLong(aStaticText.Handle, GWL_STYLE);
  scStyle := scStyle or SS_PATHELLIPSIS or SS_LEFTNOWORDWRAP;
  SetWindowLong(aStaticText.Handle, GWL_STYLE, scStyle);
end;

procedure TFormX.FormShow(Sender: TObject);
begin
  SetStaticTextPathEllipsis(StaticText1);
end;

Dank von Vigo, Spanien.

Thank you very much from Vigo, Spain.

Sorry, but I don't know german, so I have to write to you in English.

I used your code to put in a Inno Setup installer and it works well. I registered in your forum to thank you .

Our installer is used to install mods in World of Tanks game: http://wotanksmods.com/dex-modpack/.

Thank you very much, on e more time.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 02:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf