Keskustelu: Koodit: Suoraan näytölle piirtäminen

Tässä esitellään näytölle kirjoittamista mutta myös muu piirto onnistuu käyttämällä Canvas objektin funktioita. Myös muiden ohjelmien ikkunaan voi piirtää jos tietää ikkunan HWND:n, vaihda vain GetWindowDC(0) funktion 0 tilalle ikkunan HWND;

procedure kirjoitanaytolle(X,Y: Integer; Teksti: String);
var
 Canvas: TCanvas;
begin
 Canvas := TCanvas.Create;
 Canvas.Handle := GetWindowDC(0);
 Canvas.TextOut(X,Y,Teksti);
 Canvas.Free;
end;

tämä on kyllä kovin delphiä, eikä mitään pascalia.

pilkunnussijat voivat inttää, mutta borland itsekin kutsuu delphin kieltä object pascaliksi, jota vielä kehtaavat muuttaa joka versiossa. delphi-alue kun on olemssa erikseen niin ei tämä pascal-alueeseen kuulu!