mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-20 02:48:13 +02:00
65 lines
1.5 KiB
ObjectPascal
65 lines
1.5 KiB
ObjectPascal
unit fraidesqldbrestsettings;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, Controls, StdCtrls, ColorBox, Dialogs, SpinEx,
|
|
IDEOptionsIntf, IDEOptEditorIntf;
|
|
|
|
type
|
|
|
|
{ TSQLDBRestConfigFrame }
|
|
|
|
TSQLDBRestConfigFrame = class(TAbstractIDEOptionsEditor)
|
|
cbSkipMysqlVersionCheck: TCheckBox;
|
|
private
|
|
|
|
public
|
|
function GetTitle: String; override;
|
|
procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
|
|
procedure ReadSettings({%H-}AOptions: TAbstractIDEOptions); override;
|
|
procedure WriteSettings({%H-}AOptions: TAbstractIDEOptions); override;
|
|
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses schemaeditorconf;
|
|
|
|
{$R *.lfm}
|
|
|
|
|
|
{ TSQLDBRestConfigFrame }
|
|
|
|
function TSQLDBRestConfigFrame.GetTitle: String;
|
|
begin
|
|
Result:='SQLDBRest Editor'
|
|
end;
|
|
|
|
procedure TSQLDBRestConfigFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TSQLDBRestConfigFrame.ReadSettings(AOptions: TAbstractIDEOptions);
|
|
begin
|
|
cbSkipMysqlVersionCheck.Checked:=SchemaSettings.DisableMySQLVersionCheck;
|
|
end;
|
|
|
|
procedure TSQLDBRestConfigFrame.WriteSettings(AOptions: TAbstractIDEOptions);
|
|
begin
|
|
SchemaSettings.DisableMySQLVersionCheck:=cbSkipMysqlVersionCheck.Checked;
|
|
SchemaSettings.SaveToFile(SchemaSettings.CurrentFile);
|
|
end;
|
|
|
|
class function TSQLDBRestConfigFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
|
|
begin
|
|
Result:=IDEEditorGroups.GetByIndex(GroupEnvironment)^.GroupClass;
|
|
end;
|
|
|
|
end.
|
|
|