Преглед на файлове

TColorDisplay.Store fix.

Margers преди 1 месец
родител
ревизия
b8ba852e94
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      packages/fv/src/colorsel.pas

+ 1 - 1
packages/fv/src/colorsel.pas

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