Hallo!
Zitat von
progcoder:
Mit OutText krigst Du das doch automatisch. Gibt es in jeder vernünftigen Grafikbibliothek!
Richtig, aber wie machen die das. Hab hier folgendes gefunden. Entwerder es liegt an der fortgeschrittenen Zeit, oder ich raff wirklich irgendwas nich.
Delphi-Quellcode:
//Die Kommentare sind von mir und beschreiben MEIN bisheriges Verständnis des Ablaufes!
PROCEDURE Outtextxy(Dest:VirtualWindow;x,y:LongInt;r,g,b:Word;Ketten:String);
VAR q,q2,q3,q4,q5,q6,q7 : Byte;
Begin
ypos1:=y; //YPosition festlegen
q6 :=length(ketten); //Stringlänge zwischenspeichern
xpos1:=x+q6*(textsize shl 3); // ??? Was macht die Berechnung?
q7 :=textsize-1;
For q:= 1 to q6 do
begin
For q2:= 0 to 7 do //Ausgabe 7 Byte als je ein Pixel vorbereiten
begin
//Dann Zwischenvariable als String mit Einsen, wo Bitmuster für Zeichen
Kette:=DezToBin(FontVariable[(ord(Ketten[q]) shl 3)+q2]); //Warum ..shl 3?
For q3:=0 to 7 do If Kette[q3+1]='1' then // ??
for q4:=0 to q7 do // ?? raff ich gar nich
for q5:=0 to q7 do // ??
PutPixel(Dest,x+q5+q3*textsize+(q-1)*(textsize shl 3),y+q4+(q2*textsize),r,g,b);
//Die Berechnung in PutPixel raff ich auch nicht.
end;
end;
End;
Rafft das einer? Hab mich mit Low Level Grfikprogrammierung lange nich mehr beschäftigt und muss wohl was nachholen! Ich könnte zwar diese fertige Prozedur einfach nehmen und weitermachen, aber wozu gibt es dann OpenSource? Hab deswegen oben, als ich das Thema begonnen habe, ne eigene Version geschrieben, die aber nicht läuft. Hab die eigene Version in der Hoffnung geschrieben, dann diesen Quelltext hier besser zu versteheen und weil ich eine Grafikbibliothek optimieren will/muss, und dazu muß ich nun mal den bisherigen Ablauf verstehen
Vielleicht sollte ich auch jezt einfach Scluss machen und nach der Nachtruhe diesen Quelltext noch mal anschauen. Werd ich jetz auch tun,
Gute Nacht
profmaster
P.S. Hab bei der Outtextxy Procedure die Fontdefinition jetzt auf die Schnelle nicht rausgesucht, hoffe aber das das Anlegen der Bitmuster eh standardisiert ist.
Muß ich etwa erst meine Fontdefinition mit meinem BIOS Zeichengenerator verbinden, bevor die meinige Version funzt? Egal, morgen ist auch noch ein Tag!