paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 15:49:16 +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 interface
uses uses
Classes, SysUtils, Classes, SysUtils, Interfaces, Forms, StdCtrls, GuiTestRunner, Menus,inieditor;
Interfaces, Forms,
StdCtrls,
GuiTestRunner, inieditor;
type type
@ -17,7 +14,7 @@ type
TDBGuiTestRunnerForm=class(TGUITestRunner) TDBGuiTestRunnerForm=class(TGUITestRunner)
private private
DBEditButton: TButton; MEditIni: TMenuItem;
public public
procedure DBEditButtonClick(ASender: TObject); procedure DBEditButtonClick(ASender: TObject);
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -50,18 +47,14 @@ end;
constructor TDBGuiTestRunnerForm.Create(AOwner: TComponent); constructor TDBGuiTestRunnerForm.Create(AOwner: TComponent);
// Add our database.ini edit button to the existing GUI // Add our database.ini edit button to the existing GUI
begin begin
inherited Create(AOwner); inherited Create(AOwner);
DBEditButton:=TButton.Create(Self); MEditIni:=TMenuItem.Create(Self);
DBEditButton.Top:=7; MEditIni.Caption:='Edit database.ini...';
DBEditButton.Left:=340; //to the left of the close button MEditIni.Hint:='Edit database selection settings (effective for next start)';
DBEditButton.Height:=32; MEditIni.OnClick:=@DBEditButtonClick;
DBEditButton.Width:=100; MenuItemEdit.Add(MEditIni);
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;
end; end;
end. end.

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

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