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
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]