Bitmap Datein in Delphi anzeigen und andere sachen

[gaui]

danke naja ich wünsch euch allen nen guten rutsch :) ich lad hier mal das hoch wie weit ich es habe mit dem jeweiligen auftrag vieleicht fällt euch ja was ein ;)

[gaui]

Dieses Mousemove wo finde ich das den in der Delphi leiste? das is gut :) so sieht das dann mit den Farbewerten aus hat mir einen einblick gegeben danke:)

[Michael Habbe]

Das Image markieren auf der Form und im Objectinspektor auf Ereignisse. Dann OnMousMove doppelklicken.


Habe hier noch was für die spätere zufällige Textgenerierung :wink:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,farbe:integer;
begin
  for i := 0 to 255 do
  begin
    for j := 0 to 255 do
    begin
      farbe := Random(clWhite);
      image1.Canvas.Pixels[i,j] := image1.Canvas.Pixels[i,j] XOR farbe;
    end;
  end;
end;

Dazu noch Randomize ins FormCreate.
Und schon kanns logehen.

Hm ja...
[Erklärbär an]
Random(clWhite) ist das Gleiche wie Random(FFFFFF), die zusammengesetzte Farbe für weiss, also 16.777.216
[Erklärbär aus]

[gaui]

oke aber es darf ja später nicht random werden weil ich muss die nachricht die verschlüsselt wurde ja wieder entschölüsseln ;)

[Sunlight7]

Zitat:

Zitat von Michael Habbe

[Erklärbär an]
Random(clWhite) ist das Gleiche wie Random(FFFFFF), die zusammengesetzte Farbe für weiss, also 16.777.216
[Erklärbär aus]

[Perfektionist an]
Nich ganz, clWhite (00FFFFFF Hex) ist nicht 16.777.216 sondern 16.777.215.
16.777.216 (01000000 Hex) ergibt Schwarz mit Ausrichtung auf die reale Palette^^
[Perfektionist aus]

[Michael Habbe]

Zitat:

Zitat von Sunlight7

[Perfektionist an]
Nich ganz, clWhite (00FFFFFF Hex) ist nicht 16.777.216 sondern 16.777.215.
16.777.216 (01000000 Hex) ergibt Schwarz mit Ausrichtung auf die reale Palette^^
[Perfektionist aus]

[Asche-auf-Haupt-Streuer-an]
Ja ok.
Also 2^24 ist gleich 16.777.216 = 256*256*256.
Hiermit sind allerdings die Anzahl der möglichen Farbwerte im RGB-System gemeint. Der erste Wert (0) wird ja auch gezählt.
Vom Max-Wert muss einer abgezogen werden. Dann sind es 2^24-1 = 16.777.215 = clWhite = $00FFFFFF.
[Asche-auf-Haupt-Streuer-aus]

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Multimedia" verschoben.
Delphi-Frage

[gaui]

für meine nächste Frage erstell ich mal ein neues Thema dann ist es übersichtlicher