Znak "Delty"

OG
  • Rejestracja: dni
  • Ostatnio: dni
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.

Oleksy_Adam
  • Rejestracja: dni
  • Ostatnio: dni
0

Za litery greckie odpowiedzialna jest czcionka symbol.

Ad
  • Rejestracja: dni
  • Ostatnio: dni
0

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

OG
  • Rejestracja: dni
  • Ostatnio: dni
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. :-)

SZ
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 3356
0
Kopiuj
StringGrid1.DefaultDrawing := FALSE;
Kopiuj
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ć.

OG
  • Rejestracja: dni
  • Ostatnio: dni
0

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

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.