paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 12:39:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Call modified

Browse Source 
git-svn-id: trunk@63109 -
This commit is contained in:
michael 2020-05-01 15:17:46 +00:00
parent c92c2be3cd
commit 19c939f268
1 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
components/ideintf/bufdatasetdsgn.pas
View File

@ -18,10 +18,10 @@ Type
procedure GetDatasetNames(const S: string);
Protected
function GetProjectDir: String; virtual;
Procedure CreateDataset(aBufDS : TBufDataset); virtual;
Procedure LoadDataFromFile(aBufDS : TBufDataset); virtual;
Procedure SaveDataToFile(aBufDS : TBufDataset); virtual;
procedure CopyFromDataset(aBufDS: TBufDataset); virtual;
Procedure CreateDataset(aBufDS : TCustomBufDataset); virtual;
Procedure LoadDataFromFile(aBufDS : TCustomBufDataset); virtual;
Procedure SaveDataToFile(aBufDS : TCustomBufDataset); virtual;
procedure CopyFromDataset(aBufDS: TCustomBufDataset); virtual;
Public
constructor Create(AComponent: TComponent; ADesigner: TComponentEditorDesigner); override;
Destructor Destroy; override;
@ -36,12 +36,13 @@ Uses TypInfo, Forms, Dialogs, LazIDEintf, selectdatasetdlg;
{ TBufDatasetDesignEditor }
procedure TBufDatasetDesignEditor.CreateDataset(aBufDS: TBufDataset);
procedure TBufDatasetDesignEditor.CreateDataset(aBufDS: TCustomBufDataset);
begin
if aBufDs.Active then
ShowMessage(lrsDatasetActive)
else
aBufDS.CreateDataset;
Modified;
end;
procedure TBufDatasetDesignEditor.GetDatasetNames(const S: string);
@ -58,7 +59,7 @@ begin
Result:=GetUserDir;
end;
procedure TBufDatasetDesignEditor.LoadDataFromFile(aBufDS: TBufDataset);
procedure TBufDatasetDesignEditor.LoadDataFromFile(aBufDS: TCustomBufDataset);
Var
Dlg : TOpenDialog;
@ -71,13 +72,16 @@ begin
Dlg.Filter:=lrsBufDSFilters;
Dlg.Options:=Dlg.Options+[ofFileMustExist];
if Dlg.Execute then
begin
aBufDS.LoadFromFile(Dlg.FileName);
Modified;
end;
finally
Dlg.Free;
end;
end;
procedure TBufDatasetDesignEditor.SaveDataToFile(aBufDS: TBufDataset);
procedure TBufDatasetDesignEditor.SaveDataToFile(aBufDS: TCustomBufDataset);
Var
Dlg : TOpenDialog;
@ -89,13 +93,16 @@ begin
Dlg.Filter:=lrsBufDSFilters;
Dlg.Options:=Dlg.Options+[ofPathMustExist];
if Dlg.Execute then
begin
aBufDS.LoadFromFile(Dlg.FileName);
Modified;
end;
finally
Dlg.Free;
end;
end;
procedure TBufDatasetDesignEditor.CopyFromDataset(aBufDS : TBufDataset);
procedure TBufDatasetDesignEditor.CopyFromDataset(aBufDS : TCustomBufDataset);
Var
Idx : Integer;
@ -124,6 +131,7 @@ begin
exit;
aSrc.Active:=True;
aBufDS.CopyFromDataset(aSrc,True);
Modified;
end;
constructor TBufDatasetDesignEditor.Create(AComponent: TComponent; ADesigner: TComponentEditorDesigner);
@ -159,19 +167,21 @@ end;
procedure TBufDatasetDesignEditor.ExecuteVerb(Index: Integer);
Var
BufDS : TBufDataset;
BufDS : TCustomBufDataset;
begin
BufDS:=GetComponent as TBufDataset;
if Index<FOffset then
Inherited ExecuteVerb(Index)
else
begin
BufDS:=GetComponent as TCustomBufDataset;
Case Index-FOffset of
0 : CreateDataset(BufDS);
1 : LoadDataFromFile(BufDS);
2 : SaveDataToFile(BufDS);
3 : CopyFromDataset(BufDS);
end;
end;
end;
initialization