Steema Central

Code: Select all

Constructor TCustomTeePanel.Create(AOwner: TComponent);
begin
  inherited;
  //...
  
  // For new charts, set default canvas whatever is at the Registry,
  // or use the class indicated by TeeDefaultCanvas global variable,
  // which is (in VCL) the GDI+ canvas by default.

  // Setting TeeDefaultCanvas:='' will not look at registry, and will not
  // use VCL GDI+

  if (TeeDefaultCanvas<>'') and
     (not (csLoading in ComponentState)) then
     IDefaultCanvas:=TeeReadStringOption('DefaultCanvas',TeeDefaultCanvas)
  else
     IDefaultCanvas:=''; // Existing old charts saved in dfm/fmx, no change

  CreateDefaultCanvas;
  //...
end;

Code: Select all

Procedure TCustomTeePanel.DefineProperties(Filer:TFiler);

  function DoWriteDefaultCanvas:Boolean;
  begin
    result:=(Filer.Ancestor=nil) or
            (IDefaultCanvas<>TCustomTeePanel(Filer.Ancestor).IDefaultCanvas);
  end;

begin
  inherited;

  //...
  Filer.DefineProperty('DefaultCanvas',ReadDefaultCanvas,WriteDefaultCanvas,
        {$IFDEF FMX}False{$ELSE}DoWriteDefaultCanvas{$ENDIF});
end;

procedure TCustomTeePanel.ReadDefaultCanvas(Reader: TReader);
begin
  IDefaultCanvas:=Reader.ReadString;
  {$IFDEF FMX}
  IDefaultCanvas:=''; // Switching canvas is not supported yet in FireMonkey
  {$ENDIF}
end;