Hallo,
Zitat:
Wertekombinationen
Wenn aber z.B. Fett Kursiv... dazukommt ist es wiederum sinnvol.
Zitat:
Blättere hier ein paar Seiten zurück ...
Du meintest das hier, oder?
Delphi-Quellcode:
var
i: TBitRange;
B: TBitByte;
begin
for i := 0 to 3 do
B[i] := True;
Writeln( B.Value, ' - ', B.AsString );
Readln;
end.
Ich habe jetzt alles etwas verändert und ... der Text ist dauerhaft rot...
Delphi-Quellcode:
const
flschwarz = 1; //fl = Flag
flblau = 2;
flrot = 4; // schreibfehler, vorher stand hier 3
flgruen = 8;
flgrau = 16;
...
//schwarz klick
buchstabe[PositionSpalte,PositionZeile].attribut:=buchstabe[PositionSpalte,PositionZeile].attribut OR 1;
//blaun klick
buchstabe[PositionSpalte,PositionZeile].attribut:=buchstabe[PositionSpalte,PositionZeile].attribut OR 2;
//rot klick
buchstabe[PositionSpalte,PositionZeile].attribut:=buchstabe[PositionSpalte,PositionZeile].attribut OR 4;
...
//Vergleich
if (buchstabe[i,n].Attribut and flschwarz > 0) then
Schreibflaeche.Canvas.Font.Color:=clblack;
if (buchstabe[i,n].Attribut and flblau > 0) then
Schreibflaeche.Canvas.Font.Color:=clblue;
if (buchstabe[i,n].Attribut and flrot > 0) then
Schreibflaeche.Canvas.Font.Color:=clred;
Wo wir gerade dabei sind:
Zitat:
Übrigens musst Du nicht abfragen, ob ein Flag gesetzt ist, wenn Du es "entsetzen" möchtest (falsch ist das aber auch nicht)
Sondern?
FG Dunkelbunt