published some Font properties, that now works under win32 and gtk1

git-svn-id: trunk@9165 -

components/codetools/laz_xmlstreaming.pas

@@ -381,7 +381,7 @@ end;
 
 procedure TXMLObjectWriter.WriteMethodName(const Name: String);
 begin
-  GetPropertyElement('method-name')['value'] := Name;
+  GetPropertyElement('method')['value'] := Name;
 end;
 
 procedure TXMLObjectWriter.WriteSet(Value: LongInt; SetType: Pointer);
@@ -605,7 +605,9 @@ begin
             Result:=vaTrue
           else
             Result:=vaFalse;
-        end else if FElement.NodeName='set' then
+        end else if FElement.NodeName='method' then
+          Result:=vaIdent
+        else if FElement.NodeName='set' then
           Result:=vaSet
         else if FElement.NodeName='extended' then
           Result:=vaExtended

examples/xmlstreaming/mainunit.lfm

@@ -29,16 +29,6 @@ object StreamAsXMLForm: TStreamAsXMLForm
       Top = 14
       Width = 75
     end
-    object DemoGroupBox: TGroupBox
-      Caption = 'DemoGroupBox'
-      ClientHeight = 150
-      ClientWidth = 353
-      TabOrder = 1
-      Left = 97
-      Height = 167
-      Top = -1
-      Width = 357
-    end
   end
   object DestinationGroupBox: TGroupBox
     Caption = 'DestinationGroupBox'

examples/xmlstreaming/mainunit.lrs

@@ -10,10 +10,7 @@ LazarusResources.Add('TStreamAsXMLForm','FORMDATA',[
   +'TabOrder'#2#0#4'Left'#2#16#6'Height'#3#190#0#3'Top'#2#16#5'Width'#3#213#1#0
   +#7'TButton'#7'Button1'#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#7'Butt'
   +'on1'#8'TabOrder'#2#0#4'Left'#2#12#6'Height'#2#25#3'Top'#2#14#5'Width'#2'K'#0
-  +#0#9'TGroupBox'#12'DemoGroupBox'#7'Caption'#6#12'DemoGroupBox'#12'ClientHeig'
-  +'ht'#3#150#0#11'ClientWidth'#3'a'#1#8'TabOrder'#2#1#4'Left'#2'a'#6'Height'#3
-  +#167#0#3'Top'#2#255#5'Width'#3'e'#1#0#0#0#9'TGroupBox'#19'DestinationGroupBo'
-  +'x'#7'Caption'#6#19'DestinationGroupBox'#12'ClientHeight'#3#203#0#11'ClientW'
-  +'idth'#3#211#1#8'TabOrder'#2#1#4'Left'#2#16#6'Height'#3#220#0#3'Top'#3#210#0
-  +#5'Width'#3#215#1#0#0#0
+  +#0#0#9'TGroupBox'#19'DestinationGroupBox'#7'Caption'#6#19'DestinationGroupBo'
+  +'x'#12'ClientHeight'#3#203#0#11'ClientWidth'#3#211#1#8'TabOrder'#2#1#4'Left'
+  +#2#16#6'Height'#3#220#0#3'Top'#3#210#0#5'Width'#3#215#1#0#0#0
 ]);

examples/xmlstreaming/mainunit.pas

@@ -50,6 +50,13 @@ type
     property MyEnum: TMyEnum read FMyEnum write FMyEnum;
     property MyCollection: TCollection read FMyCollection write FMyCollection;
   end;
+  
+  { TMyGroupBox }
+
+  TMyGroupBox = class(TGroupBox)
+  published
+    procedure AnEvent(Sender: TObject);
+  end;
 
 
   { TStreamAsXMLForm }
@@ -57,7 +64,6 @@ type
   TStreamAsXMLForm = class(TForm)
     Button1: TButton;
     SourceGroupBox: TGroupBox;
-    DemoGroupBox: TGroupBox;
     DestinationGroupBox: TGroupBox;
     procedure FormCreate(Sender: TObject);
   private
@@ -65,6 +71,8 @@ type
     procedure SetFilename(const AValue: string);
   public
     MyComponent: TMyComponent;
+    DemoGroupBox: TMyGroupBox;
+
     procedure WriteComponents;
     procedure ReadComponents;
     procedure OnFindComponentClass(Reader: TReader; const AClassName: string;
@@ -208,6 +216,14 @@ begin
     Name:='MySubComponent';
   end;
   
+  DemoGroupBox:=TMyGroupBox.Create(Self);
+  with DemoGroupBox do begin
+    Name:='DemoGroupBox';
+    SetBounds(100,2,320,180);
+    Parent:=SourceGroupBox;
+    OnClick:=@DemoGroupBox.AnEvent;
+  end;
+  
   // create nested controls
   DemoGroupBox_1:=TGroupBox.Create(DemoGroupBox);
   with DemoGroupBox_1 do begin
@@ -309,7 +325,9 @@ begin
   else if CompareText(AClassName,'TButton')=0 then
     ComponentClass:=TButton
   else if CompareText(AClassName,'TMyComponent')=0 then
-    ComponentClass:=TMyComponent;
+    ComponentClass:=TMyComponent
+  else if CompareText(AClassName,'TMyGroupBox')=0 then
+    ComponentClass:=TMyGroupBox;
   DebugLn('TStreamAsXMLForm.OnFindComponentClass ',AClassName,' ',dbgs(ComponentClass));
 end;
 
@@ -354,6 +372,13 @@ begin
   end;
 end;
 
+{ TMyGroupBox }
+
+procedure TMyGroupBox.AnEvent(Sender: TObject);
+begin
+
+end;
+
 initialization
   {$I mainunit.lrs}
 

ide/revision.inc

@@ -1,2 +1,2 @@
 // Created by Svn2RevisionInc
-const RevisionStr = '8897:8904M';
+const RevisionStr = '9007';

lcl/buttons.pp

@@ -132,6 +132,7 @@ type
     property OnMouseMove;
     property OnMouseUp;
     property OnResize;
+    property ParentFont;
     property ParentShowHint;
     property PopupMenu;
     property ShowHint;

lcl/extctrls.pp

@@ -694,6 +694,7 @@ type
     property Constraints;
     property Ctl3D;
     property Enabled;
+    property Font;
     property ItemIndex;
     property Items;
     property OnChangeBounds;
@@ -708,6 +709,7 @@ type
     property OnMouseMove;
     property OnMouseUp;
     property OnResize;
+    property ParentFont;
     property ParentColor;
     property ParentCtl3D;
     property ParentShowHint;
@@ -782,6 +784,7 @@ type
     property Constraints;
     property Ctl3D;
     property Enabled;
+    property Font;
     property Items;
     property OnChangeBounds;
     property OnClick;
@@ -796,6 +799,7 @@ type
     property OnMouseMove;
     property OnMouseUp;
     property OnResize;
+    property ParentFont;
     property ParentColor;
     property ParentCtl3D;
     property ParentShowHint;