Forum: Software-Projekte der Mitglieder
by himitsu,
21. Apr 2010
Wenn, dann bitte diese Funktion verwenden.
function MyStringToColor(const S: string): TColor;
var
LColor: LongInt;
begin
if IdentToColor('cl' + S, LColor) or IdentToColor(S, LColor) then
Result := TColor(LColor)
else
Result := TColor(StrToInt(S));
end;
Forum: Software-Projekte der Mitglieder
by himitsu,
21. Apr 2010
Wenn ich mich noch recht erinner, dann hab ich es so geändert. :-D
Result := TCustomBBCode(inherited Items); // LibBB.pas, Zeile 82
Result := TCustomBBCode(inherited First()); // LibBB.pas, Zeile 97
Result := TCustomBBCode(inherited Last()); // LibBB.pas, Zeile 112
Forum: Software-Projekte der Mitglieder
by himitsu,
21. Apr 2010
Joar, das Copy&Paste Contrns wurde hier natürlich wirklich nicht gefunden. :angel2:
Contrns
Contnrs
Ist aber auch ein seltendemlischer und unaussprächlicher Name.
Ich weiß nichmal ob man den mit ein bissl Groß-/Kleinschreibung aussprechbarer machen könnte,
so wie z.B. bei
Sysutils > SysUtils
Designintf > DesignIntf