Komponenten Eigenschaft in gesamter Anwendung ändern

[oki]

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