screen raz 2

0

Witam!
Wiem jak zrobic screena ale on zajmuje ok 3MB =P
Wiecie moze jak sie robi "mniejsze" screeny ??

0

Skompresuj do formatu JPEG.

0

mozesz albo zmniejszyc jego rozmiary albozapisac do pliku jpg

[...]
const
sciezka = 'C:Obrazki';

var
Form1: TForm1;
Can: TCanvas;
B : TBitmap;
JPG : TJPEGImage;
savestring : string;
i : integer = -1;
idle_Set : boolean = false;

implementation

{$R *.DFM}

procedure TForm1.Idle(Sender: TObject; var Done: Boolean);
begin
inc(i);
if i = 10) and (i = 100) and (i

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0