(SOLVED) : some smaill questions about RC

hi
i have some simple questions

1- how to set color for any cell in RC ? (like microsoft excell)

2- is it possible to change the text in group box top of RC ?
means changing "Drag the column header here to group by that column" to "any other text"

4- how to limit group box to get only 1 column ? user can group records only by 1 column in time .

5- how can making horizontal scroolbar for when we have more columns in RC ?

6- is there any way to putting hyper link in RC`s cell ?

thanks

Hi .
again thanks

5- when i using this property , insert one empty and no-name column after other columns . for what ?

Aaron wrote: Hi,   5. Just add one column and set AutoColumnSizing = False, resize column and you have horizontal scrollbars.

sorry . i cant understand your solution

see my code :

Private Sub rpt_q_column_init()
Dim Column As ReportColumn
rpt_q.AutoColumnSizing = False

    Set Column = rpt_q.Columns.Add(0, "#", 30, False)
    Set Column = rpt_q.Columns.Add(1, "�a", 100, True)
    Set Column = rpt_q.Columns.Add(2, "aaaaaaa", 180, True)
    Set Column = rpt_q.Columns.Add(3, "aaaa", 180, True)
    Set Column = rpt_q.Columns.Add(4, "aaaa", 130, True)
    Set Column = rpt_q.Columns.Add(5, "aaa", 500, True)
    Set Column = rpt_q.Columns.Add(6, "aa", 100, True)
    Set Column = rpt_q.Columns.Add(7, "aa", 80, True)
    Set Column = rpt_q.Columns.Add(8, "a", 80, True)
    Set Column = rpt_q.Columns.Add(9, "aaa", 80, True)
    Set Column = rpt_q.Columns.Add(10, "aa", 100, True)
    Set Column = rpt_q.Columns.Add(10, "Final", 100, True)
End Sub

by using this code , in RC inserted noname and no-index column after Final column.

*- ( i use unicode for caption column . for this reason i changed column caption immediately , sorry )

Aaron wrote: Hi,   No I ment: If you add just one column to RC and the width of the column is larger than RC width you will see scrollbars. AutoColumnSizing = false prevents the RC from sizing columns to total width of RC. So width will be like you added them: Set Column = rpt_q.Columns.Add(0, "#", 30, False) and if sum of all column width's exceed RC width you will have a horizontal scrollbar.   Or I don't understand what you mean...

Hi
no , no . its not my problem . i set scrollbar propery true and scroolbar in suitable time showed in RC . but i asked from you why i have in RC one empty column after other column that i insert ?

please in form call rpt_q_column_init()
can you see one no-name  column after "final" column ?

Aaron wrote: Please add SOLVED in your topic description the way all members do. SOLVED:     and not (solved) as you do now and also your past posts, OK?  It's better to do it the same way.

I prefer any sub-forum has one sticky topic like this for small and frequently question . it leads to users dont force to start  new topic for small subject and small questions . anyway perhaps these topics ocure as simple refrence for beginners .


 

Aaron wrote: Hi,  The only thing I see in your code is that you have 2 columns with same index.

hi
not matter . when i insert "Final" column after copy/paste from visual basic in forum add this .

AndreiM wrote: Hi, do you use Right-to-Left mode?

Hi
yes .

Hi

Thanks sir jpbro
it solved :)

.

New Professional Question :

7- I have one RC control in my prject that i inserted records via some tables and operating and other relations .and now is filled and ready .
now i want to use this Grid like one Table for sql statment .

you imagine my RC named rc_grid and i have 2 MS-access table that called Table1 and Table2 .(there is name filed in all tables.)
i want to use SQL statement like this :

select * from Table1,Table2, rc_grid.table*
where RC_grid.table.name = Table1.name
inner join ...

i must use it for inner join and other operators :)


------------
*- rc_grid.table is not exist now really . i want to have any thing that behavior like it .

jpbro wrote: Add this to your rpt_q_column_init sub: It seems to get rid of the extra column. This extra blank column is useful visually when the total columns width doesn't exceed the width of the control (i.e. no scrollbars), but I'm not sure why it's there when there are scrollbars because the scroll could just stop at the last "actual" column.

Hello nenkalo,

WAY 1:
    wndReportControl.Icons.LoadBitmap App.Path & "\Icons\bmreport.bmp", iconArray, xtpImageNormal
           
WAY 2:
    wndReportControl.Icons.AddBitmap ImageList1.ListImages.Item(1).Picture.Handle, COLUMN_MAIL_ICON, xtpImageNormal, False
    wndReportControl.Icons.AddBitmap ImageList1.ListImages.Item(2).Picture.Handle, COLUMN_IMPORTANCE_ICON, xtpImageNormal, False
    wndReportControl.Icons.AddBitmap ImageList1.ListImages.Item