Coloring a line in 'GUI_DOWNLOAD'

Hi all,
Now i am doing one report. In that, I am downloading the output into Excel file using 'GUI_DOWNLOAD' FM. Now i want to color the first record of my excel. Can u guide me.
Thanks in advance.
Rajkumar P.

Hi,
Refer the below code,
TYPE-POOLS ole2.
DATA: wf_cell_from TYPE ole2_object,
      wf_cell_from1 TYPE ole2_object,
      wf_cell_to TYPE ole2_object,
      wf_cell_to1 TYPE ole2_object,
      wf_int TYPE ole2_object ,
      wf_excel TYPE ole2_object,       " Excel object
      wf_mapl TYPE ole2_object,        " list of workbooks
      wf_map TYPE ole2_object,         " workbook
      wf_worksheet TYPE ole2_object,   " Worksheet
      wf_cell TYPE ole2_object,        " Cell Range
      wf_cell1 TYPE ole2_object,
      wf_range TYPE ole2_object,       " Range of cells to be formatted
      wf_range2 TYPE ole2_object,
      wf_column1 TYPE ole2_object.     " Column to be Autofit
DATA: wf_format TYPE ole2_object.
DATA: BEGIN OF t_hex,
      l_tab TYPE x,
      END OF t_hex.
DATA: wf_deli(1) TYPE c.            "delimiter
TYPES: t_data1(1500) TYPE c,
       int_ty TYPE TABLE OF t_data1. "line type internal table
*All the data was prepared as line type internal tables for faster
*download
DATA: int_matl TYPE int_ty ,
      int_matl1 TYPE int_ty ,
      wa_matl TYPE t_data1.
TYPES: BEGIN OF ty_mara,
       matnr TYPE matnr,
       mtart TYPE mtart,
       matkl TYPE matkl,
       meins TYPE meins,
       END OF ty_mara.
DATA: int_mara TYPE STANDARD TABLE OF ty_mara,
      wa_mara TYPE ty_mara.
FIELD-SYMBOLS: <fs> .
DATA: wc_sheets LIKE sy-index. "no.of sheets
DATA: it_tabemp TYPE filetable,
       gd_subrcemp TYPE i.
CONSTANTS wl_c09(2) TYPE n VALUE 09.
CLEAR wc_sheets.
DEFINE ole_check_error.
if &1 ne 0.
    message e001(zz) with &1.
    exit.
endif.
END-OF-DEFINITION.
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
PARAMETERS: p_file   LIKE rlgrap-filename.
SELECTION-SCREEN END OF BLOCK block1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
REFRESH: it_tabemp.
CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title      = 'Select File'
      default_filename = '*.xls'
      initial_directory = 'C:\'
      multiselection    = ' ' "No multiple selection
    CHANGING
      file_table        = it_tabemp
      rc                = gd_subrcemp.
LOOP AT it_tabemp INTO p_file.
ENDLOOP.
START THE EXCEL APPLICATION
CREATE OBJECT wf_excel 'EXCEL.APPLICATION'.
PERFORM err_hdl.
PUT EXCEL IN FRONT
SET PROPERTY OF wf_excel 'VISIBLE' = 1.
PERFORM err_hdl.
INFORM USER OF THE CURRENT STATUS
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      percentage = 0
      text       = text-i08
    EXCEPTIONS
      OTHERS     = 1.
CREATE AN EXCEL WORKBOOK OBJECT
CALL METHOD OF wf_excel 'WORKBOOKS' = wf_mapl.
PERFORM err_hdl.
CALL METHOD OF wf_mapl 'ADD' = wf_map.
PERFORM err_hdl.
PERFORM f_material_details.
GET PROPERTY OF wf_excel 'ActiveSheet' = wf_map.
GET PROPERTY OF wf_excel 'ActiveWorkbook' = wf_mapl.
CALL FUNCTION 'FLUSH'
    EXCEPTIONS
      cntl_system_error = 1
      cntl_error        = 2
      OTHERS            = 3.
IF sy-subrc = 0.
    CALL METHOD OF wf_map 'SAVEAS'
      EXPORTING #1 = p_file.
   #2 = 1.
ENDIF.
MESSAGE s001(zbhi) WITH 'Complete downloading'.
CALL METHOD OF wf_mapl 'CLOSE'.
CALL METHOD OF wf_excel 'QUIT'.
FREE OBJECT wf_mapl.
FREE OBJECT wf_map.
FREE OBJECT wf_excel.
MESSAGE s001(zbhi) WITH 'Complete downloading'.
*&      Form ERR_HDL
      text
FORM err_hdl.
IF sy-subrc <> 0.
    WRITE: / 'OLE ERROR: RETURN CODE ='(i10), sy-subrc.
    STOP.
ENDIF.
ENDFORM.                    "ERR_HDL
*-- End of Program
*&      Form f_material_details
      text
--> p1        text
<-- p2        text
FORM f_material_details .
DATA: lv_lines TYPE i.
*Assign the Delimiter to field symbol.
ASSIGN wf_deli TO <fs> TYPE 'X'.
t_hex-l_tab = wl_c09.
<fs> = t_hex-l_tab.
CLEAR int_matl.
REFRESH int_matl.
SELECT matnr
       mtart
       matkl
       meins
      FROM mara
      INTO CORRESPONDING FIELDS OF TABLE int_mara.
*first the headings will be displayed in the excel sheet
CONCATENATE 'Material Number'
'Material type'
'Material Group'
'Base Unit of Measure'
INTO wa_matl
SEPARATED BY wf_deli.
APPEND wa_matl TO int_matl.
LOOP AT int_mara INTO wa_mara.
    CONCATENATE wa_mara-matnr
                wa_mara-mtart
                wa_mara-matkl
                wa_mara-meins
                INTO wa_matl
                SEPARATED BY wf_deli.
    APPEND wa_matl TO int_matl.
    CLEAR wa_matl.
ENDLOOP.
*Copyng thae same contents to another table to display in
*new sheet
MOVE int_matl TO int_matl1.
wc_sheets = 1.
*-- activating the worksheet and giving a name to it
CALL METHOD OF wf_excel 'WORKSHEETS' = wf_worksheet
    EXPORTING
    #1 = wc_sheets.
CALL METHOD OF wf_worksheet 'ACTIVATE'.
SET PROPERTY OF wf_worksheet 'NAME' = 'Material Details'.
*--formatting the cells
CALL METHOD OF wf_excel 'Cells' = wf_cell_from
    EXPORTING
    #1 = 1
    #2 = 1.
DESCRIBE TABLE int_matl LINES lv_lines.
CALL METHOD OF wf_excel 'Cells' = wf_cell_to
    EXPORTING
    #1 = lv_lines
    #2 = 1.
*--range of cells to be formatted (in this case 1 to 4)
CALL METHOD OF wf_excel 'Range' = wf_cell
    EXPORTING
    #1 = wf_cell_from
    #2 = wf_cell_to.
*--formatting the cells
CALL METHOD OF wf_excel 'Cells' = wf_cell_from1
    EXPORTING
    #1 = 1 "row
    #2 = 1. "column
DESCRIBE TABLE int_matl LINES lv_lines.
CALL METHOD OF wf_excel 'Cells' = wf_cell_to1
    EXPORTING
    #1 = 1
    #2 = 4.
CALL METHOD OF wf_excel 'Range' = wf_cell1
    EXPORTING
    #1 = wf_cell_from1
    #2 = wf_cell_to1.
SET PROPERTY OF wf_cell 'NumberFormat' = wf_format.
CALL METHOD OF wf_cell1 'INTERIOR' = wf_int. "Setting the color from for range of cells
SET PROPERTY OF wf_int 'ColorIndex' = 5.
SET PROPERTY OF wf_int 'Pattern' = 1.
DATA l_rc TYPE i.
*DATA download into excel first sheet
CALL METHOD cl_gui_frontend_services=>clipboard_export
    IMPORTING
      data                 = int_matl[]
    CHANGING
      rc                   = l_rc
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.
CALL METHOD OF wf_worksheet 'Paste'.
CALL METHOD OF wf_excel 'Columns' = wf_column1.
CALL METHOD OF wf_column1 'Autofit'.
FREE OBJECT wf_column1.
ENDFORM.                    " f_material_details
Regards,
Manoj Kumar P

Similar Messages

How to color a line in ALV Dispaly

Hi Abaper,
As of my requirement i want to display output of the report for certain lines in a color iam using ALV method,
Plz help me ASAP
answer will be reward.
Thanks in advance
hema

Hi Hema..
this is The code for Applying the colors For Lines or Cells also..
report yacpr0007.
This must be included in order to create the fieldcatalog.
type-pools: slis.
parameters: p_dummy type c.
types: begin of ty_data,
         select type c,
         f1 type i,
         f2 type i,
         f3 type i,
         color_line(4) type c, " Line color
         color_cell type lvc_t_scol, " Cell color
       end of ty_data.
constants: c_true type boolean_flg value 'X',
           c_false type boolean_flg value space.
data: i_data type table of ty_data,
      i_field_cat type slis_t_fieldcat_alv,
      s_layout    type slis_layout_alv.
start-of-selection.
perform f_create_field_cat.
perform f_set_layout.
perform f_create_data.
end-of-selection.
perform f_display_grid.
*&      @FORMS
*&      Form f_create_data
Create some sample data.
form f_create_data.
data: lw_data type ty_data,
        lw_color_cell like line of lw_data-color_cell.
do 15 times.
    clear lw_data.
    lw_data-f1 = sy-index.
    case sy-index.
      when 3.
**/ Set the row or cell to color
        lw_data-color_line = 'C410'.
      when 8.
        lw_color_cell-color-col = 6.
        lw_color_cell-fname = 'F1'.
        append lw_color_cell to lw_data-color_cell. "/ .
    endcase.
    lw_data-f2 = sy-index * 2.
    lw_data-f3 = lw_data-f1 + lw_data-f2.
    append lw_data to i_data.
enddo.
endform.                    "f_create_data
*&      Form f_create_field_cat
Create the fieldcatalog. This needs to contain a minimum of
the names of the fields you wish to display. However there are
numerous other things which can be added such as position, colour etc.
form f_create_field_cat.
**/ Add data to the field catalog
perform f_append_row using: 'F1' 'field one' 3,
                              'F2' 'field two' 2,
                              'F3' 'field three' 1. "/ .
endform.                    "f_create_field_cat
*&      Form f_append_row
Append a single row to the field catalog.
     -->L_NAME     The name of the field to be added.
     -->L_DESC     The description for the column heading.
     -->L_POS      The column number for the field.
form f_append_row using pv_name pv_desc pv_pos.
data: lw_field_cat like line of i_field_cat.
**/ Append the field catalog record.
lw_field_cat-fieldname = pv_name.
lw_field_cat-seltext_l = pv_desc.
lw_field_cat-col_pos = pv_pos.
append lw_field_cat to i_field_cat. "/ .
endform.                    "f_append_row
*&      Form f_set_layout
Set the layout including the field names used to indicate the
cells or rows should be coloured.
form f_set_layout.
s_layout-colwidth_optimize = space.
s_layout-no_colhead = space.
s_layout-zebra = space.
s_layout-no_vline = space.
**/ Field that identify color line in internal table
s_layout-info_fieldname = 'COLOR_LINE'.
Field that identify cell color in inetrnal table
s_layout-coltab_fieldname = 'COLOR_CELL'. "/ .
endform.                    "f_create_layout
*&      Form f_display_grid
Call the function to display the grid.
form f_display_grid.
**/ You need to pass in a minimum of the fieldcatalog and the table of data
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
I_BUFFER_ACTIVE                   = ' '
I_CALLBACK_PROGRAM                = ' '
I_CALLBACK_PF_STATUS_SET          = ' '
I_CALLBACK_USER_COMMAND           = ' '
I_CALLBACK_TOP_OF_PAGE            = ' '
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
I_GRID_TITLE                      =
I_GRID_SETTINGS                   =
   is_layout                         = s_layout
**/ the field catalog. Tells SAP what to display
   it_fieldcat                       = i_field_cat
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
I_SAVE                            = ' '
IS_VARIANT                        =
IT_EVENTS                         =
IT_EVENT_EXIT                     =
IS_PRINT                          =
IS_REPREP_ID                      =
I_SCREEN_START_COLUMN             = 0
I_SCREEN_START_LINE               = 0
I_SCREEN_END_COLUMN               = 0
I_SCREEN_END_LINE                 = 0
IT_ALV_GRAPHICS                   =
IT_HYPERLINK                      =
IT_ADD_FIELDCAT                   =
IT_EXCEPT_QINFO                   =
I_HTML_HEIGHT_TOP                 =
I_HTML_HEIGHT_END                 =
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
**/ The table of data and exceptions
    tables
      t_outtab                          = i_data
   exceptions
     program_error                     = 1
     others                            = 2
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
endform.                    "f_display_grid
<b>reward if Helpful</b>

How I fixed the colored vertical lines on my Mac Powerbook G4 17"

Hello all,
I know that many people with a Powerbook G4 17" are suffering from the colored vertical line problem on their displays. This is were a pixel wide vertical line of color (yellow, green, purple, red, and/or blue) randomly appears on the laptop's display, usually between 24-36 months after purchase. This is also known on various internet forums as the "bridget riley effect" -- named after a painter whose art looks very similar to this effect. Many, if not all, of the laptops that suffer from this defect are 17" displays and have a serial number that starts with W8. Mine starts with W85; you can check yours by looking underneath the battery. It usually starts off as just one line, then two, then a few months pass and before you know it your screen looks like this:
This is my screen two years after the first line showed up, which was two and half years after getting it in December of 2005. Not so pretty. And completely useless without an external display, kind of killing the purpose of a Laptop. As a film editor I needed my screen to see the images and more importantly I needed it to be mobile. There's not always a screen to plug into.
I tried getting Apple to fix the problem, but apparently they're just ignoring the fact that almost all the laptops that came from this certain factory in Thailand (indicated by the serial number starting with W8) have failing displays. They delete threads and forums on their website, and try to censor and ignore the problem as much as they can. Unless some huge media blitz happens, or there is some kind of legitimate lawsuit, I highly doubt they ever will do anything about it, and you can't really blame them. They are a big business and addressing this problem with cost them potentially millions in repairs and tarnish their reputation as a quality manufacturer, and Apple's biggest commodity is its reputation. It ***** that Apple allowed this kind of thing to happen, but as things stand right now, it would be a poor business decision to fix it.
So, fellow vertical line sufferers, AKA the W8 club, my advice to you is stop holding out hope that they will pay for your screen to be fixed and get it done yourself! If you do it right you can get it done for between $60-$99. Here's how I did it.
First off, know that this is a hardware problem. There is no setting in system preferences you can change that will make the lines go away. There are failing physical parts in your computer to blame and they need to be replaced.
Second, in order to keep things as cheap as possible, you are going to replace the parts. It's actually pretty easy.
Thirdly, you are going to need a whole new display. I thought maybe if I replaced the display data cable (the cable that runs from the computer under the key board to the back of the screen) it might solve the problem very cheaply, since a brand new one only costs about $9 online. I took the computer apart, replaced the cable, but the display did not change at all. So the problem is the screen, not the cable. I needed a whole new screen, however, a brand spanking new one can cost between $350-$600. So I went on eBay, typed in my computer, and looked for computers that were being sold for "parts" or "repair." These are usually much cheaper because they are not working computers, but you don't need the computer to work, you just need the display to work. If you do this, make sure you read the descriptions. If there's any mention of display problems, move on and keep looking. You don't want to replace the display only to have the lines show up all over again a few months down the line. They wont always give you the serial number, but obviously try to stay away from serial numbers that start with W8. I found a used Powerbook being sold for parts for $63. It didn't have RAM, or a Hard-drive, or screws to keep the keyboard on, but the display apparently had no issues. With shipping and handling it cost me $94 total and three days to get it. The serial number started with V7. I'm sure with a little patience and vigilance, you can find something just as cheap or even cheaper.
NOTE: Some powerbooks have High-Res display screens, so make sure you know which screen yours has so you know which to look for.
Now, how to actually replace the display. I used an awesome website called ifixit.com. They give you detailed easy-to-follow instructions with photographs. I'll let them give you the nitty gritty of how to replace the display. Here is the actual How-to guide I used:
http://www.ifixit.com/Guide/Installing-PowerBook-G4-Aluminum-17-Inch-1-1-67-GHz- Display/258/1
The only tools you really need are a small phillips head screwdriver and a T6 and T8 Torx screwdriver (they are starred on the end, as oppose to crossed like the end of a phillips head). They say you need a "spudger" but I didn't. You can get these at any hardware or auto-parts store. Return them when your done if you are really on a budget, but you might want to take more part from this new computer in the future, so your call. You'll need to print out the instructions first, or use another computer to follow them since you obviously can't use your Powerbook. Find a flat, well-lit work space, preferably near a TV so you don't get bored while working, and use the how-to guide to switch the old display with the new one. It only took me a couple of hours to finish the whole thing, and I didn't have to pay a repair man hundreds. My display works perfectly now! It's so nice to be have the mobility of a laptop again (especially since the computer i got off of eBay came with a battery that can actually hold a charge).
NOTE: There are a bunch of screws and a few small parts that will need to be taken out while replacing the display, and its important they all go back in their proper spots. So I highly recommend you take a long piece of tape, loop it, and stick it flat onto the side of your work space. As you take out each screw or small part, stick them in order to the tape. This way nothing gets lost and when you work backwards to put your computer back together you'll always know which screw or small part is next in line and which one the how-to guide is referring to.
I really hope this helps people with this problem. This seems to be the only solution. And for less than $100 bucks, I think its worth it, especially since you now have back up parts for any other part of your computer that might fail in the future. My disc drive stopped working recently so I'm replacing it with the one that came with the computer I got off eBay; a $90 part. I tried to make this as easy-to-follow, practical, and comprehensive as I could -- for as cheap as I could. GOOD LUCK!!!
-R

I suspect not. There are long threads with hundreds of reports, most with PowerBooks whose serial numbers began with W8 (or W85). Still there is no Repair Extension Program for this issue.
At this point, your only recourse is to discuss the issue with Apple Consumer Relations at 1-800-767-2775, if you are in North America.

Need to change colors of lines in an Omniportlet Line Chart

I am running Oracle Portal on a 10g Web server. I have created an Omniportlet and I am displaying data in a line chart. Is it possible for me to define the colours of the lines in the linechart?

Hi I didn't changed colors in line chart but I managed to redesign lot of omniportlets.
What you can do is to re-define CSS.
Add an HTML portlet in your page with some CSS embedded.
To catch wich class are to be re defined, I recommand you to use firefox with the extension Webdevelopper.
Use the "Informations - display element information" functionnality to catch wich class are used for your chart.
Then redefine those classes in your custom CSS.
Hope that will help

Can I color a line of "standard text" in adobe forms output?

Simple question: Can I color a line of "standard text" in adobe forms output?
My standard text (SO10) has multiple lines.
Can I make one of the lines red?
Ollie

Hi Oliver,
I believe you standard text is a table type of TDLINES.
On the form you would display it with a table of 1 column 1 row with repeat row ticked.
Have the like below code on the fomr ready event of your table.
for(var i =0; i<this.Row1.nodes.length;i++)
     if(i == 1){
     this.Row1.Cell1.font.fill.color.value = "255,0,0";
     this.Row1.xx.font.fill.color.value = "255,0,0";
Note: in my example I had a table with one row names Row1 and 2 fields cell1 type textbox, & xx as text / label.
If its like you have it in a text box with multiple entries, we need to spli the value such that 1st row is displayed in a text box whose parameters are by defeult set to font red, and rest of them to this text area.
If your procedure is table the code sud work, else let me know how you get data and how do you display it on the screen.
Cheers,
Sai

Changing color of lines in line chart

Okay this is a dumb question but how do I change the color of
lines in a line chart?

"spacehog" <[email protected]> wrote in
message
news:g81g1a$eq4$[email protected]..
> Okay this is a dumb question but how do I change the
color of lines in a
> line
> chart?
http://www.rphelan.com/2008/05/23/taking-control-of-flex-charting-styles/

CS4: Change color of line indicator/outline tool (not line itself)

I couldn't find an answer in any of the resources - possibly because I don't know the right term.
I am talking about the line that is displayed during the period that you draw a line - from the time you click the mouse, until you release it. There's a thin greyscale line indicating the outline of the item you are drawing.
I'm working on ultrasound images, full of greyscale spots. In order to draw lines as precisely as possible, I would prefer that the outline that is displayed while I'm trying to draw my line as correctly as possible, has another color.
I know how to change the color of lines that I have drawn, that are part of the image. What I need is to change the color of the line indicator/helper tool that ONLY shows WHEN I'm drawing a line, and is not really a part of the image.
Hope you can help!

It's a well-known shortcoming that the path that's drawn with the pen is hard to see under some circumstances.
One thing: Its appearance is a little different with OpenGL Drawing disabled vs. enabled. What's your setting (Edit - Preferences - Performance)?
If you're not in need of the OpenGL features, disabling OpenGL Drawing could be helpful in making your paths somewhat more visible. Such a change is not without downsides, but perhaps it could serve as a workaround for you.
-Noel

I have an iphone 4 and i'm having lot of problems: my back camera is blurred although my front camera is fine and working normal. my biggest problem is that the screen is showing colored horizontal lines

I have an iphone 4 and i'm having lot of problems:
_ my back camera is blurred although my front camera is fine and working normally
_ my biggest problem is that the screen is showing colored horizontal lines(as perhaps electrical problems). The phone did fell and I already changed its back and front but everything was normal until these problems appeared suddenly
Please can somebody help me to solve it and tell me what are the reasons?
Thx

you can try turning it off and on again, but i doubt that's gonna work, that sounds like more of a hardware issue. Your best bet may be to contact apple and seek service or replacement

Stroke color of line in LineChart

How to change the color of line in line chart, from
ActionScipt???
I've found an example of how to change the stroke of
horizontal or vertical axis, but I just can't find anything clear,
how to change the chart line!!!! There are many, many properties,
but none of them is right.

I want to change the areaStroke and areaFill of an AreaSeries
object, but maintaining the default assigned colors. I´ve
tried to the method getStyle("areaStroke") but it returns null.
Where Flex sets the default colors? Isn't there anyways to maintain
the default colors but change the style, gamma, weight, etc...
It would be great to do this with LineSeries and other types
of series.

S10-3: colored dots line at start up

Hi,
I have observed that whenever I start my netbook, just before the desktop appears (the last `black screen`) I get an interrupted colored thin line at the top of the screen (blue, yellow and white dots).
Is this a sign that I have some problems with the video card or the display? Is it normal?
Can anyone help?
Thanks.

No harm, indeed, the netbook works just fine, but I was just wondering whether it is not an indication of a minor problem with the graphics media accelerator or the display, or something else from this area ...
Also, I have noticed that when turned on from Sleep mode, the netbook shows no line. It only happens when I close it with shut down...

Bad Scan result black page with color vertical lines

Why my HP Deskjet 1050 All in one printer Bad Scan result black page with color vertical lines ? i'm running on linux mint 17.

Hi , Welcome to the HP Forums! I understand that you are getting vertical lines with your scanning when using your HP Deskjet 1050 printer on Linux Mint 17. I am happy to look into this for you! What happens when you make copies with the printer? Copy Documents with Text and Graphics. Do you still see the vertical lines? In the meantime, please see this guide, Vertical Bands, Lines, or Streaks in Copies or Scans, and let me know what happens! Hope to hear from you soon! “Please click the Thumbs up icon below to thank me for responding.”

Color a line in ALV Grid Control

<<Do not ask for or offer points>>
Hi all,
How to color a line in ALV Grid Control using OOPs.
The appropriate replies will be rewarded.
regards,
S Philip
Edited by: Matt on Dec 22, 2008 11:05 AM

<<Points unassigned - cut and paste not allowed. http://sgstocks.tripod.com/alvgrid_control.htm>>
Hi,
To color a line, the structure of the table must include a Char4 field for color properties
TYPES: BEGIN OF st_sflight.
        INCLUDE STRUCTURE zsflight.
      Field for line color
types: line_color(4) type c.
TYPES: END OF st_sflight.
TYPES: tt_sflight TYPE STANDARD TABLE OF st_sflight.
DATA: gi_sflight TYPE tt_sflight.
Loop trough the table to set the color properties of each line. The color properties field is
Char 4 and the characters is set as follows:
Char 1 = C = This is a color property
Char 2 = 6 = Color code (1 - 7)
Char 3 = Intensified on/of = 1 = on
Char 4 = Inverse display = 0 = of
     LOOP AT gi_sflight INTO g_wa_sflight.
      IF g_wa_sflight-paymentsum < 100000.
        g_wa_sflight-line_color    = 'C610'.
      ENDIF.
      MODIFY gi_sflight FROM g_wa_sflight.
    ENDLOOP.
Name of the color field
gs_layout-info_fname = 'LINE_COLOR'.
Grid setup for first display
CALL METHOD go_grid->set_table_for_first_display
      EXPORTING i_structure_name = 'SFLIGHT'
                             is_layout                = gs_layout
      CHANGING it_outtab                 = gi_sflight.
Regards,
John
Edited by: Matt on Dec 22, 2008 11:18 AM

Colored vertical lines on half my screen

I have had my iMac a couple weeks. I bought a refurbished one from the Apple Store. After I turn it off and then back on, I noticed half the screen will have very colorful vertical lines. After several minutes, it will go away, sometimes I can still see them faintly, but then eventually, not at all. Today, after it was 'asleep' and I started it, it did it again.
This is on the 21.5" screen. Has anyone else had this issue. Is there an easy fix, or am I going to have to send it off? I just got it, I really don't want to lose it for weeks.....Thanks.

Hello daytondunn
Welcome to Apple Support Communities
Unfortunately you will need to contact Apple Support.
http://www.apple.com/support/contact/
Dennis

Multi colored vertical lines on screen

Hello,
I have a Macbook Pro 5,1 that has multi colored vertical lines going down the screen. I've looked at numerous posts that refer me to the "EM80 article" but they seem to be referring to the Imacs when referencing this article. I tried taking a screen shot to showcase the problem but the multi colored lines do not appear on the screenshot. Is any one else having this same problem? Is my lcd broken (I did not drop the computer), could there be a lose cable, is there a problem with the NVIDIA GeForce 9400M graphics card? Thanks for the help.

The fact that the lines don't appear in a screenshot means it is a physical problem. Such as the lcd controller, backlight, etc. As long as you've got the latest firmware updates it's unlikely you'll find any fix other than apple repair.

Multiple different colored vertical lines all over screen?

I have quite a few different color vertical lines across my screen. They are yellow, purple, blue, green etc. It started with just one or two and now there is probably close to 75, some tightly grouped and others here and there. Can anyone tell me what it is? Is my video card going out or something? Is there anything I can do to stop it?
Thanks

Hi all
I have a single red vertical line down the very left edge of the screen of my 2006 17" MacBook Pro. It has appeared over the last day or so and is there most of the time, although it occasionally disappears for a short while.
Do you think this could be a similar issue?
Thanks very much.

Coloring a line in 'GUI_DOWNLOAD'

Similar Messages

Maybe you are looking for