0 Members and 1 Guest are viewing this topic.
procedure Execute(var State: Integer);var PL: TComponent; begin PL:= FindObject('Playlist'); PL.Set('Resources.ItemLine1Fonts.Normal.Name', 'Verdana'); PL.Set('Resources.ItemLine1Fonts.Normal.Size', 12); PL.Set('Resources.ItemLine1Fonts.Normal.Color', $FF);end;
Принцип везде один и тот же: Set('PropertyName', Value).Для плейлиста:Code: [Select]procedure Execute(var State: Integer);var PL: TComponent; begin PL:= FindObject('Playlist'); PL.Set('Resources.ItemLine1Fonts.Normal.Name', 'Verdana'); PL.Set('Resources.ItemLine1Fonts.Normal.Size', 12); PL.Set('Resources.ItemLine1Fonts.Normal.Color', $FF);end;