Delphi-Quellcode:
procedure TfrmMIDIController.ReloadAll;
begin
if Assigned(FMIDIMain.Patterns) then
FMIDIMain.Patterns := FPatterns;
end;
Scheinbar beisst sich
TfrmMIDIMain.Patterns: TPatterns
mit
TfrmMIDIController.FPatterns
.
In welcher Reihenfolge bindest du die Units ein? Weil in
Winapi.Windows.pas
gibt es
Delphi-Quellcode:
type
...
PPattern = ^TPattern;
TPattern = TLogBrush;
Wenn du
Winapi.Windows
nach PixelFrost.MIDI
(da wird wohl TPattern definiert?) einbindest, wird der Typ wieder überschrieben.