index gorny czyli do X do potegi
jak wyswietlomc w memo x do potegi 2 w stylu (2^)
jezeli nie w memo to w czym?
0
0
richedit
0
a jak tam zrobic index gorny?
0
no ok mamy kod
procedure TForm1.btnIndexClick(Sender: TObject);
var
CharFormat : TCharFormat;
begin
ZeroMemory(@CharFormat, SizeOf(TCharFormat)); // zerowanie pamieci
with CharFormat do
begin
cbSize := SizeOf(TCharFormat); // przydziel pamiec
RichEdit.Perform(EM_GETCHARFORMAT, 1, LParam(@CharFormat));
yHeight:=Round(yHeight*0.7); // wysokosc
yOffset:=Round(yHeight*0.3); // polozenie
RichEdit.Perform(EM_SETCHARFORMAT, wParam(SCF_SELECTION), LParam(@CharFormat));
end;
RichEdit.SetFocus;
RichEdit.SelLength := 0;
end;
niemam pomyslu jak w jednym ciagu raz wyswietlan normalnie a raz z indexem
cos w tylu :form1.RichEdit1.Lines.Add('3343434 do potegi -3333') ;