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

tvplanit: Add missing BaseDatastore and FlexDatastore to package. Some cosmetics.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4682 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-07 15:09:01 +00:00
parent 45857a9f4c
commit ff069969f1
14 changed files with 87 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/tvplanit/packages/v103_lazarus.lpk
View File

@ -13,11 +13,12 @@
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
</CompilerOptions>
<Files Count="61">
<Files Count="63">
<Item1>
<Filename Value="../source/vpabout.pas"/>
<UnitName Value="VpAbout"/>
@ -263,6 +264,14 @@
<Filename Value="../source/vpbase.res"/>
<Type Value="Binary"/>
</Item61>
<Item62>
<Filename Value="../source/vpflxds.pas"/>
<UnitName Value="VpFlxDS"/>
</Item62>
<Item63>
<Filename Value="../source/vpflxdsed1.pas"/>
<UnitName Value="VpFlxDsEd1"/>
</Item63>
</Files>
<RequiredPkgs Count="3">
<Item1>

6
components/tvplanit/source/vpabout.pas
View File

@ -98,8 +98,10 @@ type
implementation
{$IFNDEF LCL}
{$R *.dfm}
{$IFDEF LCL}
{$R *.lfm}
{$ELSE}
{$R *.dfm}
{$ENDIF}
uses

15
components/tvplanit/source/vpalarmdlg.pas
View File

@ -35,7 +35,7 @@ interface
uses
{$IFDEF LCL}
LMessages,LCLProc,LCLType,LCLIntf,LResources,
LMessages, LCLProc, LCLType, LCLIntf, LResources,
{$ELSE}
Windows,Messages,
{$ENDIF}
@ -95,8 +95,10 @@ type
implementation
{$IFNDEF LCL}
{$R *.DFM}
{$IFDEF LCL}
{$R *.LFM}
{$ELSE}
{$R *.DFM}
{$ENDIF}
uses VpSR;
@ -282,13 +284,6 @@ begin
Self.Height := 210;
OpenItemBtn.SetFocus;
end;
(*
initialization
{$IFDEF LCL}
{$I vpalarmdlg.lrs}
{$ENDIF}
*)
end.

14
components/tvplanit/source/vpbase.pas
View File

@ -34,17 +34,18 @@ interface
uses
{$IFDEF LCL}
LMessages,LCLProc,LCLType, LResources,
LMessages, LCLProc, LCLType, LResources,
{$ELSE}
Windows,
{$ENDIF}
Messages,Classes, Graphics, Controls, Dialogs, Forms, StdCtrls,
Messages,
Classes, Graphics, Controls, Dialogs, Forms, StdCtrls,
ExtCtrls, SysUtils, VpConst,
VpSR;
const
{Message base}
Vp_First = WM_USER;//$7DF0; {Sets base for all Vp messages}
Vp_First = WM_USER; //$7DF0; {Sets base for all Vp messages}
const
{Custom message types}
@ -960,13 +961,6 @@ begin
end;
end;
{=====}
(*
//soenr ich habe das hinzugefügt
{$IFDEF FPC}
initialization
{$i ../source/vpbase.lrs}
{$ENDIF}
*)
end.

4
components/tvplanit/source/vpbaseds.pas
View File

@ -35,7 +35,7 @@ interface
uses
{$IFDEF LCL}
LMessages,LCLProc,LCLIntf,
LMessages, LCLProc, LCLIntf,
{$ELSE}
Windows,
{$ENDIF}
@ -228,7 +228,7 @@ type
procedure DeregisterAllWatchers;
procedure DeregisterWatcher (Watcher : THandle);
function GetNextID(TableName: string): int64; virtual; abstract;
function GetNextID(TableName: string): Integer; virtual; abstract;
property Resources: TVpResources read FResources;
procedure Load; virtual;
procedure LoadEvents; virtual; abstract;

6
components/tvplanit/source/vpcalendar.pas
View File

@ -26,7 +26,7 @@
{* *}
{* ***** END LICENSE BLOCK ***** *}
{$I Vp.INC}
{$I vp.inc}
unit VpCalendar;
{-Calendar component}
@ -1862,7 +1862,7 @@ procedure TVpCustomCalendar.SetBorderStyle(Value : TBorderStyle);
begin
if Value <> FBorderStyle then begin
FBorderStyle := Value;
RecreateWnd{$IFDEF LCL}(self){$ENDIF};
RecreateWnd(Self); { *Converted from RecreateWnd* }
end;
end;
{=====}
@ -1986,7 +1986,7 @@ procedure TVpCustomCalendar.SetWantDblClicks(Value : Boolean);
begin
if Value <> FWantDblClicks then begin
FWantDblClicks := Value;
RecreateWnd{$IFDEF LCL}(Self){$ENDIF};
RecreateWnd(Self); { *Converted from RecreateWnd* }
end;
end;
{=====}

5
components/tvplanit/source/vpconst.pas
View File

@ -29,6 +29,11 @@
{.$I Vp.INC}
unit VpConst;
{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}
{-Versioning defines and methods}
interface

12
components/tvplanit/source/vpflxdsed1.lfm
View File

@ -14,7 +14,9 @@ object frmFieldMapper: TfrmFieldMapper
OnClose = FormClose
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.7'
object Panel1: TPanel
Left = 0
Height = 57
Top = 480
Width = 409
@ -33,7 +35,9 @@ object frmFieldMapper: TfrmFieldMapper
end
end
object PageControl1: TPageControl
Left = 0
Height = 480
Top = 0
Width = 409
ActivePage = TabSheet1
Align = alClient
@ -86,7 +90,7 @@ object frmFieldMapper: TfrmFieldMapper
Height = 255
Top = 56
Width = 145
ItemHeight = 13
ItemHeight = 0
OnClick = DBFieldSelected
OnKeyPress = DatasetFieldLBKeyPress
TabOrder = 0
@ -96,7 +100,7 @@ object frmFieldMapper: TfrmFieldMapper
Height = 255
Top = 56
Width = 145
ItemHeight = 13
ItemHeight = 0
OnClick = VpFieldSelected
OnKeyPress = VPFieldLBKeyPress
TabOrder = 1
@ -106,7 +110,7 @@ object frmFieldMapper: TfrmFieldMapper
Height = 100
Top = 349
Width = 217
ItemHeight = 13
ItemHeight = 0
OnClick = FieldMappingsLBClick
OnKeyPress = FieldMappingsLBKeyPress
TabOrder = 2
@ -126,7 +130,6 @@ object frmFieldMapper: TfrmFieldMapper
Height = 21
Top = 10
Width = 145
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
ItemHeight = 13
OnChange = DatasetComboChange
TabOrder = 4
@ -139,7 +142,6 @@ object frmFieldMapper: TfrmFieldMapper
Width = 69
Caption = 'Add Field Mapping'
Enabled = False
NumGlyphs = 0
OnClick = btnAddMappingClick
TabOrder = 5
end

23
components/tvplanit/source/vpflxdsed1.pas
View File

@ -38,9 +38,13 @@ interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
{$IFNDEF RUNTIMETEST}
{$IFDEF VERSION6} DesignIntf, DesignEditors, {$ELSE} DsgnIntf, {$ENDIF}
{$IFDEF LCL}
propedits, componenteditors, FormEditingIntf, lclintf, IDEIntf,
{$ELSE}
{$IFDEF VERSION6} DesignIntf, DesignEditors, {$ELSE} DsgnIntf, {$ENDIF}, DBTables,
{$ENDIF}
{$ENDIF} {RUNTIMETEST}
ExtCtrls, StdCtrls, Db, DBTables, VpData, VpFlxDS, ComCtrls, Buttons;
ExtCtrls, StdCtrls, Db, VpData, VpFlxDS, ComCtrls, Buttons;
type
TfrmFieldMapper = class(TForm)
@ -100,7 +104,12 @@ procedure RuntimeTest(FlexDS: TVpFlexDataStore);
{$ENDIF}
implementation
{$R *.DFM}
{$IFDEF LCL}
{$R *.LFM}
{$ELSE}
{$R *.DFM}
{$ENDIF}
uses
vpConst;
@ -141,13 +150,17 @@ end;
{$ELSE} {RUNTIMETEST}
{$IFDEF LCL}
procedure MapDatabaseFields(Designer : TComponentEditorDesigner;
FlexDS : TVpFlexDataStore);
{$ELSE}
{$IFDEF VERSION6}
procedure MapDatabaseFields(Designer : IDesigner;
procedure MapDatabaseFields(Designer : TComponentEditorDesigner;; // was: Designer : IDesigner;
FlexDS : TVpFlexDataStore);
{$ELSE}
procedure MapDatabaseFields(Designer : IFormDesigner;
FlexDS : TVpFlexDataStore);
{$ENDIF}
{$ENDIF}{$ENDIF}
var
frmFieldMapper: TfrmFieldMapper;
begin

10
components/tvplanit/source/vpreg.pas
View File

@ -135,7 +135,7 @@ uses
VpContactGrid, { ContactGrid Component }
VpDateEdit, { DateEdit Component }
VpTaskList, { Task List Component }
// VpFlxDS, { Flexible DataStore }
VpFlxDS, { Flexible DataStore }
VpContactEditDlg, { Contact Edit Dialog Component }
VpTaskEditDlg, { Task Edit Dialog Component }
VpEvntEditDlg, { Event Edit Dialog Component }
@ -149,8 +149,8 @@ uses
VpContactButtons, { - New contact grid button bar component }
{ Designtime Interfaces (Property and Component Editors) }
VpAbout, { About form for the About property editor }
VpNabEd; { component editor for the VpNavBar }
// VpFlxDSEd1; { Field mapper component editor for the FlexDS }
VpNabEd, { component editor for the VpNavBar }
VpFlxDSEd1; { Field mapper component editor for the FlexDS }
(*****************************************************************************)
@ -388,9 +388,9 @@ end;
TVpClock,
TVpCalendar,
TVpNavBar,
{$IFNDEF LCL}
TVpFlexDataStore,
TVpBDEDataStore,
{$IFNDEF LCL}
TVpBDEDataStore, // BDE is not available in Lazarus
{$ENDIF}
TVpControlLink,
TVpPrintPreview,

8
components/tvplanit/source/vpreseditdlg.lfm
View File

@ -24,9 +24,9 @@ object ResEditForm: TResEditForm
ClientWidth = 400
TabOrder = 0
object OKBtn: TButton
Left = 245
Left = 243
Height = 25
Top = 9
Top = 7
Width = 75
Anchors = [akRight, akBottom]
Caption = 'OK'
@ -36,9 +36,9 @@ object ResEditForm: TResEditForm
TabStop = False
end
object CancelBtn: TButton
Left = 324
Left = 322
Height = 25
Top = 9
Top = 7
Width = 75
Anchors = [akRight, akBottom]
Cancel = True

8
components/tvplanit/source/vpreseditdlg.pas
View File

@ -26,7 +26,7 @@
{* *}
{* ***** END LICENSE BLOCK ***** *}
{$I Vp.INC}
{$I vp.inc}
unit VpResEditDlg;
@ -93,7 +93,11 @@ function ExecuteResourceDlg(Resource: TVpResource): Boolean;
implementation
{$IFNDEF LCL}
{$R *.DFM}
{$IFnDEF FPC}
{$R *.dfm}
{$ELSE}
{$R *.lfm}
{$ENDIF}
{$ENDIF}
function ExecuteResourceDlg(Resource: TVpResource): Boolean;

12
components/tvplanit/source/vptaskeditdlg.lfm
View File

@ -25,9 +25,9 @@ object TaskEditForm: TTaskEditForm
ClientWidth = 546
TabOrder = 0
object ResourceNameLbl: TLabel
Left = 8
Left = 6
Height = 16
Top = 12
Top = 10
Width = 100
AutoSize = False
Caption = 'Resource Name'
@ -39,9 +39,9 @@ object TaskEditForm: TTaskEditForm
ParentColor = False
end
object OKBtn: TButton
Left = 389
Left = 387
Height = 25
Top = 8
Top = 6
Width = 75
Anchors = [akTop, akRight]
Caption = 'OK'
@ -50,9 +50,9 @@ object TaskEditForm: TTaskEditForm
TabOrder = 0
end
object CancelBtn: TButton
Left = 467
Left = 465
Height = 25
Top = 8
Top = 6
Width = 75
Anchors = [akTop, akRight]
Cancel = True

8
components/tvplanit/source/vptaskeditdlg.pas
View File

@ -26,7 +26,7 @@
{* *}
{* ***** END LICENSE BLOCK ***** *}
{$I Vp.INC}
{$I vp.inc}
unit VpTaskEditDlg;
{ default task editing dialog }
@ -104,7 +104,11 @@ type
implementation
{$IFNDEF LCL}
{$R *.dfm}
{$IFnDEF FPC}
{$R *.dfm}
{$ELSE}
{$R *.lfm}
{$ENDIF}
{$ENDIF}
{ TTaskEditForm }