Jak wydrukować kawałek ekranu w trybie graficznym [turbo pascal]?
Musisz pobierac poszczegolne piksele z ekranu i wrzucac na canvas obiektu Printer, ktory bedziesz mial jak w uses dodasz Printers:
Printer.BeginDoc;
Printer.Canvas.Pixela[a1, a2]:= Kolor;
Printer.EndDoc;
Nie stety nie pamietam jak sie pobieralo kolor dowolnego piksela na ekranie.
Dobra dzięki ci. Oto mi chodziło. A kolor pixela pobiera sie funkcją getpixel (x,y,kolor);
Printer.BeginDoc;
Printer.Canvas.Pixela[a1, a2]:= Kolor;
Printer.EndDoc;
Takie rzeczy w turbo pascalu? [stuk]
Aha jeszcze jedno co znaczy [A1,A2] czy jest to położenie pixela (x,y) ? I czy to naprawde działa w pascalu (nie mialem czasu zeby sprawdzić)
Aha jeszcze jedno co znaczy [A1,A2] czy jest to położenie pixela (x,y) ? I czy to naprawde działa w pascalu (nie mialem czasu zeby sprawdzić)
A1 i A2 to rzeczywiście położenie pixela, niestety problem w tym, że ten kod jest do delphi, a nie do turbo pascala. W pascalu nie ma czegoś takiego, jak canvas, nie ma też chyba nawet obiektu printer.
Kto zna ktoś jakąś procedure w PASCALU do drukowania?
Znalazłem już jak sie drukuje text ale mi chodzi o grafike.
//Edycja postów!! - m.M
Nie mam niestety helpa do turbo pascala, więc ci nie dam rozwiązania. Nie wiem też, czy drukowanie grafiki w pascalu jest w ogóle mozliwe. Ale jak dodałem do uses moduł printers, to kompilator sie nie oburzał, więc radzę poszukać w helpie funkcji zawartych w tym module.
Nie wiem też, czy drukowanie grafiki w pascalu jest w ogóle mozliwe
Oczywiście jest to możliwe.. ale..
- Trzeba przechwycić głowicę naszej drukarki, zawory dysz, prowadnicę papieru.. itd i rysować wszystko ręcznie (narysowanie zwykłego prostokąta będzie już sukcesem, a co dopiero całego kolorowego obrazu)
- Nie jest to takie proste
- Ponieważ trzeba napisać sobie sterownik
- A dla różnych drukarek są różne polecenia sterujące, co niestety powoduje że nasz program z 300 lini rośnie do 5 000 (zakładając że wklepaliśmy obsługę tylko najpopularniejszych drukarek)
- Ale nie załamuj się -założę się że są do tego gotowe moduły.
- Tylko trzeba je znaleźć.
Pozdrawiam.
Na pewno nie jest tak fatalnie: jeżeli można drukować w trybie txt to i w graficznym można. Nie wiem czy to coś pomorze, ale słyszałem, że Print Scrn (przycisk) w dosie powodował wydrukowanie zrzutu ekrany na printerce.
<font color="green">5. Ale nie załamuj się -założę się że są do tego gotowe moduły.
6. Tylko trzeba je znaleźć.</span>
Szukałem ale nie moge nigdzie znaleŹć może wy znacie jakieś strony (po polsku :-) )
Takie rzeczy w turbo pascalu?
Usp. No nie, to w Delphi. Nizebyt uwaznie przeczytalem pytanie :) , Sorry.