From a44a9bb9b417a24eb984cc3afcc3020b0a878f75 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 3 Feb 2008 16:01:04 +0000
Subject: [PATCH] Added TLabel.Create to c bindings.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@341 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 lclbindings/clazhello/clazhello.c          |  8 ++++++++
 lclbindings/lclexports/controlsexports.pas |  4 ++++
 lclbindings/lclexports/lclexports.dpr      |  3 ++-
 lclbindings/lclexports/lclexports.lpi      |  1 -
 lclbindings/lclexports/stdctrlsexports.pas | 15 +++++++++++++++
 lclbindings/lclincludes/stdctrls.h         |  6 ++++++
 6 files changed, 35 insertions(+), 2 deletions(-)

diff --git a/lclbindings/clazhello/clazhello.c b/lclbindings/clazhello/clazhello.c
index 51cca7f84..1393e6821 100644
--- a/lclbindings/clazhello/clazhello.c
+++ b/lclbindings/clazhello/clazhello.c
@@ -12,6 +12,7 @@ AUTHOR: Felipe Monteiro de Carvalho
 
 TFormH MyForm;
 TButtonH MyButton;
+TLabelH MyLabel;
 
 /* Callback for the close button */
 FASTCALL_TNOTIFYEVENT_START(MyButton_OnClick) /* void* Self, TObjectH Sender */
@@ -42,6 +43,13 @@ APPBEGIN()
     TControl_SetOnClick(MyButton, &MyButton_OnClick);
     TControl_SetCaption(MyButton, "Close Button");
 
+    MyLabel = TLabel_Create(MyForm);
+    TWinControl_SetParent(MyLabel, MyForm);
+
+    TControl_SetTop(MyLabel, 50);
+    TControl_SetLeft(MyLabel, 60);
+    TControl_SetCaption(MyLabel, "Toolbox is cool!!!");
+
     /* Enter main loop */
     Application_Run();
 
diff --git a/lclbindings/lclexports/controlsexports.pas b/lclbindings/lclexports/controlsexports.pas
index 7508e7c02..9e0f087f2 100644
--- a/lclbindings/lclexports/controlsexports.pas
+++ b/lclbindings/lclexports/controlsexports.pas
@@ -47,6 +47,8 @@ procedure TWinControl_SetParent(Self: TWinControl; AValue: TWinControl); cdecl;
 
 implementation
 
+{ TControl }
+
 function TControl_GetOnClick(Self: TControl): TNotifyEvent; cdecl;
 begin
   Result := Self.OnClick;
@@ -117,6 +119,8 @@ begin
   Self.Width := AValue;
 end;
 
+{ TWinControl }
+
 function TWinControl_GetParent(Self: TWinControl): TWinControl; cdecl;
 begin
   Result := Self.Parent;
diff --git a/lclbindings/lclexports/lclexports.dpr b/lclbindings/lclexports/lclexports.dpr
index 88b07a476..01a48584b 100644
--- a/lclbindings/lclexports/lclexports.dpr
+++ b/lclbindings/lclexports/lclexports.dpr
@@ -49,7 +49,8 @@ exports
   TCustomForm_Show,
   TForm_Create,
   { StdCtrlsExports }
-  TButton_Create;
+  TButton_Create,
+  TLabel_Create;
 
 begin
 end.
diff --git a/lclbindings/lclexports/lclexports.lpi b/lclbindings/lclexports/lclexports.lpi
index a213cda6e..ca944d4a7 100644
--- a/lclbindings/lclexports/lclexports.lpi
+++ b/lclbindings/lclexports/lclexports.lpi
@@ -14,7 +14,6 @@
     </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
-      <IgnoreBinaries Value="False"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
       <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
     </PublishOptions>
diff --git a/lclbindings/lclexports/stdctrlsexports.pas b/lclbindings/lclexports/stdctrlsexports.pas
index f0ca67124..5dad76b2e 100644
--- a/lclbindings/lclexports/stdctrlsexports.pas
+++ b/lclbindings/lclexports/stdctrlsexports.pas
@@ -20,14 +20,29 @@ uses
   Classes, SysUtils,
   StdCtrls;
 
+{ TButton }
+
 function TButton_Create(TheOwner: TComponent): TButton; cdecl;
 
+{ TLabel }
+
+function TLabel_Create(TheOwner: TComponent): TLabel; cdecl;
+
 implementation
 
+{ TButton }
+
 function TButton_Create(TheOwner: TComponent): TButton; cdecl;
 begin
   Result := TButton.Create(TheOwner);
 end;
 
+{ TLabel }
+
+function TLabel_Create(TheOwner: TComponent): TLabel; cdecl;
+begin
+  Result := TLabel.Create(TheOwner);
+end;
+
 end.
 
diff --git a/lclbindings/lclincludes/stdctrls.h b/lclbindings/lclincludes/stdctrls.h
index 7dfd210f8..feb183a7b 100644
--- a/lclbindings/lclincludes/stdctrls.h
+++ b/lclbindings/lclincludes/stdctrls.h
@@ -26,6 +26,12 @@ typedef void* TButtonH;
 
 __cdecl TButtonH TButton_Create(TComponentH TheOwner);
 
+/* TLabel */
+
+typedef void* TLabelH;
+
+__cdecl TLabelH TLabel_Create(TComponentH TheOwner);
+
 #ifdef __cplusplus
 }
 #endif