Boa tarde.Ser� que alguem sabe como gravar [dsBold, dsItalic, dsUnderline] em um DB?ObrigadoAdilson...

Como gravar TFontStyles em um arquivo

14/12/2005

Vitor Rubio

E o resto do c�digo? Onde exatamente deu erro?

Se voc� quer armazenar o estilo da fonte, fa�a como nosso colega Pecchiai.

J� com rela��o a ponteiros, eles realmente s�o muito �teis para se fazer �no dedo� algumas coisas que as classes e bibliotecas do Delphi fazem por voc� mas que vc n�o sabe como s�o feitas. D� pra fazer listas encadeadas, pilhas, filas, aloca��o din�mica, ponteiros para fun��es (ou variaveis do tipo fun��o) que vc pode atribuir uma fun��o com a mesma assinatura e executar, arvores bin�rias entre muuuuuuitas outras aplica��es. Eu recomendo voc� a dar uma olhada em livros de turbo pascal/object pascal para se aprofundar em ponteiros. O uso de ponteiros em qualquer linguagem sempre foi um assunto complexo, e o mau uso deles pode acarretar v�rias �zicas� (n�o tem outro nome hehe) no seu programa.

T� +

Responder

Gostei + 0

14/12/2005

Saint

entao, em C eu ja usei mto ponteiro, mas em delphi nunca tive a real necessidade e justamente por querer me aprofundar que eu queria ver como foram declaradas as variaveis, o erro da justamente nessa linha:
showmessage(Format(��d�, [P^]));

e eu declarei dessa forma:
var
Fonte:TFontStyles;
p:^TFontStyles;

Responder

Gostei + 0

15/12/2005

Pecchiai

entao, em C eu ja usei mto ponteiro, mas em delphi nunca tive a real necessidade e justamente por querer me aprofundar que eu queria ver como foram declaradas as variaveis, o erro da justamente nessa linha: showmessage(Format(��d�, [P^])); e eu declarei dessa forma: var Fonte:TFontStyles; p:^TFontStyles;

Colega mude a variavel (p:^TFontStyles) para (P : PByte).

Abra�o

Responder

Gostei + 0

15/12/2005

Vitor Rubio

voc� achar� essa c�digo interessante, porem eu n�o consegui fazer a maracutaia com TfontStyles, mas consegui fazer com TFontStyle:

qual q eh a diferen�a?

TfontStyles � um conjunto ou set de TfontStyle, ou seja, tfontstyle pode ser fsbold, e tfontstyles pode ter [fsbold, fsitalic, ...]

Coloque a unit typinfo no seu projeto e veja a �cricincruma� que eu fiz:

procedure TForm1.btFonteClick(Sender: TObject);
var
  fonte: TFontStyle;
  p:^TFontStyle;
begin
  p := @fonte;  // atribui a p o endere�o de fonte
  showmessage(Format(��d�, [integer(p)]));  //mostra em decimal o endere�o p
  showmessage(Format(��d�, [Integer(p^)])); //mostra em inteiro o valor de p como tipo enumerado.
  {
    OBS.: como fsbold � o primeiro item do tipo enumerado fontstyle, integer(p^) quer dizer a mesma coisa que
    integer(valor do endere�o de p) ou a mesma coisa que integer(fonte), que � 0 visto fsbold ser o primeiro
    estilo do tipo enumerado. Se fosse o segundo seria 1 (fsitalic)
  }

  ShowMessage( GetEnumName(TypeInfo(TFontStyle), Integer(fonte))); //mostra em formato string o estilo da fonte, com getenumname(typeinfo)
  ShowMessage(Format(��s�, [GetEnumName(TypeInfo(TFontStyle),Integer(p^))]));
  {
    mostra o valor em formato string da fonte contida no endere�o p, com p^ da mesma forma que p � o endere�o de fonte
    e P^ � o valor de fonte
  }

  {
    com rela��o a gravar estilos de fonte e outros tipos enumerados, eh soh gravar a string resultante das fun��es acima, fsbold... etc
    e fazer o processo inverso:
  }

  fonte := TFontStyle(GetEnumValue(TypeInfo(TFontStyle),�fsItalic�));
  lbFonte.Font.Style := lbFonte.Font.Style + [fonte];
  //ou  lbFonte.Font.Style :=  [fonte];    para ficar apenas italico

end;

Ah! do jeito que o colega Pecchiai fez tamb�m funciona legal, usando um pbyte que na verdade � um ponteiro para byte :wink:

espero ter ajudado ^^

Responder

Gostei + 0

15/12/2005

Vitor Rubio

legal � que no esquema do colega Pecchiai d� pra fazer com o fontstyles tamb�m, e o valor � simplesmente um integer, que muda conforme os estilos de fontes. Temos os tipos:

fsBold, fsItalic, fsUnderline, fsStrikeOut. Seus valores s�o, respectivamente fsBold=0, fsItalic=1, fsUnderline=2, fsStrikeOut=3

O valor num�rico inteiro do TfontStyles � formado pela soma de cada componente do set multiplicado por 2 elevado ao seu numero de ordem, dessa forma os numeros nunca se repetem, e os valores tambem n�o. por exemplo

se o Tfontstyle for [fsbold], ent�o o n�mero � 2^0 (2 elevado a zero) = 1
se for [fsbold, fsitalic], ent�o = 2^0 + 2^1 = 1+2 = 3
se for apenas [fsUnderline] ent�o � 2^2 = 4 e se tiver todos os estilos ent�o �:
[fsBold, fsItalic, fsUnderline, fsStrikeOut] = 2^0+2^1+2^2+2^3 = 1+2+4+8 = 15 e assim por diante:

veja o exemplo abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
  pb: PByte;
  fontes: TFontStyles;
begin
  fontes := fontes + [fsItalic, fsUnderline, fsStrikeOut];

  pb := @fontes;
  showmessage(Format(��d�, [Pb^])); //isso vale
  showmessage(Format(��d�, [byte(fontes)])); //isso vale e eh mais facil

  //showmessage(Format(��d�, [integer(fontes)])); //isso n�o vale

  lbFonte.Font.Style := TFontStyles(pb^);

  //poderia ser: lbFonte.Font.Style := TFontStyles(fontes);

  {
    OBS:
    se pb fosse  TFontStyles^tambem daria certo na atribui��o de pb^,
    mas precisaria trocar o   showmessage(Format(��d�, [Pb^])) por
    showmessage(Format(��d�, byte([Pb^])));
    ou seja, o TFontStyles n�o aceita typecasting para integer e vice versa, mas
    para byte ele aceita. Isto se deve ao tamanho dessas estruturas, que s�o compativeis.
  }

end;

Responder

Gostei + 0

15/12/2005

Xandyr

Essa t�cnica salva e carrega todas as propriedades do componente, n�o somente a fonte, vc pd passar isso para um componente blob

StreamSalva.WriteComponent(FontDialog1);

StreamSalva.ReadComponent(FontDialog1);

Responder

Gostei + 0

15/12/2005

Vitor Rubio

N�o sabia que dava pra fazer via stream, como que usa? voc� poderia dar um exemplo?

Responder

Gostei + 0