DGL • Thema anzeigen - Textout Ohne Opengl Und Ohne Canvas.textout (?)

Textout Ohne Opengl Und Ohne Canvas.textout (?)

Moderator: DGL-Team

Seite 1 von 1

[ 2 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

red

Betreff des Beitrags:

Verfasst: Mo Apr 28, 2003 22:45

DGL Member

Registriert: Mo Feb 24, 2003 18:19
Beiträge: 165
Wohnort: Cologne

moin,

ich möchte mittels der normalen WinAPI (und ein wenig vcl erstmal) ein wenig schneller zeichnen als es die "normale" canvas-funktion zulässt - vor allem einzelne Pixel lesen/setzen ist da ja nicht gerade förderlich... Nun gut, denkt sich der liebe red, sollte ja kein problem sein wenn wir uns einen array mit der größe der gewünschten fläche anlegen und dort hinein malen, und das erst ausgeben - das klappt soweit auch ganz gut, jedoch fehlt mir die möglichkeit, Text auszugeben... hat da jemand eine schlaue idee für mich

? Ach ja, hier noch der Basis-Quelltext, damit nicht alle im dunkeln stehn

die momentane größe beträgt 320x200, in RGB

Code:

 
 
// Typen und Variabeln definieren
type
 &nbsp;xMyCol = Record blue, green, red: Byte; end;
 &nbsp;xPreBuffer = Array[0..63999] of xMyCol;
var
 &nbsp;calcTable: Array[0..199] of Integer;
 &nbsp;PreBuffer: xPreBuffer;
 &nbsp;BitmapInfo: pBitmapInfo;
 &nbsp;fTarget: tCanvas;
 
// später im source
 
procedure InitGraph(target: tCanvas);
var i: Integer;
begin
 &nbsp;if Init then Exit;
 &nbsp;fTarget:=target;
 &nbsp;for i:=0 to 199 do calcTable[i]:=(199-i)*320; &nbsp;// y ist invertiert!
 &nbsp;GetMem(bitmapInfo, SizeOf(TBitmapInfoHeader));
 &nbsp;with BitmapInfo^.bmIHeader do
 &nbsp;begin
 &nbsp; &nbsp;biSize := 40;
 &nbsp; &nbsp;biWidth := 320;
 &nbsp; &nbsp;biHeight := 200;
 &nbsp; &nbsp;biPlanes := 1;
 &nbsp; &nbsp;biBitCount := SizeOf(xMyCol)*8;
 &nbsp; &nbsp;biCompression := 0;
 &nbsp; &nbsp;biSizeImage := 0;
 &nbsp; &nbsp;biXPelsPerMeter := 0;
 &nbsp; &nbsp;biYPelsPerMeter := 0;
 &nbsp; &nbsp;biClrUsed := 0;
 &nbsp; &nbsp;biClrImportant := 0;
 &nbsp;end;
 &nbsp;Init:=True;
end;
 
procedure PutPixel(x,y: Integer; Col: xMyCol);
begin
 &nbsp;move(col, preBuffer[calcTable[y]+x],3);
end;
 
 
function GetPixel(x,y: Integer): xMyCol;
begin
 &nbsp;move(preBuffer[calctable[y]+x], result, 3);
end;
 
// ein paar weitere prozeduren später...
 
procedure UpdateScreen;
var temp: tBitmap;
begin
 &nbsp;if not Init then Exit;
 &nbsp;temp:=tBitmap.Create;
 &nbsp;temp.Width:=320; temp.height:=200;
 &nbsp;SetDIBitsToDevice(temp.canvas.handle, 0, 0, 320, 200, 0, 0, 0, 200, @PreBuffer, BitmapInfo^, DIB_RGB_COLORS);
 &nbsp;fTarget.Draw(0,0,temp);
 &nbsp;temp.free;
end;
 
procedure FreeGraph;
begin
 &nbsp;FreeMem(bitmapInfo);
 &nbsp;Init:=False;
end;
 
 

also, erst wird InitGraph aufgerufen (logisch) mit dem Canvas eines tImages, mit putpixel & getpixel (und einigen weiteren funktionen) wird gemalt und mit UpdateScreen wird dann das gemalte auf das tImage gemalt... aber ich glaube das erklärt sich von selbst...

_________________
www.omfg.biz - aktuelles projekt

Nach oben

KidPaddle

Betreff des Beitrags:

Verfasst: Di Apr 29, 2003 08:00

DGL Member

Registriert: Mo Jan 20, 2003 20:10
Beiträge: 424
Wohnort: nähe Starnberg

Also, in alten DOS Zeiten hat man intern ein Array mit den einzelnen Buchstaben und deren Pixel erstellt und dann, wie bei Schreiben unter OpenGL Buchstabe fuer Buchstabe gezeichnent. Nachteilig war, das man immer nur eine Schriftgröße zu Verfügung hatte. Später kamen dann die Vectorschriften hinzu, in dem zu den Buchstaben die Lineführung gespeichert wurde und diese konnte man skalieren.

Oder Du erstellst eine Funktion zu kopieren von Bitmap oder Teile davon und kopierst diese wie in OpenGL.

KidPaddle

_________________
http://www.seban.de

Nach oben

Seite 1 von 1

[ 2 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 8 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.