|
@@ -483,10 +483,10 @@ procedure TColorDisplay.Store(var S: TStream);
|
|
var vColor : byte;
|
|
var vColor : byte;
|
|
begin
|
|
begin
|
|
inherited Store(S);
|
|
inherited Store(S);
|
|
- S.WriteStr(Text);
|
|
|
|
vColor:=0;
|
|
vColor:=0;
|
|
if Assigned(Color) then vColor:=Color^;
|
|
if Assigned(Color) then vColor:=Color^;
|
|
S.Write(vColor, SizeOf(vColor));
|
|
S.Write(vColor, SizeOf(vColor));
|
|
|
|
+ S.WriteStr(Text);
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TColorDisplay.HandleEvent(var Event: TEvent);
|
|
procedure TColorDisplay.HandleEvent(var Event: TEvent);
|