Farben werden falsch ausgeben unter delphiX

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

Hallo,
ich möchte einen blauen hintergrund zeichnen also gebe ich(wie ich es immer gemacht habe):
DXDraw1.Surface.Fill(clRed);
ein
und was zeichnet er mir ?
einen blauen hintergrund obwol ich rot haben wollte geben ich clBlue ein bekome ich einen clBlack hintergrund, warum ???

_________________
MFG
Michael Springwald, "kann kein englisch...."

maximus · Beiträge: 896 Win XP, Suse 8.1 Delphi 4/7/8 alles prof

Das fällt dir jetzt erst auf?

Naja, delphi farben sind in BGR order und delphi DelphiX dann vermutlich RGB order! dh. du musst das dritte mit dem ersten byte vertauschen -> shl, shr, or sind deine freunde :wink:

_________________
mfg.
mâximôv

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

jetzt habe ich das timer problem gelöst und unter win2000 hatte ich das problem nicht ich konnte immer clRed oder so sagen, könntes du mal ein beispiel geben ?

_________________
MFG
Michael Springwald, "kann kein englisch...."

maximus · Beiträge: 896 Win XP, Suse 8.1 Delphi 4/7/8 alles prof

Moijn.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

function TmxColorControl.getStandardColor: Cardinal;
var tmp:TColor;
begin
  tmp := DelphiColor;
  result := (tmp and $00FF00) or ((tmp shl 16) and $FF0000) or ((tmp shr 16) and $FF);   
end;

_________________
mfg.
mâximôv

Simon Joker · Beiträge: 236 Erhaltene Danke: 1

oder einfach die funktion nutzen, die die Hilfe empfielt.

markieren

Delphi-Quelltext

1:	DXDraw1.Surface.Fill(DXDraw1.Surface.ColorMatch(clRed));

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

danke, ich habe es jetzt anders gemacht, einfach eine bmp bzw. ein jpeg geladen und fertig.... weil ich hatte noch nie das problem, das ich eine andre farbe als clBlack haben wollte

_________________
MFG
Michael Springwald, "kann kein englisch...."

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme