paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:11:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Test bug #32348, change button to menu item

Browse Source 
git-svn-id: trunk@39445 -
This commit is contained in:
michael 2018-07-13 07:31:20 +00:00
parent 6568dea8a9
commit 7d0fc1cbc9
2 changed files with 16 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
packages/fcl-db/tests/dbguitestrunner.pas
View File

@ -6,10 +6,7 @@ unit DBGuiTestRunner;
interface
uses
Classes, SysUtils,
Interfaces, Forms,
StdCtrls,
GuiTestRunner, inieditor;
Classes, SysUtils, Interfaces, Forms, StdCtrls, GuiTestRunner, Menus,inieditor;
type
@ -17,7 +14,7 @@ type
TDBGuiTestRunnerForm=class(TGUITestRunner)
private
DBEditButton: TButton;
MEditIni: TMenuItem;
public
procedure DBEditButtonClick(ASender: TObject);
constructor Create(AOwner: TComponent); override;
@ -50,18 +47,14 @@ end;
constructor TDBGuiTestRunnerForm.Create(AOwner: TComponent);
// Add our database.ini edit button to the existing GUI
begin
inherited Create(AOwner);
DBEditButton:=TButton.Create(Self);
DBEditButton.Top:=7;
DBEditButton.Left:=340; //to the left of the close button
DBEditButton.Height:=32;
DBEditButton.Width:=100;
DBEditButton.Caption:='Edit database.ini...';
DBEditButton.Hint:='Edit database selection settings (effective for next start)';
DBEditButton.OnClick:=@DBEditButtonClick;
// Set this last; now all properties take effect
DBEditButton.Parent:=Self.Panel1;
MEditIni:=TMenuItem.Create(Self);
MEditIni.Caption:='Edit database.ini...';
MEditIni.Hint:='Edit database selection settings (effective for next start)';
MEditIni.OnClick:=@DBEditButtonClick;
MenuItemEdit.Add(MEditIni);
end;
end.

17
packages/fcl-db/tests/dbtestframework_gui.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="11"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
@ -15,9 +15,6 @@
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="5">
<Item1 Name="Default" Default="True"/>
<Item2 Name="debug">
@ -66,7 +63,7 @@
<CustomOptions Value="-dTEST_SQLITE3DS"/>
</Other>
</CompilerOptions>
</Item5>
</Item5>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
@ -74,9 +71,10 @@
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default"/>
</Modes>
</RunParams>
<RequiredPackages Count="4">
<Item1>
@ -96,11 +94,12 @@
<Unit0>
<Filename Value="dbtestframework_gui.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="DBGuiTestRunner"/>
<UnitName Value="DBGuiTestRunner"/>
</Unit0>
<Unit1>
<Filename Value="dbguitestrunner.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="DBGuiTestRunner"/>
</Unit1>
<Unit2>
<Filename Value="tccsvdataset.pp"/>