lazarus.fresnel/demo/Inspector/InspDemoStyles1.pas

unit InspDemoStyles1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Fresnel.Forms, Fresnel.DOM, Fresnel.Controls, Fresnel.CSSStyleInspector;

type

  { TDemoStylesWindow }

  TDemoStylesWindow = class(TFresnelForm)
    procedure DemoStylesWindowCreate(Sender: TObject);
  private
    FBody: TBody;
    FCSSStyleInspector: TCSSStyleInspector;
  public
    procedure ApplyCSS; override;
    property Body: TBody read FBody;
    property CSSStyleInspector: TCSSStyleInspector read FCSSStyleInspector;
  end;

var
  DemoStylesWindow: TDemoStylesWindow;

implementation

{$R *.lfm}

{ TDemoForm1 }

procedure TDemoStylesWindow.DemoStylesWindowCreate(Sender: TObject);
begin
  FCSSStyleInspector:=TCSSStyleInspector.Create(Self);
  with CSSStyleInspector do begin
    Name:='CSSStyleInspector';
    Parent:=Self;
  end;

  Stylesheet.Text:=':root { color: #fff; font-size: 15px; background-color: #333; }';
end;

procedure TDemoStylesWindow.ApplyCSS;

  procedure W(Prefix: string; El: TFresnelElement);
  var
    i: Integer;
  begin
    El.CSSClasses.Delimiter:=',';
    writeln(Prefix,'Name="',El.Name,'":',El.ClassName,' Classes="',El.CSSClasses.DelimitedText,'"');
    for i:=0 to El.NodeCount-1 do
      W(Prefix+'  ',El.Nodes[i]);
  end;

begin
  inherited ApplyCSS;

  //writeln('TDemoStylesWindow.ApplyCSS START');
  //W('',Self);
  //writeln('TDemoStylesWindow.ApplyCSS END');
end;

end.