Borland's CLX Component Framework
by Ray Lischner 

Listing One
type
  TPrettyInPink = class(TComponent)
  private
    FColor: TColor;
    procedure SetColor(NewColor: TColor);
    ...
  published
    property Color: TColor read FColor write SetColor;
    ...


Listing Two
<html>
<head>
<title>Environment Variables</title>
</html>
<body>
<h1>Kylix Example</h1>
<p>This page was produced by
<a href="http://www.borland.com/kylix">Kylix</a>,
Borland's Rapid Application Development tool for Linux.</p>
<p><#env></p>
</body>
</html>


Listing Three
procedure TWebModule1.PageProducer1HTMLTag(Sender: TObject;
  Tag: TTag; const TagString: string; TagParams: TStrings;
  var ReplaceText: String);
var
  Env: PPChar;
begin
  if TagString = 'env' then
  begin
    ReplaceText := '';
    Env := envp;
    while Assigned(Env^) do
    begin
      ReplaceText := ReplaceText + Env^ + '<br>'#13#10;
      Inc(Env);
    end;
  end
end;






