Also z.B. so: (ungetested)
Delphi-Quellcode:
procedure TDesign.Labeling_GlowButtons(ButtonList: TObjectList);
var
I: integer;
button: TTMSFNCToolBarButton;
bezeichnung : String;
begin
for I := 0 to ButtonList.Count -1 do begin
button := ButtonList.Items[I] as TTMSFNCToolBarButton;
bezeichnung := Data_Module.xDST_Sprache.FieldByName(button.Name).AsString
button.Text:= bezeichnung;
end;
end;
Es geht noch mehr, aber das wäre mal ein erster Schritt, genauer die ersten zwei Schritte.