procedure TForm1.Button1Click(Sender: TObject);
var
dev: Integer;
begin
dev:= GetDeviceCaps(Form1.Canvas.Handle,BITSPIXEL);
showmessage('Color quality is ' + inttostr(dev));
end;إننا محكومون بالأمل وما يحدث الآن ليس نهاية العالم
معرفة الالوان المستخدمة في العرض
مغلق
هذا الموضوع مغلق.