pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

SysTools: delete unneeded files

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6161 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-01-30 16:27:03 +00:00
parent f1b4ea551c
commit f1bb94b862
3 changed files with 0 additions and 627 deletions
Download Patch File Download Diff File Expand all files Collapse all files

358
components/systools/source/db/stdb2dbc.pas
View File

@ -1,358 +0,0 @@
(* ***** BEGIN LICENSE BLOCK *****
* Version: MPL 1.1
*
* The contents of this file are subject to the Mozilla Public License Version
* 1.1 (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
* http://www.mozilla.org/MPL/
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
* for the specific language governing rights and limitations under the
* License.
*
* The Original Code is TurboPower SysTools
*
* The Initial Developer of the Original Code is
* TurboPower Software
*
* Portions created by the Initial Developer are Copyright (C) 1996-2002
* the Initial Developer. All Rights Reserved.
*
* Contributor(s):
*
* ***** END LICENSE BLOCK ***** *)
{*********************************************************}
{* SysTools: StDb2DBC.pas 4.04 *}
{*********************************************************}
{* SysTools: Data-aware Two-Dimensional Barcodes *}
{*********************************************************}
{$IFDEF FPC}
{$mode DELPHI}
{$ENDIF}
//{$I StDefine.inc}
unit StDb2DBC;
interface
uses
{$IFDEF FPC}
LCLIntf, LCLType, LMessages,
{$ELSE}
Windows, Messages,
{$ENDIF}
SysUtils,
Classes,
St2DBarC,
Db,
DbCtrls;
type
TStDbPDF417Barcode = class(TStPDF417Barcode)
protected {private}
{.Z+}
FCaptionDataLink : TFieldDataLink;
FCodeDataLink : TFieldDataLink;
procedure CaptionDataChange(Sender : TObject);
procedure CodeDataChange(Sender : TObject);
function GetCaptionDataField : string;
function GetCodeDataField : string;
function GetDataSource : TDataSource;
procedure SetCaptionDataField(const Value : string);
procedure SetCodeDataField(const Value : string);
procedure SetDataSource(Value : TDataSource);
public
constructor Create(AOwner : TComponent); override;
destructor Destroy;
override;
{.Z+}
published
property Code stored False;
property Caption stored False;
property CaptionDataField : string
read GetCaptionDataField write SetCaptionDataField;
property CodeDataField : string
read GetCodeDataField write SetCodeDataField;
property DataSource : TDataSource read GetDataSource write SetDataSource;
end;
TStDbMaxiCodeBarcode = class(TStMaxiCodeBarcode)
protected {private}
{.Z+}
FCaptionDataLink : TFieldDataLink;
FCodeDataLink : TFieldDataLink;
FCountryCodeDataLink : TFieldDataLink;
FPostalCodeDataLink : TFieldDataLink;
FServiceClassDataLink : TFieldDataLink;
procedure CaptionDataChange (Sender : TObject);
procedure CodeDataChange (Sender : TObject);
procedure CountryCodeChange (Sender : TObject);
function GetCaptionDataField : string;
function GetCodeDataField : string;
function GetCountryCodeDataField : string;
function GetDataSource : TDataSource;
function GetPostalCodeDataField : string;
function GetServiceClassDataField : string;
procedure PostalCodeChange (Sender : TObject);
procedure ServiceClassChange (Sender : TObject);
procedure SetCaptionDataField (const Value : string);
procedure SetCodeDataField (const Value : string);
procedure SetCountryCodeDataField (const Value : string);
procedure SetDataSource (Value : TDataSource);
procedure SetPostalCodeDataField (const Value : string);
procedure SetServiceClassDataField (const Value : string);
public
constructor Create(AOwner : TComponent); override;
destructor Destroy;
override;
{.Z+}
published
property Code stored False;
property Caption stored False;
property CaptionDataField : string
read GetCaptionDataField write SetCaptionDataField;
property CarrierCountryCodeDataField : string
read GetCountryCodeDataField write SetCountryCodeDataField;
property CarrierPostalCodeDataField : string
read GetPostalCodeDataField write SetPostalCodeDataField;
property CarrierServiceClassDataField : string
read GetServiceClassDataField write SetServiceClassDataField;
property CodeDataField : string
read GetCodeDataField write SetCodeDataField;
property DataSource : TDataSource read GetDataSource write SetDataSource;
end;
implementation
{ TStDbPDF417Barcode }
constructor TStDbPDF417Barcode.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
FCaptionDataLink := TFieldDataLink.Create;
FCaptionDataLink.OnDataChange := CaptionDataChange;
FCodeDataLink := TFieldDataLink.Create;
FCodeDataLink.OnDataChange := CodeDataChange;
end;
destructor TStDbPDF417Barcode.Destroy;
begin
FCaptionDataLink.OnDataChange := nil;
FCaptionDataLink.Free;
FCaptionDataLink := nil;
FCodeDataLink.OnDataChange := nil;
FCodeDataLink.Free;
FCodeDataLink := nil;
inherited Destroy;
end;
procedure TStDbPDF417Barcode.CaptionDataChange(Sender : TObject);
begin
if FCaptionDataLink.Field = nil then
Caption := '12345678922'
else
Caption := FCaptionDataLink.Field.DisplayText;
end;
procedure TStDbPDF417Barcode.CodeDataChange(Sender : TObject);
begin
if FCodeDataLink.Field = nil then
Code := '12345678922'
else
Code := FCodeDataLink.Field.DisplayText;
end;
function TStDbPDF417Barcode.GetCaptionDataField : string;
begin
Result := FCaptionDataLink.FieldName;
end;
function TStDbPDF417Barcode.GetCodeDataField : string;
begin
Result := FCodeDataLink.FieldName;
end;
function TStDbPDF417Barcode.GetDataSource : TDataSource;
begin
Result := FCaptionDataLink.DataSource
end;
procedure TStDbPDF417Barcode.SetCaptionDataField(const Value : string);
begin
FCaptionDataLink.FieldName := Value;
end;
procedure TStDbPDF417Barcode.SetCodeDataField(const Value : string);
begin
FCodeDataLink.FieldName := Value;
end;
procedure TStDbPDF417Barcode.SetDataSource(Value : TDataSource);
begin
FCaptionDataLink.DataSource := Value;
FCodeDataLink.DataSource := Value;
end;
{ TStDbMaxiCodeBarcode }
constructor TStDbMaxiCodeBarcode.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
FCaptionDataLink := TFieldDataLink.Create;
FCaptionDataLink.OnDataChange := CaptionDataChange;
FCodeDataLink := TFieldDataLink.Create;
FCodeDataLink.OnDataChange := CodeDataChange;
FCountryCodeDataLink := TFieldDataLink.Create;
FCountryCodeDataLink.OnDataChange := CountryCodeChange;
FPostalCodeDataLink := TFieldDataLink.Create;
FPostalCodeDataLink.OnDataChange := PostalCodeChange;
FServiceClassDataLink := TFieldDataLink.Create;
FServiceClassDataLink.OnDataChange := ServiceClassChange;
end;
destructor TStDbMaxiCodeBarcode.Destroy;
begin
FCaptionDataLink.OnDataChange := nil;
FCaptionDataLink.Free;
FCaptionDataLink := nil;
FCodeDataLink.OnDataChange := nil;
FCodeDataLink.Free;
FCodeDataLink := nil;
FCountryCodeDataLink.OnDataChange := nil;
FCountryCodeDataLink.Free;
FCountryCodeDataLink := nil;
FPostalCodeDataLink.OnDataChange := nil;
FPostalCodeDataLink.Free;
FPostalCodeDataLink := nil;
FServiceClassDataLink.OnDataChange := nil;
FServiceClassDataLink.Free;
FServiceClassDataLink := nil;
inherited Destroy;
end;
procedure TStDbMaxiCodeBarcode.CaptionDataChange(Sender : TObject);
begin
if FCaptionDataLink.Field = nil then
Caption := '12345678922'
else
Caption := FCaptionDataLink.Field.DisplayText;
end;
procedure TStDbMaxiCodeBarcode.CodeDataChange(Sender : TObject);
begin
if FCodeDataLink.Field = nil then
Code := '12345678922'
else
Code := FCodeDataLink.Field.DisplayText;
end;
procedure TStDbMaxiCodeBarcode.CountryCodeChange (Sender : TObject);
begin
if FCountryCodeDataLink.Field = nil then
CarrierCountryCode := 0
else
CarrierCountryCode := FCountryCodeDataLink.Field.AsInteger;
end;
function TStDbMaxiCodeBarcode.GetCaptionDataField : string;
begin
Result := FCaptionDataLink.FieldName;
end;
function TStDbMaxiCodeBarcode.GetCodeDataField : string;
begin
Result := FCodeDataLink.FieldName;
end;
function TStDbMaxiCodeBarcode.GetCountryCodeDataField : string;
begin
Result := FCountryCodeDataLink.FieldName;
end;
function TStDbMaxiCodeBarcode.GetDataSource : TDataSource;
begin
Result := FCaptionDataLink.DataSource
end;
function TStDbMaxiCodeBarcode.GetPostalCodeDataField : string;
begin
Result := FPostalCodeDataLink.FieldName;
end;
function TStDbMaxiCodeBarcode.GetServiceClassDataField : string;
begin
Result := FServiceClassDataLink.FieldName;
end;
procedure TStDbMaxiCodeBarcode.PostalCodeChange (Sender : TObject);
begin
if FPostalCodeDataLink.Field = nil then
CarrierPostalCode := '000'
else
CarrierPostalCode := FPostalCodeDataLink.Field.DisplayText;
end;
procedure TStDbMaxiCodeBarcode.ServiceClassChange (Sender : TObject);
begin
if FServiceClassDataLink.Field = nil then
CarrierServiceClass := 0
else
CarrierServiceClass := FServiceClassDataLink.Field.AsInteger;
end;
procedure TStDbMaxiCodeBarcode.SetCaptionDataField(const Value : string);
begin
FCaptionDataLink.FieldName := Value;
end;
procedure TStDbMaxiCodeBarcode.SetCodeDataField(const Value : string);
begin
FCodeDataLink.FieldName := Value;
end;
procedure TStDbMaxiCodeBarcode.SetCountryCodeDataField (const Value : string);
begin
FCountryCodeDataLink.FieldName := Value;
end;
procedure TStDbMaxiCodeBarcode.SetDataSource(Value : TDataSource);
begin
FCaptionDataLink.DataSource := Value;
FCodeDataLink.DataSource := Value;
FCountryCodeDataLink.DataSource := Value;
FPostalCodeDataLink.DataSource := Value;
FServiceClassDataLink.DataSource := Value;
end;
procedure TStDbMaxiCodeBarcode.SetPostalCodeDataField (const Value : string);
begin
FPostalCodeDataLink.FieldName := Value;
end;
procedure TStDbMaxiCodeBarcode.SetServiceClassDataField (const Value : string);
begin
FServiceClassDataLink.FieldName := Value;
end;
end.

136
components/systools/source/db/stdbbarc.pas
View File

@ -1,136 +0,0 @@
(* ***** BEGIN LICENSE BLOCK *****
* Version: MPL 1.1
*
* The contents of this file are subject to the Mozilla Public License Version
* 1.1 (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
* http://www.mozilla.org/MPL/
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
* for the specific language governing rights and limitations under the
* License.
*
* The Original Code is TurboPower SysTools
*
* The Initial Developer of the Original Code is
* TurboPower Software
*
* Portions created by the Initial Developer are Copyright (C) 1996-2002
* the Initial Developer. All Rights Reserved.
*
* Contributor(s):
*
* ***** END LICENSE BLOCK ***** *)
{*********************************************************}
{* SysTools: StDbBarC.pas 4.04 *}
{*********************************************************}
{* SysTools: data aware bar code components *}
{*********************************************************}
{$IFDEF FPC}
{$mode DELPHI}
{$ENDIF}
//{$I StDefine.inc}
unit StDbBarC;
interface
uses
{$IFDEF FPC}
LCLIntf, LCLType, LMessages,
{$ELSE}
Windows, Messages, DbTables,
{$ENDIF}
Classes, //ClipBrd,
Controls, Graphics, SysUtils,
Db, DbCtrls,
StConst, StBarC;
type
TStDbBarCode = class(TStBarCode)
protected {private}
{.Z+}
FDataLink : TFieldDataLink;
procedure DataChange(Sender : TObject);
function GetDataField : string;
function GetDataSource : TDataSource;
procedure SetDataField(const Value : string);
procedure SetDataSource(Value : TDataSource);
public
constructor Create(AOwner : TComponent);
override;
destructor Destroy;
override;
{.Z+}
published
property Code
stored False;
property DataField : string
read GetDataField
write SetDataField;
property DataSource : TDataSource
read GetDataSource
write SetDataSource;
end;
implementation
{*** TStDbBarCode ***}
constructor TStDbBarCode.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
FDataLink := TFieldDataLink.Create;
FDataLink.OnDataChange := DataChange;
end;
procedure TStDbBarCode.DataChange(Sender : TObject);
begin
if FDataLink.Field = nil then
Code := '12345678922'
else
Code := FDataLink.Field.DisplayText;
end;
destructor TStDbBarCode.Destroy;
begin
FDataLink.OnDataChange := nil;
FDataLink.Free;
FDataLink := nil;
inherited Destroy;
end;
function TStDbBarCode.GetDataField : string;
begin
Result := FDataLink.FieldName;
end;
function TStDbBarCode.GetDataSource : TDataSource;
begin
Result := FDataLink.DataSource
end;
procedure TStDbBarCode.SetDataField(const Value : string);
begin
FDataLink.FieldName := Value;
end;
procedure TStDbBarCode.SetDataSource(Value : TDataSource);
begin
FDataLink.DataSource := Value;
end;
end.

133
components/systools/source/db/stdbpnbc.pas
View File

@ -1,133 +0,0 @@
(* ***** BEGIN LICENSE BLOCK *****
* Version: MPL 1.1
*
* The contents of this file are subject to the Mozilla Public License Version
* 1.1 (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
* http://www.mozilla.org/MPL/
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
* for the specific language governing rights and limitations under the
* License.
*
* The Original Code is TurboPower SysTools
*
* The Initial Developer of the Original Code is
* TurboPower Software
*
* Portions created by the Initial Developer are Copyright (C) 1996-2002
* the Initial Developer. All Rights Reserved.
*
* Contributor(s):
*
* ***** END LICENSE BLOCK ***** *)
{*********************************************************}
{* SysTools: StDbPNBC.pas 4.04 *}
{*********************************************************}
{* SysTools: data aware PostNet Bar Code component *}
{*********************************************************}
{$IFDEF FPC}
{$mode DELPHI}
{$ENDIF}
//{$I STDEFINE.INC}
unit StDbPNBC;
interface
uses
{$IFDEF FPC}
LCLIntf, LCLType, LMessages,
{$ELSE}
Windows, Messages, DBTables,
{$ENDIF}
Classes, ClipBrd, Controls, Graphics, SysUtils,
Db, DbCtrls,
StConst, StBarPN;
type
TStDbPNBarCode = class(TStPNBarCode)
protected {private}
{.Z+}
FDataLink : TFieldDataLink;
procedure DataChange(Sender : TObject);
function GetDataField : string;
function GetDataSource : TDataSource;
procedure SetDataField(const Value : string);
procedure SetDataSource(Value : TDataSource);
public
constructor Create(AOwner : TComponent);
override;
destructor Destroy;
override;
{.Z+}
published
property PostalCode
stored False;
property DataField : string
read GetDataField
write SetDataField;
property DataSource : TDataSource
read GetDataSource
write SetDataSource;
end;
implementation
{*** TStDbPNBarCode ***}
constructor TStDbPNBarCode.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
FDataLink := TFieldDataLink.Create;
FDataLink.OnDataChange := DataChange;
end;
procedure TStDbPNBarCode.DataChange(Sender : TObject);
begin
if FDataLink.Field = nil then
PostalCode := '12345'
else
PostalCode := FDataLink.Field.DisplayText;
end;
destructor TStDbPNBarCode.Destroy;
begin
FDataLink.OnDataChange := nil;
FDataLink.Free;
FDataLink := nil;
inherited Destroy;
end;
function TStDbPNBarCode.GetDataField : string;
begin
Result := FDataLink.FieldName;
end;
function TStDbPNBarCode.GetDataSource : TDataSource;
begin
Result := FDataLink.DataSource
end;
procedure TStDbPNBarCode.SetDataField(const Value : string);
begin
FDataLink.FieldName := Value;
end;
procedure TStDbPNBarCode.SetDataSource(Value : TDataSource);
begin
FDataLink.DataSource := Value;
end;
end.