Nein es geht definitiv nicht.
Weil ich Controls dieser Art nicht addieren kann.
Ein Parent für den Label kann ich auch nicht setzen.
Habe es jetzt so geändert.
Aber auch das stimmt nicht weil es sich mit
OpenGL nicht vereinbaren lässt.
Delphi-Quellcode:
function GetText(AText, AFontName:
string; AFontSize: integer; MaxWidth: Integer):
string;
var
bmp: TBitmap;
CurrWidth, n: Integer;
begin
bmp := TBitmap.Create;
try
bmp.Canvas.Font.
Name := AFontName;
bmp.Canvas.Font.Size := AFontSize;
MaxWidth := MaxWidth - bmp.Canvas.TextWidth('
...');
CurrWidth := bmp.Canvas.TextWidth(AText);
n := Length(AText);
repeat
CurrWidth := CurrWidth - bmp.Canvas.TextWidth(AText[n]);
dec(n);
until (CurrWidth <= MaxWidth)
or (n <= 0);
if CurrWidth < MaxWidth
then
result := copy(AText, 1, (n + 1))
else
result := copy(AText, 1, (n + 1)) + '
...';
finally
bmp.Free;
end;
end;
zudem kommt noch das
CurrWidth < MaxWidth niemals mehr als MaxWidth ist.
Das hat zur folge das immer '...' angehängt wird.
Außerdem ist im vorherigen Code noch ein Fehler n muss mit 1 addiert werden ansonsten fehlt ein Buchstabe.
Wenn ich nun IIIIIIII anstelle von XXXXXX nehme geht I über meine Zeitanzeige hinaus
Ist also das gleiche in grün.
SongName := PAnsiChar(AnsiString(GetText(string(AnsiString(BassSoInfo.SongTitle)), 'Arial', 16, 570)));
geht mit X aber nicht mit I
Die breite der Zeichen ist nun mal nicht gleich wie die der Labels.
Auch wenn ich den gleichen Font, Font.size verwende.
Zitat:
aber das Verhältnis sollte ja auf jeden Fall gleich sein.
Also nein keinerlei Einklang in Verbindung mit OGL
gruss