So habs jetzt so gemacht ..
Ist aber vom Code her sogar noch mehr als über die alte Funktion.
Delphi-Quellcode:
// SkinConfig
TSkinConfig = class
private
FAeroEmulate : Integer;
function GetAeroEmulate(FMode, FReadMode: Integer): Integer;
procedure SetAeroEmulate(FMode, FReadMode: Integer; const Value: Integer);
public
property AeroEmulate[FMode, FReadMode: Integer]: Integer read GetAeroEmulate write SetAeroEmulate;
end;
function TSkinConfig.GetAeroEmulate(FMode, FReadMode: Integer): Integer;
begin
if FReadMode > 0 then
FAeroEmulate := FMode;
Result := FAeroEmulate;
end;
// aus meiner TextDatei eingelesen
case SkinType of
stAeroEmulate:
begin
AeroEmulate[StrToInt(ParseThis(sBF, ',', 1)), 1];
end;
end;
Delphi-Quellcode:
// SkinEngine
TSkinEngine = class
private
//
public
function SK_AEROEMULATE: Integer;
end;
function TSkinEngine.SK_AEROEMULATE: Integer;
begin
Result := SkinConfig.AeroEmulate[0, 0];
end;
// im Code abgefragt
if SK_AEROEMULATE > 0 then
begin
//
end;
Und genau das meine ich extrem viel Code nur um eine Funktion abzufragen.
gruss Emil