Search found 176 matches
- Sat Apr 18, 2015 2:31 pm
- Forum: Support
- Topic: How many pageBreaks in memo ?
- Replies: 2
- Views: 11512
How many pageBreaks in memo ?
Hello, I want to know how much/many PageBreaks in TDBRichViewEdit (memo). The following procedure always shows j = 0. What's wrong ? ... =rvsBreak ? procedure TForm1.btnTest1Click(Sender: TObject); var i,j: integer; begin j:= 0; for i := 0 to Memo.ItemCount-1 do if Memo.GetItemStyle(i)=rvsBreak then...
- Sat Jan 24, 2015 1:33 pm
- Forum: Support
- Topic: 2 table haven't the same distance from left memo-border
- Replies: 5
- Views: 16575
- Fri Jan 23, 2015 10:33 am
- Forum: Support
- Topic: 2 table haven't the same distance from left memo-border
- Replies: 5
- Views: 16575
Re: 2 table haven't the same distance from left memo-border
I think I was on the wrong track (Holzweg). It is related to rvRuler (Left Indent). In the following procedure the variable ' old ' does not show the correct position (LeftIndent) of the table. Who has a solution? procedure TForm1.pT1Click(Sender: TObject); var s1,s2,old: string; nWert: Extended; ok...
- Thu Jan 22, 2015 6:05 pm
- Forum: Support
- Topic: 2 table haven't the same distance from left memo-border
- Replies: 5
- Views: 16575
Re: 2 table haven't the same distance from left memo-border
j&b wrote:j&b wrote:procedure TForm1.pTest1Click(Sender: TObject);
Oh, oh ...
...
var X, Y: integer;
rve: TCustomRichViewEdit;
begin
...
end;
No x. quote !
- Thu Jan 22, 2015 5:57 pm
- Forum: Support
- Topic: 2 table haven't the same distance from left memo-border
- Replies: 5
- Views: 16575
Re: 2 table haven't the same distance from left memo-border
procedure TForm1.pTest1Click(Sender: TObject); { Some unnessary variable: VAR table: TRVTableItemInfo; DItemNo, DItemOffs, } var X, Y: integer; begin rve := rve.TopLevelEditor; // rve.RVData.Item2DrawItem(rve.CurItemNo, rve.OffsetInCurItem, DItemNo, DItemOffs); rve.RVData. Get OriginEx(X, Y); ShowM...
- Thu Jan 22, 2015 5:45 pm
- Forum: Support
- Topic: 2 table haven't the same distance from left memo-border
- Replies: 5
- Views: 16575
2 table haven't the same distance from left memo-border
procedure TForm1.pTest1Click(Sender: TObject); var table: TRVTableItemInfo; DItemNo, DItemOffs, X, Y: integer; begin rve := rve.TopLevelEditor; rve.RVData.Item2DrawItem(rve.CurItemNo, rve.OffsetInCurItem, DItemNo, DItemOffs); rve.RVData. Get OriginEx(X, Y); ShowMessage(intToStr(x)+', '+intToStr(y));...
- Tue Jan 20, 2015 7:42 am
- Forum: Support
- Topic: tableSort sorts all rows except row 0
- Replies: 4
- Views: 13723
Re: tableSort sorts all rows except row 0
I tried to sort only some rows of a table and my solution runs fine. Can occur problems ? 1. unit TableSort; {$I RV_Defs.inc} interface uses SysUtils, ..., {$ENDIF} RVStyle, RichView, RVEdit, TableSort_Var_jb ; //new created and saved in RichViewActions-folder 2. unit TableSort_Var_jb ; //new create...
- Tue Jan 20, 2015 6:56 am
- Forum: Support
- Topic: tableSort sorts all rows except row 0
- Replies: 4
- Views: 13723
- Mon Jan 19, 2015 7:08 pm
- Forum: Support
- Topic: tableSort sorts all rows except row 0
- Replies: 4
- Views: 13723
tableSort sorts all rows except row 0
If I sort a table I noticed that only all rows>0 are correct sorted. In your UNIT tablesort.pas I stop running program in line table := CreateSortedTable(rve, table, Column, ..., FirstRow, LastRow); (proc function DoSortCurrentTable(rve: ...)) FirstRow is always 1. If I set FirstRow to 0 ALL rows ar...
- Wed Sep 03, 2014 11:51 am
- Forum: Support
- Topic: Copy content of a cell to another cell of the same table
- Replies: 4
- Views: 13639
- Tue Sep 02, 2014 5:51 pm
- Forum: Support
- Topic: Copy content of a cell to another cell of the same table
- Replies: 4
- Views: 13639
First, thanks for your help. But ... Program stopps at TCustomRVFormattedData(rveTable.Cell.GetRVData).SelectAll; --> (cell) unknown identifiers (Bezeichner) I don't find cell (only cells) in the help. What's to do ? Jürgen procedure TForm1.Zellinhaltkopieren1Click(Sender: TObject); var RVData: TCus...
- Tue Sep 02, 2014 9:54 am
- Forum: Support
- Topic: Copy content of a cell to another cell of the same table
- Replies: 4
- Views: 13639
Copy content of a cell to another cell of the same table
Hello, I want to copy the cell-content (text with attributes) without marking to clipbord. Then I want to insert clipboard-text into a selected cell of the same / other table. My solution is not satisfactory: - rveTable.Select(r,c,0,0); //copies cell-borderline too - memo.selectCurrentLine; //copies...
- Mon Jan 28, 2013 9:43 am
- Forum: Support
- Topic: Is it possible to set ONLY a word (...) to READONLY:= true ?
- Replies: 1
- Views: 7858
Is it possible to set ONLY a word (...) to READONLY:= true ?
Hello, is it possible to set only a word (line, paragrapgh) in a TDBRIchViewEdit to readOnly:= true ? Background: I can hide a word (font.color:= clWhite). a) If I forget that in a line is a hidden word perhaps I delete this line ? b) if I press crtl+a all text is mark (my hidden word too). What can...
- Wed May 30, 2012 12:41 pm
- Forum: Support
- Topic: rveTable.Cells[r,c].FONT.color
- Replies: 3
- Views: 11268
- Wed May 30, 2012 8:11 am
- Forum: Support
- Topic: rveTable.Cells[r,c].FONT.color
- Replies: 3
- Views: 11268
rveTable.Cells[r,c].FONT.color
I want to set the text in a rvTable.cell red, but I don't find an issue like "rveTable.Cells[r,c].FONT.color":
if (s<>'') and ((pos('5',s)>0) or (pos('6',s)>0)) then rveTable.Cells[r,c].FONT.Color:= clRed else ...clblack;
if (s<>'') and ((pos('5',s)>0) or (pos('6',s)>0)) then rveTable.Cells[r,c].FONT.Color:= clRed else ...clblack;