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

tvplanit: Register FlexDatastoreEditor. Replace Ms Sans Serif font in FlexDatastoreEditor by Default font.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4696 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-08 22:09:29 +00:00
parent 44f09011a7
commit ed46df56c4
3 changed files with 21 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,7 +10,7 @@ object frmFieldMapper: TfrmFieldMapper
ClientHeight = 537 ClientHeight = 537
ClientWidth = 409 ClientWidth = 409
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'Default'
OnClose = FormClose OnClose = FormClose
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
@ -23,7 +23,7 @@ object frmFieldMapper: TfrmFieldMapper
Align = alBottom Align = alBottom
ClientHeight = 57 ClientHeight = 57
ClientWidth = 409 ClientWidth = 409
TabOrder = 0 TabOrder = 1
object Button2: TButton object Button2: TButton
Left = 325 Left = 325
Height = 25 Height = 25
@ -42,10 +42,10 @@ object frmFieldMapper: TfrmFieldMapper
ActivePage = TabSheet1 ActivePage = TabSheet1
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 0
TabOrder = 1 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Field Mapping Designer' Caption = 'Field Mapping Designer'
ClientHeight = 454 ClientHeight = 453
ClientWidth = 401 ClientWidth = 401
object Bevel1: TBevel object Bevel1: TBevel
Left = 5 Left = 5
@ -55,15 +55,15 @@ object frmFieldMapper: TfrmFieldMapper
end end
object Label2: TLabel object Label2: TLabel
Left = 10 Left = 10
Height = 13 Height = 14
Top = 36 Top = 36
Width = 116 Width = 118
Caption = 'Available Dataset Fields:' Caption = 'Available Dataset Fields:'
ParentColor = False ParentColor = False
end end
object Label5: TLabel object Label5: TLabel
Left = 35 Left = 35
Height = 13 Height = 14
Top = 329 Top = 329
Width = 74 Width = 74
Caption = 'Field Mappings:' Caption = 'Field Mappings:'
@ -71,15 +71,15 @@ object frmFieldMapper: TfrmFieldMapper
end end
object Label6: TLabel object Label6: TLabel
Left = 242 Left = 242
Height = 13 Height = 14
Top = 36 Top = 36
Width = 137 Width = 139
Caption = 'Available Visual PlanIt Fields:' Caption = 'Available Visual PlanIt Fields:'
ParentColor = False ParentColor = False
end end
object Label1: TLabel object Label1: TLabel
Left = 12 Left = 12
Height = 13 Height = 14
Top = 13 Top = 13
Width = 40 Width = 40
Caption = 'Dataset:' Caption = 'Dataset:'
@ -93,7 +93,7 @@ object frmFieldMapper: TfrmFieldMapper
ItemHeight = 0 ItemHeight = 0
OnClick = DBFieldSelected OnClick = DBFieldSelected
OnKeyPress = DatasetFieldLBKeyPress OnKeyPress = DatasetFieldLBKeyPress
TabOrder = 0 TabOrder = 1
end end
object VPFieldLB: TListBox object VPFieldLB: TListBox
Left = 243 Left = 243
@ -103,7 +103,7 @@ object frmFieldMapper: TfrmFieldMapper
ItemHeight = 0 ItemHeight = 0
OnClick = VpFieldSelected OnClick = VpFieldSelected
OnKeyPress = VPFieldLBKeyPress OnKeyPress = VPFieldLBKeyPress
TabOrder = 1 TabOrder = 3
end end
object FieldMappingsLB: TListBox object FieldMappingsLB: TListBox
Left = 35 Left = 35
@ -113,7 +113,7 @@ object frmFieldMapper: TfrmFieldMapper
ItemHeight = 0 ItemHeight = 0
OnClick = FieldMappingsLBClick OnClick = FieldMappingsLBClick
OnKeyPress = FieldMappingsLBKeyPress OnKeyPress = FieldMappingsLBKeyPress
TabOrder = 2 TabOrder = 4
end end
object btnDeleteMapping: TButton object btnDeleteMapping: TButton
Left = 259 Left = 259
@ -123,16 +123,16 @@ object frmFieldMapper: TfrmFieldMapper
Caption = 'Delete Mapping' Caption = 'Delete Mapping'
Enabled = False Enabled = False
OnClick = btnDeleteMappingClick OnClick = btnDeleteMappingClick
TabOrder = 3 TabOrder = 5
end end
object DatasetCombo: TComboBox object DatasetCombo: TComboBox
Left = 56 Left = 56
Height = 21 Height = 22
Top = 10 Top = 10
Width = 145 Width = 145
ItemHeight = 13 ItemHeight = 14
OnChange = DatasetComboChange OnChange = DatasetComboChange
TabOrder = 4 TabOrder = 0
Text = 'DatasetCombo' Text = 'DatasetCombo'
end end
object btnAddMapping: TBitBtn object btnAddMapping: TBitBtn
@ -143,7 +143,7 @@ object frmFieldMapper: TfrmFieldMapper
Caption = 'Add Field Mapping' Caption = 'Add Field Mapping'
Enabled = False Enabled = False
OnClick = btnAddMappingClick OnClick = btnAddMappingClick
TabOrder = 5 TabOrder = 2
end end
object btnClearMappings: TButton object btnClearMappings: TButton
Left = 259 Left = 259

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

@ -47,6 +47,9 @@ uses
ExtCtrls, StdCtrls, Db, VpData, VpFlxDS, ComCtrls, Buttons; ExtCtrls, StdCtrls, Db, VpData, VpFlxDS, ComCtrls, Buttons;
type type
{ TfrmFieldMapper }
TfrmFieldMapper = class(TForm) TfrmFieldMapper = class(TForm)
Panel1: TPanel; Panel1: TPanel;
Button2: TButton; Button2: TButton;

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

@ -311,9 +311,7 @@ end;
{ register component editors } { register component editors }
RegisterComponentEditor(TVpNavBar, TVpNavBarEditor); RegisterComponentEditor(TVpNavBar, TVpNavBarEditor);
RegisterComponentEditor(TVpControlLink, TVpPrtFmtPropertyEditor); RegisterComponentEditor(TVpControlLink, TVpPrtFmtPropertyEditor);
{$IFNDEF LCL}
RegisterComponentEditor(TVpFlexDataStore, TVpFlexDSEditor); RegisterComponentEditor(TVpFlexDataStore, TVpFlexDSEditor);
{$ENDIF}
{ register the About Box property editor for the Version properties } { register the About Box property editor for the Version properties }
RegisterPropertyEditor(TypeInfo(string), TVpCollectionItem, RegisterPropertyEditor(TypeInfo(string), TVpCollectionItem,