Permalink
Browse files

Added Word Fields

  • Loading branch information...
1 parent 30893ca commit 17a700cb3b89518329670aaccfa537f016da88a1 @Hokumet committed Jun 1, 2012
Showing with 428 additions and 42 deletions.
  1. +4 −2 IhhLed.dpr
  2. +5 −0 IhhLed.dproj
  3. +35 −27 IhhLed.dproj.local
  4. BIN IhhLed.identcache
  5. +2 −2 Main.dfm
  6. +12 −5 Main.pas
  7. +22 −6 MainAncestor.pas
  8. +292 −0 WordFields.dfm
  9. +50 −0 WordFields.pas
  10. +6 −0 interfaces/impl/AlgemeenImpl.dfm
View
@@ -23,14 +23,16 @@ uses
SpaarpotImpl in 'interfaces\impl\SpaarpotImpl.pas' {frmSpaarpotImpl},
VrijwilligerImpl in 'interfaces\impl\VrijwilligerImpl.pas' {frmVrijwilligerImpl},
SettingImp in 'impl\SettingImp.pas' {frmSettingImp},
- EditBaan in 'lists\EditBaan.pas' {frmEditBaan};
+ EditBaan in 'lists\EditBaan.pas' {frmEditBaan},
+ Vcl.Themes,
+ Vcl.Styles,
+ WordFields in 'WordFields.pas' {frmKeywords};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TfrmMain, frmMain);
- Application.CreateForm(TfrmEditBaan, frmEditBaan);
Application.Run;
end.
View
@@ -74,6 +74,8 @@
<DCC_RemoteDebug>true</DCC_RemoteDebug>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+ <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+ <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<DCC_ExeOutput>.\bin</DCC_ExeOutput>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
@@ -156,6 +158,9 @@
<Form>frmEditBaan</Form>
<FormType>dfm</FormType>
</DCCReference>
+ <DCCReference Include="WordFields.pas">
+ <Form>frmKeywords</Form>
+ </DCCReference>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
View
@@ -1,50 +1,58 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
- <Transaction>1899-12-30 00:00:00.000.904,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\ISpaarpot.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.604,=d:\users\kilichik\Documents\RAD Studio\Projects\Unit1.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.874,D:\prive\ontw\Ihh-Adm\Commons\interfaces\ISpaarpot.pas=</Transaction>
- <Transaction>1899-12-30 00:00:00.000.336,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\impl\AlgemeenImpl.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.796,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\ISpaarpot.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.125,=D:\prive\ontw\Ihh-Adm\Commons\HEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.721,=D:\prive\ontw\Ihh-Adm\Commons\HEdit.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.383,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\impl\BroederImpl.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.672,=D:\prive\ontw\Ihh-Adm\Commons\lists\EditDoel.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.604,=d:\users\kilichik\Documents\RAD Studio\Projects\Unit1.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.509,D:\prive\ontw\Ihh-Led\Commons\lists\EditBaan.pas=D:\prive\ontw\Ihh-Led\Commons\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.425,=D:\prive\ontw\Ihh-Adm\Commons\impl\SettingImp.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.125,=D:\prive\ontw\Ihh-Adm\Commons\HEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.310,D:\prive\ontw\Ihh-Adm\Commons\HEdit.pas=</Transaction>
- <Transaction>1899-12-30 00:00:00.000.387,=D:\prive\ontw\Ihh-Led\Commons\Unit1.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.502,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\impl\VrijwilligerImpl.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.856,D:\prive\ontw\Ihh-Adm\Commons\interfaces\IDonatie.pas=</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.436,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\IDonatie.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.856,D:\prive\ontw\Ihh-Adm\Commons\IhhAdm.dproj=d:\users\kilichik\Documents\RAD Studio\Projects\Project2.dproj</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.383,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\impl\BroederImpl.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.672,=D:\prive\ontw\Ihh-Adm\Commons\lists\EditDoel.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.874,D:\prive\ontw\Ihh-Adm\Commons\interfaces\ISpaarpot.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.199,=D:\prive\ontw\Ihh-Adm\Commons\MainAncestor.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.509,D:\prive\ontw\Ihh-Led\Commons\Unit1.pas=D:\prive\ontw\Ihh-Led\Commons\lists\EditBaan.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.509,D:\prive\ontw\Ihh-Led\Commons\Unit1.dfm=D:\prive\ontw\Ihh-Led\Commons\lists\EditBaan.dfm</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.342,D:\prive\ontw\Ihh-Adm\Commons\MainAncestor.pas=</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.465,D:\prive\ontw\Ihh-Led\Commons\IhhLed.dproj=D:\prive\ontw\Ihh-Led\Commons\IhhAdm.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.116,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\IAlgemeen.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.387,=D:\prive\ontw\Ihh-Led\Commons\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,=D:\prive\ontw\Ihh-Adm\Commons\MainAncestor.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.276,D:\prive\ontw\Ihh-Adm\Commons\EditAncestor.pas=</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.336,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\impl\AlgemeenImpl.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.796,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\ISpaarpot.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.904,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\ISpaarpot.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.093,=D:\prive\ontw\Ihh-Adm\Commons\EditAncestor.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.276,D:\prive\ontw\Ihh-Adm\Commons\EditAncestor.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.208,=D:\prive\ontw\Ihh-Adm\Commons\EditAncestor.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.342,D:\prive\ontw\Ihh-Adm\Commons\MainAncestor.pas=</Transaction>
- <Transaction>1899-12-30 00:00:00.000.465,D:\prive\ontw\Ihh-Led\Commons\IhhAdm.dproj=D:\prive\ontw\Ihh-Led\Commons\IhhLed.dproj</Transaction>
- <Transaction>1899-12-30 00:00:00.000.856,D:\prive\ontw\Ihh-Adm\Commons\interfaces\IDonatie.pas=</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.269,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\IDonatie.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.646,=D:\prive\ontw\Ihh-Adm\Commons\lists\EditBetaling.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.856,d:\users\kilichik\Documents\RAD Studio\Projects\Project2.dproj=D:\prive\ontw\Ihh-Adm\Commons\IhhAdm.dproj</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.463,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\impl\SpaarpotImpl.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.357,D:\prive\ontw\Ihh-Adm\Commons\PasswordAncestor.pas=</Transaction>
- <Transaction>1899-12-30 00:00:00.000.511,=D:\prive\ontw\Ihh-Adm\Commons\PasswordAncestor.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.826,=D:\prive\ontw\Ihh-Adm\Commons\PasswordAncestor.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.511,=D:\prive\ontw\Ihh-Adm\Commons\PasswordAncestor.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.026,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\IVrijwilliger.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.449,=D:\prive\ontw\Ihh-Adm\Commons\Main.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.509,D:\prive\ontw\Ihh-Led\Commons\lists\EditBaan.dfm=D:\prive\ontw\Ihh-Led\Commons\Unit1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\impl\DonatieImpl.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.449,=D:\prive\ontw\Ihh-Adm\Commons\Main.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.324,D:\prive\ontw\Ihh-Adm\Commons\Main.pas=</Transaction>
- <Transaction>1899-12-30 00:00:00.000.463,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\impl\SpaarpotImpl.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.442,=D:\prive\ontw\Ihh-Adm\Commons\Main.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.700,=D:\prive\ontw\Ihh-Adm\Commons\lists\EditLand.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.432,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\IBroeder.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.830,D:\prive\ontw\Ihh-Adm\Commons\interfaces\IBroeder.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.373,D:\prive\ontw\Ihh-Adm\Commons\SettingAncestor.pas=</Transaction>
- <Transaction>1899-12-30 00:00:00.000.538,=D:\prive\ontw\Ihh-Adm\Commons\SettingAncestor.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.502,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\impl\VrijwilligerImpl.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.269,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\IDonatie.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.436,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\IDonatie.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.118,=D:\prive\ontw\Ihh-Adm\Commons\SettingAncestor.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.728,=D:\prive\ontw\Ihh-Adm\Commons\lists\EditProject.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.700,=D:\prive\ontw\Ihh-Adm\Commons\lists\EditLand.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.538,=D:\prive\ontw\Ihh-Adm\Commons\SettingAncestor.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.646,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\IBroeder.pas</Transaction>
- <Transaction>1899-12-30 00:00:00.000.830,D:\prive\ontw\Ihh-Adm\Commons\interfaces\IBroeder.pas=</Transaction>
- <Transaction>1899-12-30 00:00:00.000.432,=D:\prive\ontw\Ihh-Adm\Commons\interfaces\IBroeder.pas</Transaction>
+ <Transaction>1899-12-30 00:00:00.000.728,=D:\prive\ontw\Ihh-Adm\Commons\lists\EditProject.pas</Transaction>
+ <Transaction>2012-05-31 23:29:45.513,=D:\prive\ontw\Ihh-Led\Commons\DUALLIST.pas</Transaction>
+ <Transaction>2012-05-31 23:30:09.565,=D:\prive\ontw\Ihh-Led\Commons\OKCNHLP2.pas</Transaction>
+ <Transaction>2012-05-31 23:30:23.215,=c:\program files\embarcadero\rad studio\9.0\ObjRepos\EN\DelphiWin32\OKCNHLP1.PAS</Transaction>
+ <Transaction>2012-05-31 23:30:23.294,=D:\prive\ontw\Ihh-Led\Commons\Unit1.pas</Transaction>
+ <Transaction>2012-05-31 23:30:44.922,=D:\prive\ontw\Ihh-Led\Commons\TABPGDLG.pas</Transaction>
+ <Transaction>2012-05-31 23:31:39.183,D:\prive\ontw\Ihh-Led\Commons\WordFields.pas=D:\prive\ontw\Ihh-Led\Commons\TABPGDLG.pas</Transaction>
+ <Transaction>2012-05-31 23:31:39.183,D:\prive\ontw\Ihh-Led\Commons\WordFields.dfm=D:\prive\ontw\Ihh-Led\Commons\TABPGDLG.dfm</Transaction>
+ <Transaction>2012-05-31 23:48:54.332,c:\program files\embarcadero\rad studio\9.0\ObjRepos\EN\DelphiWin32\OKCNHLP1.PAS=</Transaction>
</Transactions>
</BorlandProject>
View
Binary file not shown.
View
@@ -550,7 +550,7 @@ inherited frmMain: TfrmMain
end
inherited imgMainButtons: TImageList
Bitmap = {
- 494C01011F002200F40020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+ 494C01011F002200FC0020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000800000000001000001002000000000000000
0200000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
@@ -4783,7 +4783,7 @@ inherited frmMain: TfrmMain
end
inherited imgPmSmall: TImageList
Bitmap = {
- 494C010113001800F40010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+ 494C010113001800FC0010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
0000000000003600000028000000400000005000000001002000000000000050
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
View
@@ -157,7 +157,7 @@ implementation
uses ComObj, SettingImp, AlgemeenImpl, VrijwilligerImpl, SpaarpotImpl,
DonatieImpl, BroederImpl, EditLand, EditBetaling, EditDoel, EditProject,
- EditBaan;
+ EditBaan, WordFields;
Const
wdSendToNewDocument = 0;
@@ -212,6 +212,7 @@ procedure TfrmMain.btnArmBroederClick(Sender: TObject);
procedure TfrmMain.btnBeginClick(Sender: TObject);
begin
lvwItems.HelpKeyword := btnBegin.HelpKeyword;
+ //lvwItems.SetFocus;
RefreshData(true);
//inherited;
@@ -571,6 +572,12 @@ procedure TfrmMain.Keywords1Click(Sender: TObject);
+ 'Yukaridaki sözcükler Word dosyanizda 4 tane __ __ arasina aliniz. '+ #13
+ 'Örnek ==> __Naam__ veya __LidNr__ veya __Email__ ',
mtCustom, [mbOK], 0 );
+ frmKeywords := TfrmKeywords.Create(Self);
+ try
+ frmKeywords.ShowModal();
+ finally
+ frmKeywords.Free;
+ end;
end;
@@ -718,7 +725,7 @@ procedure TfrmMain.RefreshExtraData();
begin
pnlExtra.Visible := true;
lvwExtra.Columns.Clear;
- FieldCaptionAndFieldName.Clear;
+ ExtraFieldCaptionAndFieldName.Clear;
lvwExtra.Columns.BeginUpdate;
if lvwExtra.HelpKeyword = 'Baan' then begin
@@ -789,12 +796,12 @@ procedure TfrmMain.ReloadExtra;
for X := 0 to lvwExtra.Columns.Count -1 do begin
column := lvwExtra.Columns.Items[X];
if X = 0 then
- LI.Caption := ExtraTable.FieldByName(FieldCaptionAndFieldName.Values[column.DisplayName]).AsString
+ LI.Caption := ExtraTable.FieldByName(ExtraFieldCaptionAndFieldName.Values[column.DisplayName]).AsString
else begin
if FieldCaptionAndFieldType.Values[column.DisplayName] = 'curr' then
- LI.SubItems.Add('€ '+FormatFloat('0.00',ExtraTable.FieldByName(FieldCaptionAndFieldName.Values[column.DisplayName]).AsFloat))
+ LI.SubItems.Add('€ '+FormatFloat('0.00',ExtraTable.FieldByName(ExtraFieldCaptionAndFieldName.Values[column.DisplayName]).AsFloat))
else
- LI.SubItems.Add(ExtraTable.FieldByName(FieldCaptionAndFieldName.Values[column.DisplayName]).AsString);
+ LI.SubItems.Add(ExtraTable.FieldByName(ExtraFieldCaptionAndFieldName.Values[column.DisplayName]).AsString);
end;
end;
LI.Data := Pointer(ExtraTable.FieldByName('ID').asInteger);
View
@@ -81,10 +81,11 @@ TfrmMainAncestor = class(TForm)
procedure TrayMessage(var Msg: TMessage); message WM_ICONTRAY;
procedure Initialize(var Message: TMessage); message WM_USER;
procedure LoadDatabase;
-
protected
FieldCaptionAndFieldName: TStringList;
FieldCaptionAndFieldType: TStringList;
+ ExtraFieldCaptionAndFieldName: TStringList;
+ ExtraFieldCaptionAndFieldType: TStringList;
DatabaseLocation: String;
DatabaseName: String;
objectType: String;
@@ -182,6 +183,9 @@ procedure TfrmMainAncestor.FormCreate(Sender: TObject);
FieldCaptionAndFieldName := TStringList.Create;
FieldCaptionAndFieldType := TStringList.Create;
+ ExtraFieldCaptionAndFieldName := TStringList.Create;
+ ExtraFieldCaptionAndFieldType := TStringList.Create;
+
ReloadDatabase;
end;
@@ -462,15 +466,25 @@ procedure TfrmMainAncestor.addColumn(CaptionName, FieldName, FieldType: string;
var
column: TListColumn;
begin
- if lvw = nil then
- column := lvwItems.Columns.Add
- else
+ if lvw = nil then begin
+ column := lvwItems.Columns.Add;
+ FieldCaptionAndFieldName.Values[CaptionName] := FieldName;
+ FieldCaptionAndFieldType.Values[CaptionName] := FieldType;
+ end
+ else begin
column := lvw.Columns.Add;
+ if lvw.Name = 'lvwItems' then begin
+ FieldCaptionAndFieldName.Values[CaptionName] := FieldName;
+ FieldCaptionAndFieldType.Values[CaptionName] := FieldType;
+ end
+ else begin
+ ExtraFieldCaptionAndFieldName.Values[CaptionName] := FieldName;
+ ExtraFieldCaptionAndFieldType.Values[CaptionName] := FieldType;
+ end;
+ end;
column.Caption := CaptionName;
column.Width := Size;
column.alignment := alignment;
- FieldCaptionAndFieldName.Values[CaptionName] := FieldName;
- FieldCaptionAndFieldType.Values[CaptionName] := FieldType;
end;
@@ -536,6 +550,8 @@ procedure TfrmMainAncestor.FormDestroy(Sender: TObject);
DBCConnection.Close;
FieldCaptionAndFieldName.Free;
FieldCaptionAndFieldType.Free;
+ ExtraFieldCaptionAndFieldName.Free;
+ ExtraFieldCaptionAndFieldType.Free;
end;
procedure TfrmMainAncestor.Initialize(var Message: TMessage);
Oops, something went wrong.

0 comments on commit 17a700c

Please sign in to comment.