paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 23:36:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Revert last patch, additional files committed by accident

Browse Source 
git-svn-id: trunk@60394 -
This commit is contained in:
michael 2019-02-09 18:38:37 +00:00
parent 85e16c046f
commit da14fc4435
7 changed files with 9 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/customform/custforms.pp
View File

@ -97,7 +97,6 @@ begin
Inherited Create;
FFormDescr:=ADescr;
ResourceClass:=FFormDescr.FFormClass;
FormEditingHook.RegisterDesignerBaseClass(FFormDescr.FFormClass);
Name:=FFormDescr.Caption;
RequiredPackages:=ADescr.LazPackage;
//Writeln('TCustomFormFileDescriptor.Create RequiredPackages=',RequiredPackages);

5
components/lazreport/source/barcode.pas
View File

@ -296,8 +296,8 @@ calculate the width and the linetype of a sigle bar
------------------------------------------------------------------
'0' white 100% full
'1' white 100%*Ratio full
'2' white 150% full
'3' white 200%Ratio full
'2' white 150%*Ratio full
'3' white 200%*Ratio full
'5' black 100% full
'6' black 100%*Ratio full
'7' black 150%*Ratio full
@ -1463,7 +1463,6 @@ begin
for i := 1 to Length(Data) do // examine the pattern string
begin
OneBarProps(Data[i], w, lt);
Writeln('BC : ',w,' : ',lt,' (',Data[i],')');
{
case data[i] of

6
components/printers/samples/dialogs/frmselprinter.lfm
View File

@ -1,7 +1,7 @@
object Form1: TForm1
Left = 106
Height = 787
Top = 142
Top = 121
Width = 489
ActiveControl = Button7
Caption = 'Form1'
@ -59,7 +59,7 @@ object Form1: TForm1
MaxSize = 350
ReadOnly = True
Title.Caption = 'Value'
Width = 347
Width = 345
end>
DefaultColWidth = 120
FixedCols = 0
@ -71,7 +71,7 @@ object Form1: TForm1
OnSelectCell = SGridSelectCell
ColWidths = (
120
347
345
)
end
object Button3: TButton

6
components/sqldb/sqldblaz.lpk
View File

@ -24,7 +24,7 @@
With the exception of the unit registersqldb, which is GPL-2. This unit contains code for the IDE and is usually not used by programs."/>
<Version Major="1" Release="2"/>
<Files Count="4">
<Files Count="3">
<Item1>
<Filename Value="registersqldb.pas"/>
<HasRegisterProc Value="True"/>
@ -39,10 +39,6 @@ With the exception of the unit registersqldb, which is GPL-2. This unit contains
<Filename Value="sqlstringspropertyeditordlg.pas"/>
<UnitName Value="SQLStringsPropertyEditorDlg"/>
</Item3>
<Item4>
<Filename Value="frmtypesafeaccess.pp"/>
<UnitName Value="frmtypesafeaccess"/>
</Item4>
</Files>
<i18n>
<EnableI18N Value="True"/>

3
components/sqldb/sqldblaz.pas
View File

@ -8,8 +8,7 @@ unit SQLDBLaz;
interface
uses
registersqldb, SQLStringsPropertyEditorDlg, frmtypesafeaccess,
LazarusPackageIntf;
registersqldb, SQLStringsPropertyEditorDlg, LazarusPackageIntf;
implementation

4
packager/pkgregisterbase.pas
View File

@ -41,7 +41,7 @@ uses
{$ifdef mswindows}
ServiceManager,
{$endif}
Classes, SysUtils, Process, DB, BufDataset, csvdataset, fpjsondataset, SimpleIPC, XMLConf, EventLog,
Classes, SysUtils, Process, DB, BufDataset, csvdataset, SimpleIPC, XMLConf, EventLog,
UTF8Process;
procedure RegisterFCLBaseComponents;
@ -51,7 +51,7 @@ implementation
procedure RegisterDB;
begin
RegisterComponents('Data Access',[TDatasource,TBufDataset, TCSVDataset, TExtJSJSONDataSet]); // this bites dbflaz
RegisterComponents('Data Access',[TDatasource,TBufDataset, TCSVDataset]); // this bites dbflaz
end;
procedure RegisterSimpleIPC;

1
tools/jsonviewer/jsonviewer.lpi
View File

@ -113,7 +113,6 @@
<Filename Value="frmaddtofavourite.pp"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="SaveRequestDataForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit10>
</Units>