paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:20:46 +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 Left = 527
Height = 244 Height = 244
Top = 310 Top = 310

16
components/ideintf/selectdatasetdlg.pas
View File

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