paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 03:18:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Rename dialog to avoid resource conflicts

Browse Source 
git-svn-id: trunk@63108 -
This commit is contained in:
michael 2020-05-01 15:17:10 +00:00
parent 11bcc95a26
commit c92c2be3cd
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/selectdatasetdlg.lfm
View File

@ -1,4 +1,4 @@
object SelectDatasetForm: TSelectDatasetForm
object SelectOtherDatasetForCopyForm: TSelectOtherDatasetForCopyForm
Left = 527
Height = 244
Top = 310

16
components/ideintf/selectdatasetdlg.pas
View File

@ -9,9 +9,9 @@ uses
type
{ TSelectDatasetForm }
{ TSelectOtherDatasetForCopyForm }
TSelectDatasetForm = class(TForm)
TSelectOtherDatasetForCopyForm = class(TForm)
BPDatasets: TButtonPanel;
lblCaption: TLabel;
lbDatasets: TListBox;
@ -28,7 +28,7 @@ type
Function SelectDataset(aList : TStrings; aTitle : String = '') : String;
var
SelectDatasetForm: TSelectDatasetForm;
SelectOtherDatasetForCopyForm: TSelectOtherDatasetForCopyForm;
implementation
@ -38,7 +38,7 @@ Function SelectDataset(aList : TStrings; aTitle : String = '') : String;
begin
Result:='';
With TSelectDatasetForm.Create(Application) do
With TSelectOtherDatasetForCopyForm.Create(Application) do
try
Datasets:=aList;
if aTitle<>'' then
@ -51,15 +51,15 @@ begin
end;
{ TSelectDatasetForm }
{ TSelectOtherDatasetForCopyForm }
function TSelectDatasetForm.GetDatasets: TStrings;
function TSelectOtherDatasetForCopyForm.GetDatasets: TStrings;
begin
Result:=lbDatasets.Items;
end;
function TSelectDatasetForm.GetSelected: String;
function TSelectOtherDatasetForCopyForm.GetSelected: String;
begin
With LbDatasets do
@ -69,7 +69,7 @@ begin
Result:=Items[ItemIndex];
end;
procedure TSelectDatasetForm.SetDatasets(AValue: TStrings);
procedure TSelectOtherDatasetForCopyForm.SetDatasets(AValue: TStrings);
begin
lbDatasets.Items:=aValue;