Zitat Zitat
Original geschrieben von Freezy
Jo, so änlich hab ich es gemacht:

Code: 
Result := StrToInt('$' + IntToHex(A,2) + IntToHex(R,2)+ IntToHex(G,2)+ IntToHex(B,2));
Ich wollte ja nurmal fragen ob es eine bessere Methode gibt... weil diese ist mir schon Spanisch und ich frag mich immer warum sowas überhaupt funktioniert... Verrückt? ... Ihr müsstet mal sehen wie ich eine DX Textur in ein Bitmap Packe xD
Wieso spanisch? Das ist doch absolut praktikabel.