Hi Pichel,
warum soll das mit der PropList nicht gehen. Du iterierst durch die Properties und immer wenn ein Prop vom Typ tkClass ist holst du dir deren Propertys. Das geht rekursiv sehr gut und du findest alle Fonts und alle Charsets.
Delphi-Quellcode:
procedure ChangeCharset(APropObj : TObject; ACharset : TFontCharset);
var PropList : PPropList;
Counter : Integer;
PropName : String;
SubObj: TObject;
begin
if not Assigned(APropObj) then
Exit;
PropCount := GetPropList(APropObj.ClassInfo, PropList);
for Counter := 0 to PropCount - 1 do begin
isClass := False;
PropValue := '';
SubObj := nil;
PropName := PropList[Counter]^.Name;
if PropName = 'Charset' then
SetOrdProp(APropObj, ACharset);
if PropList[Counter]^.PropType^.Kind in [tkClass] then begin
// neue Unterklasse
SubObj := GetObjectProp(APropObj, PropName);
if Assigned(SubObj) then
AddPropsinTree(SubObj, ACharset);
end;
end;
end;
Ich hab das jetzt mal stückweise aus meinem Code rauskopiert und ungeprüft geändert. Also keine Garantie. Das Prinzip sollte aber stimmen. Du hast ja geschrieben, dass du alle Komponenten deiner Anwendung suchst. Jedesmal, wenn du eine gefunden hast übergibst du diese incl. deinem neuen Charset dieser Methode und es sollte alles gesetzt werden.
Gruß oki