Problem natury technicznej. Stworzyłem za pomocą komponentu TChart wykres, do którego link podaję: http://www.fotosik.pl/showFullSize.php?id=0d747826f46f81ed. Jak widać na screenie, każdy typ błędu ma przypisany unikatowy kolor. Ustalanie wzorca koloru odbywa się w sposób następujący:
procedure TScrapColorForm.TrackBarChange(Sender: TObject);
begin
with TrackBar do
shKolorZlomu.Brush.Color := RGB(Position, Position, Position);
end;
Słupki są kolorowane w sposób następujący:
GeneralSeries.Add(ProdPr, Kod, dbENgine.CodeToColor(Kod))
function TdbEngine.CodeToColor(CodeName: string): Integer;
var i :Word;
begin
for i := 1 to ScrapCount do
if CodeName = ScrapList^[i].ID then
begin
CodeToColor := ScrapList^[i].CL;
Break;
end else CodeToColor := 16777215; // biały
end; // CodeToColor
Dla wiekszej czytelności screen formy: http://www.fotosik.pl/showFullSize.php?id=21536c80815499e6
Następnie shKolorZlomu.Brush.Color jest umieszczany w tablicy z owymi kodami. I tu pytanie. U mnie na komputerze wykres wygląda jak na screenie, natomiast na komputerach firmowych wszystkie słupki są czarne. Dlaczego? :| System operacyjny XP, z głębia 32 bity. Jedyne co różni nasze kompy to to, że ja mam GeForca, a w pracy są karty graficzne zintegrowane. Przy czym kolory mojego windowsa i w pracy są takie same, dlatego pojęcia nie mam co może być przyczyną takiego zachowania aplikacji. Dodam, że cała aplikacja wygląda dokładnie tak samo, poza słupkami.