Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Added Word Fields

  • Loading branch information...
commit 17a700cb3b89518329670aaccfa537f016da88a1 1 parent 30893ca
Hokumet authored
6 IhhLed.dpr
View
@@ -23,7 +23,10 @@ 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}
@@ -31,6 +34,5 @@ begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TfrmMain, frmMain);
- Application.CreateForm(TfrmEditBaan, frmEditBaan);
Application.Run;
end.
5 IhhLed.dproj
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>
62 IhhLed.dproj.local
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>
BIN  IhhLed.identcache
View
Binary file not shown
4 Main.dfm
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
17 Main.pas
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);
28 MainAncestor.pas
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);
292 WordFields.dfm
View
@@ -0,0 +1,292 @@
+object frmKeywords: TfrmKeywords
+ Left = 195
+ Top = 108
+ BorderStyle = bsDialog
+ Caption = 'Anahtar Kelimeler'
+ ClientHeight = 248
+ ClientWidth = 485
+ Color = clBtnFace
+ ParentFont = True
+ OldCreateOrder = True
+ Position = poScreenCenter
+ PixelsPerInch = 96
+ TextHeight = 13
+ object Panel1: TPanel
+ Left = 0
+ Top = 0
+ Width = 485
+ Height = 214
+ Align = alClient
+ BevelOuter = bvNone
+ BorderWidth = 5
+ ParentColor = True
+ TabOrder = 0
+ ExplicitWidth = 569
+ ExplicitHeight = 266
+ object pageControl: TPageControl
+ Left = 5
+ Top = 5
+ Width = 475
+ Height = 204
+ ActivePage = tshAlg
+ Align = alClient
+ TabOrder = 0
+ ExplicitWidth = 559
+ ExplicitHeight = 256
+ object tshAlg: TTabSheet
+ Caption = 'Genel Adres'
+ ExplicitWidth = 551
+ ExplicitHeight = 228
+ object Label1: TLabel
+ Left = 3
+ Top = 16
+ Width = 468
+ Height = 13
+ Caption =
+ 'Word programinda kullanabileceginiz anahtar s'#246'zc'#252'kler: Bu s'#246'zc'#252'k' +
+ 'ler yerine asil veriler ge'#231'ecektir '#39
+ end
+ object memAlg: TMemo
+ Left = 3
+ Top = 35
+ Width = 238
+ Height = 134
+ Enabled = False
+ Lines.Strings = (
+ 'Sira No = __LidNr__'
+ 'Aid Soyadi = __Naam__'
+ 'Adres = __Straat__'
+ 'Posta kodu = __PostCode__'
+ 'Sehir = __Plaats__'
+ 'Kategori = __Categorie__'
+ 'Telefon = __Telefoonnr__'
+ 'E-mail = __Email__'
+ 'A'#231'iklama = __Omschrijving__')
+ TabOrder = 0
+ end
+ end
+ object tshDon: TTabSheet
+ Caption = 'Aylik Bagis'
+ ExplicitWidth = 551
+ ExplicitHeight = 228
+ object Label2: TLabel
+ Left = 3
+ Top = 16
+ Width = 468
+ Height = 13
+ Caption =
+ 'Word programinda kullanabileceginiz anahtar s'#246'zc'#252'kler: Bu s'#246'zc'#252'k' +
+ 'ler yerine asil veriler ge'#231'ecektir '#39
+ end
+ object Memo1: TMemo
+ Left = 3
+ Top = 35
+ Width = 238
+ Height = 134
+ Lines.Strings = (
+ 'Sira No = __LidNr__'
+ 'Aid Soyadi = __Naam__'
+ 'Adres = __Straat__'
+ 'Posta kodu = __PostCode__'
+ 'Sehir = __Plaats__'
+ 'Kategori = __Categorie__'
+ 'Telefon = __Telefoonnr__'
+ 'E-mail = __Email__'
+ 'A'#231'iklama = __Omschrijving__')
+ TabOrder = 0
+ end
+ end
+ object tshWees: TTabSheet
+ Caption = 'Yetim Kardes Aile'
+ ExplicitWidth = 551
+ ExplicitHeight = 228
+ object Label3: TLabel
+ Left = 3
+ Top = 16
+ Width = 468
+ Height = 13
+ Caption =
+ 'Word programinda kullanabileceginiz anahtar s'#246'zc'#252'kler: Bu s'#246'zc'#252'k' +
+ 'ler yerine asil veriler ge'#231'ecektir '#39
+ end
+ object Memo2: TMemo
+ Left = 3
+ Top = 35
+ Width = 238
+ Height = 134
+ Lines.Strings = (
+ 'Sira No = __LidNr__'
+ 'Aid Soyadi = __Naam__'
+ 'Adres = __Straat__'
+ 'Posta kodu = __PostCode__'
+ 'Sehir = __Plaats__'
+ 'Kategori = __Categorie__'
+ 'Telefon = __Telefoonnr__'
+ 'E-mail = __Email__'
+ 'A'#231'iklama = __Omschrijving__')
+ TabOrder = 0
+ end
+ end
+ object tshArm: TTabSheet
+ Caption = 'Fair Kardes Aile'
+ ImageIndex = 3
+ ExplicitWidth = 551
+ ExplicitHeight = 228
+ object Label4: TLabel
+ Left = 3
+ Top = 16
+ Width = 468
+ Height = 13
+ Caption =
+ 'Word programinda kullanabileceginiz anahtar s'#246'zc'#252'kler: Bu s'#246'zc'#252'k' +
+ 'ler yerine asil veriler ge'#231'ecektir '#39
+ end
+ object Memo3: TMemo
+ Left = 3
+ Top = 35
+ Width = 238
+ Height = 134
+ Lines.Strings = (
+ 'Sira No = __LidNr__'
+ 'Aid Soyadi = __Naam__'
+ 'Adres = __Straat__'
+ 'Posta kodu = __PostCode__'
+ 'Sehir = __Plaats__'
+ 'Kategori = __Categorie__'
+ 'Telefon = __Telefoonnr__'
+ 'E-mail = __Email__'
+ 'A'#231'iklama = __Omschrijving__')
+ TabOrder = 0
+ end
+ end
+ object tshVrijw: TTabSheet
+ Caption = 'G'#246'n'#252'll'#252
+ ImageIndex = 4
+ ExplicitWidth = 551
+ ExplicitHeight = 228
+ object Label5: TLabel
+ Left = 3
+ Top = 16
+ Width = 468
+ Height = 13
+ Caption =
+ 'Word programinda kullanabileceginiz anahtar s'#246'zc'#252'kler: Bu s'#246'zc'#252'k' +
+ 'ler yerine asil veriler ge'#231'ecektir '#39
+ end
+ object Memo4: TMemo
+ Left = 3
+ Top = 35
+ Width = 238
+ Height = 134
+ Lines.Strings = (
+ 'Sira No = __LidNr__'
+ 'Aid Soyadi = __Naam__'
+ 'Adres = __Straat__'
+ 'Posta kodu = __PostCode__'
+ 'Sehir = __Plaats__'
+ 'Kategori = __Categorie__'
+ 'Telefon = __Telefoonnr__'
+ 'E-mail = __Email__'
+ 'A'#231'iklama = __Omschrijving__')
+ TabOrder = 0
+ end
+ end
+ object tshSpaa: TTabSheet
+ Caption = 'Kumbara'
+ ImageIndex = 5
+ ExplicitWidth = 551
+ ExplicitHeight = 228
+ object Label6: TLabel
+ Left = 3
+ Top = 16
+ Width = 463
+ Height = 13
+ Caption =
+ 'Word programinda kullanabileceginiz anahtar s'#246'zc'#252'kler: Bu s'#246'zc'#252'k' +
+ 'ler yerine asil veriler ge'#231'ecektir'
+ end
+ object Memo5: TMemo
+ Left = 3
+ Top = 35
+ Width = 238
+ Height = 134
+ Lines.Strings = (
+ 'Sira No = __LidNr__'
+ 'Aid Soyadi = __Naam__'
+ 'Adres = __Straat__'
+ 'Posta kodu = __PostCode__'
+ 'Sehir = __Plaats__'
+ 'Kategori = __Categorie__'
+ 'Telefon = __Telefoonnr__'
+ 'E-mail = __Email__'
+ 'A'#231'iklama = __Omschrijving__')
+ TabOrder = 0
+ end
+ end
+ object tshBeurs: TTabSheet
+ Caption = 'Burs'
+ ImageIndex = 6
+ ExplicitWidth = 551
+ ExplicitHeight = 228
+ object Label7: TLabel
+ Left = 3
+ Top = 16
+ Width = 463
+ Height = 13
+ Caption =
+ 'Word programinda kullanabileceginiz anahtar s'#246'zc'#252'kler: Bu s'#246'zc'#252'k' +
+ 'ler yerine asil veriler ge'#231'ecektir'
+ end
+ object Memo6: TMemo
+ Left = 3
+ Top = 35
+ Width = 238
+ Height = 134
+ Lines.Strings = (
+ 'Sira No = __LidNr__'
+ 'Aid Soyadi = __Naam__'
+ 'Adres = __Straat__'
+ 'Posta kodu = __PostCode__'
+ 'Sehir = __Plaats__'
+ 'Kategori = __Categorie__'
+ 'Telefon = __Telefoonnr__'
+ 'E-mail = __Email__'
+ 'A'#231'iklama = __Omschrijving__')
+ TabOrder = 0
+ end
+ end
+ end
+ end
+ object Panel2: TPanel
+ Left = 0
+ Top = 214
+ Width = 485
+ Height = 34
+ Align = alBottom
+ BevelOuter = bvNone
+ ParentColor = True
+ TabOrder = 1
+ ExplicitTop = 266
+ ExplicitWidth = 569
+ object OKBtn: TButton
+ Left = 321
+ Top = 2
+ Width = 75
+ Height = 25
+ Caption = 'OK'
+ Default = True
+ ModalResult = 1
+ TabOrder = 0
+ end
+ object CancelBtn: TButton
+ Left = 401
+ Top = 2
+ Width = 75
+ Height = 25
+ Cancel = True
+ Caption = 'Cancel'
+ ModalResult = 2
+ TabOrder = 1
+ end
+ end
+end
50 WordFields.pas
View
@@ -0,0 +1,50 @@
+unit WordFields;
+
+interface
+
+uses Winapi.Windows, System.SysUtils, System.Classes, Vcl.Graphics, Vcl.Forms,
+ Vcl.Controls, Vcl.StdCtrls, Vcl.Buttons, Vcl.ComCtrls, Vcl.ExtCtrls;
+
+type
+ TfrmKeywords = class(TForm)
+ Panel1: TPanel;
+ Panel2: TPanel;
+ pageControl: TPageControl;
+ tshAlg: TTabSheet;
+ tshDon: TTabSheet;
+ tshWees: TTabSheet;
+ OKBtn: TButton;
+ CancelBtn: TButton;
+ tshArm: TTabSheet;
+ tshVrijw: TTabSheet;
+ tshSpaa: TTabSheet;
+ tshBeurs: TTabSheet;
+ memAlg: TMemo;
+ Label1: TLabel;
+ Label2: TLabel;
+ Memo1: TMemo;
+ Label3: TLabel;
+ Memo2: TMemo;
+ Label4: TLabel;
+ Memo3: TMemo;
+ Label5: TLabel;
+ Memo4: TMemo;
+ Label6: TLabel;
+ Memo5: TMemo;
+ Label7: TLabel;
+ Memo6: TMemo;
+ private
+ { Private declarations }
+ public
+ { Public declarations }
+ end;
+
+var
+ frmKeywords: TfrmKeywords;
+
+implementation
+
+{$R *.dfm}
+
+end.
+
6 interfaces/impl/AlgemeenImpl.dfm
View
@@ -6,9 +6,11 @@ inherited frmAlgemeenImpl: TfrmAlgemeenImpl
TextHeight = 13
inherited Panel3: TPanel
Top = 380
+ ExplicitTop = 380
end
inherited pnlLabels: TPanel
Height = 380
+ ExplicitHeight = 380
inherited Label11: TLabel
Top = 216
ExplicitTop = 216
@@ -31,6 +33,7 @@ inherited frmAlgemeenImpl: TfrmAlgemeenImpl
end
inherited pnlFields: TPanel
Height = 380
+ ExplicitHeight = 380
inherited edtTelefoon: TEdit
Top = 208
ExplicitTop = 208
@@ -58,4 +61,7 @@ inherited frmAlgemeenImpl: TfrmAlgemeenImpl
TextHint = 'Categorie'
end
end
+ inherited CurrQuery: TADOQuery
+ Left = 72
+ end
end
Please sign in to comment.
Something went wrong with that request. Please try again.