CZy mozna w richedit zrobić tabele a jeśli nie to w czym mozna
0
0
Dałbyś człowieku te pytania do jednego topica o RichEdit, a nie tak pytanie-topic :-/ . W Borlandowskim RichEdicie nie można rysować tabel. A wczym można? Nie wiem :|
0
A o jaka tabele ci chodzi?
StringGrid to idealne narzedzie do tabel (prawie jak excel :-D ).
0
Zartojesz czy mowisz prawde :)
0
Zartojesz czy mowisz prawde :)
Mowilem powaznie. Moze nie idealne ale mozna cos tam pokombinowac.
0
A jak tego uzyć
0
A jak tego uzyć
przyklad:
StringGrid1.Cells[1,1]:='Asdfds';
doda do kolumny 1 w wierszu 1 tekst.
0
a mozna zrobić zeby po kliknięciu na tabele mozna było wpisać text
0
a mozna zrobić zeby po kliknięciu na tabele mozna było wpisać text
we wlasciwosciach obiektu (object inspector) masz zakladke Options i tam znajdz goEditing i ustaw na True
0
Pochwalony!
Przez kilka ostatnich dni właśnie się bawię StringGrid'em i muszę powiedzieć, że jeżeli chcesz mieć coś jak tabelka w RichEdit'cie, to chyba będziesz chciał zmieniać kolor tekstu w StringGrid, a to raczej chyba jest niemożliwe :P
0
A ja mysle ze da rade i mam taki godzik do tego:
[code]
// rysownanie tekstu w komorce
procedure Sto_DrawCellText(const Canvas: TCanvas; const Rect: TRect;
const Text: String; const BackColor, TextColor: TColor;
const Alignment: TAlignment);
const
BORDER_WIDTH = 2;
var
iLeftBorder: Integer;
begin
iLeftBorder := 0;
case Alignment of
taLeftJustify : iLeftBorder := Rect.Left + BORDER_WIDTH;
taRightJustify: iLeftBorder := Rect.Right - BORDER_WIDTH - Canvas.TextWidth(Text) -1;
taCenter : iLeftBorder := Rect.Left + (Rect.Right - Rect.Left - Canvas.TextWidth(Text)) div 2;
end;
Canvas.Font.Color := TextColor;
Canvas.Brush.Color := BackColor;
ExtTextOut(Canvas.Handle, iLeftBorder, Rect.Top + BORDER_WIDTH, ETO_CLIPPED or ETO_OPAQUE,
@Rect, PChar(Text), Length(Text), nil);
end;
// procedure OnDrawCell
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
grdColored: TStringGrid;
sText: String;
myBackColor: TColor;
myTextColor: TColor;
myAlignment: TAlignment;
begin
grdColored := TStringGrid(Sender);
sText := grdColored.Cells[ACol, ARow];
if (ARow
0
Pochwalony!
Przez kilka ostatnich dni właśnie się bawię StringGrid'em i muszę powiedzieć, że jeżeli chcesz mieć coś jak tabelka w RichEdit'cie, to chyba będziesz chciał zmieniać kolor tekstu w StringGrid, a to raczej chyba jest niemożliwe :P
To użyj DrawGrid :)
A jeżeli już macie tak dyskutować na temat StringGrid oraz DrawGrid to proponuję od razu uzupełniać wpisy w Encyklopedii dot. tych klas i dopisywać tam odpowiednie kody, które tu podajecie (jakbyście mieli problemy z dodaniem czegoś, bo nie wy jesteście autorami wpisu do Encyklopedii to możecie się zgłosić np. do mnie, najlepiej na maila, a ja już to dodam).
0
A jest jakiś taki uniwersalny komponęt gdzie jest opcja robienia tabel :(
0
A jest jakiś taki uniwersalny komponęt gdzie jest opcja robienia tabel :(
Ale jakie tabele cie interesuja? Jakie dane chcesz umiesciac w tej tabieli?
Podaj konkrety. (przeciez StringGrid to nic innego jak tabela)
0
Wiem ze mozna TStringGrid ale ja chcĘ takie tabele w richedicie albo w jakimś innym komponęcie.Takie jak np.w wordzie.Ze robisz tabele a obok niej mozesz posać i w niej także
0
Wiem ze mozna TStringGrid ale ja chcĘ takie tabele w richedicie albo w jakimś innym komponęcie.Takie jak np.w wordzie.Ze robisz tabele a obok niej mozesz posać i w niej także
Sprobuj cos takiego, ale nie wiem dokladnie czy bedzie dobrze dzialac:
var
mystr: tstringgrid;
begin
mystr := TStringGrid.Create(RichEdit1);
mystr.Visible := true;
mystr.Enabled := true;
mystr.EditorMode:=True;
richedit1.cre
mystr.ParentWindow := RichEdit1.Handle;
end;
0
[code]richedit1.cre[/code] tu coś jest kopane
0
[code]richedit1.cre[/code] tu coś jest kopane
Cos mi sie wstukalo przez przypadek, tak powinno byc:
var
mystr: tstringgrid;
begin
mystr := TStringGrid.Create(RichEdit1);
mystr.Visible := true;
mystr.Enabled := true;
mystr.ParentWindow := RichEdit1.Handle;
end;
0
To owszem działa.Ale fatalnie :) sam zobacz ;)
0
To owszem działa.Ale fatalnie :) sam zobacz ;)
Faktycznie sprawdzilem, ale to tak z biegu bylo.
Ale jak cie interesuje to jest komponent, nazywa sie TRichView. Tylko ma jedna wade jest komercyjny.
Ale mozesz sciagnac wersje trial, pozwala ona na zabawe przez 60 dni.
A ja jak cos wymysle to dam znac.
0
To owszem działa.Ale fatalnie :) sam zobacz ;)
Faktycznie sprawdzilem, ale to tak z biegu bylo.
Ale jak cie interesuje to jest komponent, nazywa sie TRichView. Tylko ma jedna wade jest komercyjny.
Ale mozesz sciagnac wersje trial, pozwala ona na zabawe przez 60 dni.A ja jak cos wymysle to dam znac.
To może plczek HTML ???
robisz tabelkę i do WebBrowsera ???