New blog post -

-
New blog post -
VCL Styles Utils – Major Update (Dialogs, ProgressBar, DateTimePicker, ListView and more)
   http://theroadtodelphi.wordpress.com/2014/11/04/vcl-styles-utils-major-update-dialogs-progressbar-datetimepicker-listview-and-more/

Comments

  1. David MillingtonNovember 5, 2014 at 2:37 AM

    Great stuff! The before/after screenshots a great idea... I don't think I had realised all the places VCL Styles didn't apply before.

    ReplyDelete
  2. Rodrigo RuzNovember 5, 2014 at 7:27 AM

    Thanks David Millington.

    ReplyDelete
  3. Brett WiltonNovember 5, 2014 at 1:14 PM

    Rodrigo Ruz Really nice work, great illustrations.  Like some of your other style work will these eventually become part of an XE release or update ?

    ReplyDelete
  4. Rodrigo RuzNovember 5, 2014 at 1:21 PM

    Brett Wilton that depends of EMB ;)

    ReplyDelete
  5. Michel PodvinNovember 12, 2014 at 7:38 AM

    In your Vcl.Styles.Utils.pas, I saw this :

    class procedure TVclStylesUtils.SaveSettings(const FileName:String;Elements :TVCLStylesElements; FilterType : TVCLStylesFilter;Filters : TObjectList);
    var
      Doc       : TXMLDocument;
      RootNode, ChildNode, oNode : IXMLNode;
      LFilter   : TBitmapFilter;
    begin
      Doc   :=TXMLDocument.Create(nil);
      try
        Doc.Active  := True;
        Doc.Version :='1.0';
        Doc.Encoding:='utf-8';
        Doc.Options := [doNodeAutoIndent];
        RootNode    := Doc.AddChild('VCLStylesEQ');
        RootNode.Attributes['created']    := FormatDateTime('YYYY-MM-DD HH:NN:SS',Now);
        RootNode.Attributes['vseBitmaps'] := BoolToStr({vseBitmaps in Elements}True, True);
        RootNode.Attributes['vseSysColors'] := BoolToStr(vseSysColors in Elements, True);
        RootNode.Attributes['vseStyleColors'] := BoolToStr(vseStyleColors in Elements, True);
        RootNode.Attributes['vseStyleFontColors'] := BoolToStr(vseStyleFontColors in Elements, True);
        ChildNode := RootNode.AddChild('FilterType');
        ChildNode.Attributes['Name'] := VCLStylesFilterNames[FilterType];

        for LFilter in Filters do
        begin
         oNode  := ChildNode.AddChild(LFilter.ClassName);
         oNode.Text:=IntToStr(LFilter.ColorValue);
        end;
        Doc.SaveToFile(FileName);
      finally
       Doc:=nil;
      end;
    end;

      Doc:=nil never freed Doc beacause it's a TXMLDocument not a TXMLDocument. No ? 
    see this because compiler warning

    your library is  a great job  !!!

    ReplyDelete

Post a Comment