Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

quarta-feira, 1 de julho de 2015

DELPHI - WebBroker - Criando arquivos de CSS (Cascading Style Sheets) Virtual

Reações: 
Criar um novo TWebActionItem nomear ele para waCSS (ou qq nome de sua preferência) 

Em sua propriedade pathInfo colocar: /style Ou se preferir qq outro nome de seu agrado, lembrando que este item será usado em seus html's. 

No evento "OnAction" deste WebActionItem coloque:


procedure TWebModule1.WebModule1waCSSAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Handled := true;
  Response.ContentType := 'text/css'; // esta é a linha mais importante do ACTION, ela que informa que o arquivo a ser processado pelo browser é um tipo text/css e não um html
  Response.Content :=
          // Coloque aqui o css de sua preferência...
          '  a {' + 
          '    font-family: Arial, Helvetica, sans-serif;' + 
          '    font-size: 14px;' + 
          '    color: #333333;' + 
          '  }' +  _cQuebra +
          '  a:link {' +  
          '    text-decoration: none;' +  
          '  }' +  
          '  a:visited {' +  
          '    text-decoration: none;' + 
          '    color: #666666;' + 
          '  }' + 
          '  a:hover {' + 
          '    text-decoration: underline;' + 
          '    color: #000000;' + 
          '  }' + 
          '  a:active {' + 
          '    text-decoration: none;' + 
          '    color: #333333;' + 
          '  }';
end; 

Em qualquer página de sua exibição que você queira acessar o estilo css, coloque: 

<LINK REL=StyleSheet HREF="/style" TYPE="text/css">

onde HREF="/style" fará referência ao WebAction de seu gosto (isso é para ser colocado nas paginas de exibição)



procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Handled := true;
  Response.Content :=
          '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"' +
          '"http://www.w3.org/TR/html4/loose.dtd">' +
          '<html>' +
          '<head>' +
          '<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">' +
          '<title>Teste</title>' +
          '<LINK REL=StyleSheet HREF="/style" TYPE="text/css">' +
          '</head>' +

          '<body>' +
...
end;

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer