Como saber se o tamanho de uma linha, � o tamanho REal?

Question

Ol�, minha d�vida � a seguinte:Eu desenho um panel, que de largura dever� ter �5 metros�, claro que n�o cabe na tela, a� eu falo que o panel tem 100px que equivale a 5 metros reais, aih eu pinto uma l...

Massuda · Answer

N�o sei se entendi direito, mas [url=//delphi.about.com/od/adptips2005/qt/pixel2mm.htm]este exemplo[/url] (em ingl�s) do site delphi.about.com mostra como converter pixels em milimetros (o contr�rio n�o � dif�cil de deduzir). Voc� pode convencionar, por exemplo, que 10 metros corresponde a 10 mm na tela e fazer seu desenho baseados nisso....

Titanius · Answer

Era isso mesmo, Muitissimo obrigado massuda, irei estudar o exemplo...[]sFellipe H....

Titanius · Answer

Massuda, tentei entender o exemplo e n�o consegui... na verdade n�o consegui nem por pra rodar... vc poderia me explicar +/- como ele funciiona?Desde j� agrade�o...

Massuda · Answer

Relendo o exemplo, vi que o exemplo de uso est� errado (!) e � incompleto... um exemplo melhor seria...

var
  cx, cy : Double;
  mmx, mmy : Integer;
  pxx, pxy: Integer;
begin
  // supondo que isso esteja em um m�todo de um form
  PixelsPerMM(Self.Canvas,cx,cy) ;

  // qual o tamanho, em mm,
  // de um retangulo 468x60 pixels?
  mmx := Trunc(468 / cx) ;
  mmy := Trunc(60 / cy) ;

  // qual o tamanho, em pixels,
  // de um retangulo 500x32 mm?
  pxx := Trunc(500 * cx);
  pxy := Trunc(32 * cy);
end;

Titanius · Answer

Tentei executar, por�m deu este erro:[Error] Unit1.pas(52): Types of actual and formal var parameters must be identicalprocedure TForm1.BitBtn1Click(Sender: TObject);var  cx, cy : Double;  mmx, mmy : Integer;  pxx, pxy: Integer;begin  // supondo que isso esteja em um m�todo de um form   PixelsPerMM(Self.Canvas,cx,cy) ;  [b:118e960219]<<--- Aqui esta o Erro[/b:118e960219]  // qual o tamanho, em mm,  // de um retangulo 468x60 pixels?   mmx := Trunc(468 / cx) ;  mmy := Trunc(60 / cy) ;  // qual o tamanho, em pixels,   // de um retangulo 500x32 mm?  pxx := Trunc(500 * cx);  pxy := Trunc(32 * cy);end;[]sFellipe H....

Massuda · Answer

Desculpe... mude...[code:1:177922ea83]cx, cy : Double;[/code:1:177922ea83]...para...[code:1:177922ea83]cx, cy : Single;[/code:1:177922ea83]...

Titanius · Answer

Muito obrigado massuda,  ajudou  muito! :D[]s...

Titanius · Answer

So enchendo mais um pouquinho, como fa�o pra pintar um pixel via canvas num TImage?Tipo, forne�o X e Y, e ele pinta de preto....[]s...

Massuda · Answer

N�o fa�o id�ia de como fazer isso... talvez fosse melhor abrir outro t�pico, j� que isso � outra novela......

F�rum Como saber se o tamanho de uma linha, � o tamanho REal? #290036