Znak "Delty"

0

Czołem!
Czy ktoś wie, w jaki sposób wstawić programowo - za pomocą kodu ASCII lub innego - znak greckiej litery delta-dużej! Muszę ją wyświetlić w komórce StringGrid'a razem z innym - polskim- textem.

0

Za litery greckie odpowiedzialna jest czcionka symbol.

0

W czcionce Symbol delta ma taki sam kod ASCII jak w normalnych czcionkach D, czyli #68

0

O.K. To wiem, ale konkretnie chodzi mi o zapis: "cells[7,IleRec+2]:= 'DU='+' '+FloatToStrF(DU,ffGeneral,3,2);" gdzie to nieszczęsne 'D' powinno wyglądać jak namiocik! Możliwe jest użycie w tym przypadku czcionki symbol? Jeśli tak to poproszę o przykład. :-)

0
StringGrid1.DefaultDrawing := FALSE;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var w:integer;
begin
if ACol=1 then
  begin
  StringGrid1.Canvas.Font.Name:='Symbol';
  w:=StringGrid1.Canvas.TextWidth('D');
  StringGrid1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, 'D');
  StringGrid1.Canvas.Font.Name:='Ms Sans Serif';
  Rect.Left:=Rect.Left+w;
  StringGrid1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, 'U = 1.00000000000');
  end
else
  begin
  StringGrid1.Canvas.Font.Name:='Ms Sans Serif';
  StringGrid1.Canvas.TextRect(Rect, Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow]);
  end;
end;

Tylko, że w ten sposób wszystkie kratki będziesz musiał ręcznie odmalować.

0

Szczawik! Niech Cię uściskam!! Dokładnie o to mi chodziło! [green] Serdeczne dzięki za listing. [browar]

1 użytkowników online, w tym zalogowanych: 0, gości: 1