David
Thanks for your reply. I probably made my explanation a bit too brief and left out essential info and used misleading terminology. Each grid column represents a room within a Dept and each row a day of a preselected month. The data is got from a single table which contains the date, the aforementioned times and information (or no information - empty cell) about each room at a particular time of day on a particular date. The query fetches data for a single day, containing 27 rows (there are 27 time slots in a day) and cols/fields representing the rooms in the dept. The app loops through (for loop) each field in turn (individual rooms) where it enters a while loop through each row (the time slots) and increments a count if data is found. The const 27 you see in the code is the total number of time slots in a day. Three constant colours (you are quite right that they should be declared as const) are assigned, one for no data found for that room on that day (count=0), one f
or some data but not in all time slots (count > 0 and < 27), and one for data found in all time slots for that room on that day (count=27). Thus for each cell in the stringgrid data is got and counted, and a colour is assigned to the individual cell based on the value of the count.
I take your point (and that of Antonis) that the code for getting and manipulating data should be kept outside of the OnDraw event. It'll be a few hours before I can get back to the job, but as soon as I can I'll let you know what progress has been made.
Regards
Steve
Your OnDraw event is flawed. First of all, do NOT get the data from within the onDraw event! Your only putting code in to handle custom drawing of the control.
You did say "field" so I assume you want to color the columns?. Get rid of the for loops since it already loops through each cell. It starts at the top left and ends up at the bottom right. Just have it check the column property as it goes and color the cell based on that. You could put the color for that column in the column tag property. The code to set the color for each column is put in the appropriate place outside of this event (button click or whatever). You'd have to give each column tag a default property in order for it not to be black with ($000000) until your code executes.
(Tip: defined your cutom colors as a constant at top of form):
constants
clAmber: TColor($0011FF); <-- only 6 digits for a color!!!
procedure TOverviewForm.SGDrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);
begin
Case ACol Of
0: color := SG.Column[0].Tag;
1: color := SG.Columns[1].Tag;
etc.
end;
***************************************************************************
This e-mail and any files transmitted with it are confidential. If you are not the intended recipient, any reading, printing, storage, disclosure, copying or any other action taken in respect of this e-mail is prohibited and may be unlawful. If you are not the intended recipient, please notify the sender immediately by using the reply function and then permanently delete what you have received.
Content of emails received by this Trust will be subject to disclosure under the Freedom of Information Act 2000, subject to the specified exemptions, including the Data Protection Act 1998 and Caldicott Guardian principles.
This footnote also confirms that this email message has been swept by MIMESweeper and Sophos Anti-virus for the presence of computer viruses.
***************************************************************************
.