PAINTBOX

[tarkanbey]

KANDİLİNİZ MÜBAREK OLSUN DELPHI CAN AİLEMİZ ♥

Değerli hocalarım

Paintbox ve Image  nesnelerine işlediğim grafik işlemleri

bazı PC lerde grafiklerde kayma yapıyor

yani

grafikler küçülüyor (%50 oranında)

ZEMİNİN YARISI BOŞ OLARAK KALIYOR (yarısı boş beyaz bir zemin)

Bunun Nedenini Bir Türlü Bulamadım

Bu konuda çok yardımınıza ihtiyacım var

Şimdiden Çok teşekkürler

[yhackup]

O bilgisayarda ölçeklendirme açık olabilir.

[tarkanbey]

(03-01-2025, Saat: 08:54)yhackup Adlı Kullanıcıdan Alıntı: O bilgisayarda ölçeklendirme açık olabilir.

Çok Teşekkür Ederim 

Ölçeklendirmeyle Alakalıymış

Son Sorum Ricayen Sormak İsterim

Ölçeklendirmeyi Değiştiren Delphi Kodu Varmıdır ?

[yhackup]

(03-01-2025, Saat: 10:04)tarkanbey Adlı Kullanıcıdan Alıntı:

(03-01-2025, Saat: 08:54)yhackup Adlı Kullanıcıdan Alıntı: O bilgisayarda ölçeklendirme açık olabilir.

Çok Teşekkür Ederim 

Ölçeklendirmeyle Alakalıymış

Son Sorum Ricayen Sormak İsterim

Ölçeklendirmeyi Değiştiren Delphi Kodu Varmıdır ?

winapi içerisinde illaki vardır. Msdn'i bir kurcala.

[frmman]

Yaşadığınız problem ölçek ile ilgili ise, uygulamanın çalıştığı sistemdeki monitör(lerin) ölçeklerini aşağıdaki şekilde tespit edebilirsiniz.

Grafik çizme yapınızı buna göre düzenleyebilirsiniz.

Aşağıdaki örnekde 3 monitör bağlı ve bir tanesinin ölçeği 150% ye ayarlı.

procedure TForm2.Button1Click(Sender: TObject);
const
 def_pixel_per_inch = 96;  // %100 deki windows pixelperinch değeri
var
 olcek_0: integer;
 olcek_1: integer;
 olcek_2: integer;
begin

 memo1.Lines.Clear;
 memo1.lines.add('Monitör Sayısı: ' + screen.MonitorCount.ToString);
 memo1.lines.add('');

 memo1.lines.add('Monitörler Pixel Per Inch');
 memo1.lines.add('Monitör 1: ' + screen.Monitors[0].PixelsPerInch.ToString);
 memo1.lines.add('Monitör 2: ' + screen.Monitors[1].PixelsPerInch.ToString);
 memo1.lines.add('Monitör 3: ' + screen.Monitors[2].PixelsPerInch.ToString);

 olcek_0 := (100 * screen.Monitors[0].PixelsPerInch) div def_pixel_per_inch;
 olcek_1 := (100 * screen.Monitors[1].PixelsPerInch) div def_pixel_per_inch;
 olcek_2 := (100 * screen.Monitors[2].PixelsPerInch) div def_pixel_per_inch;

 memo1.lines.add('');
 memo1.lines.add('Monitörler Ölçek');
 memo1.lines.add('Monitör 1: ' + olcek_0.ToString + '%');
 memo1.lines.add('Monitör 2: ' + olcek_1.ToString + '%');
 memo1.lines.add('Monitör 3: ' + olcek_2.ToString + '%');

end;

[tarkanbey]

(03-01-2025, Saat: 10:59)frmman Adlı Kullanıcıdan Alıntı: Yaşadığınız problem ölçek ile ilgili ise, uygulamanın çalıştığı sistemdeki monitör(lerin) ölçeklerini aşağıdaki şekilde tespit edebilirsiniz.

Grafik çizme yapınızı buna göre düzenleyebilirsiniz.

Aşağıdaki örnekde 3 monitör bağlı ve bir tanesinin ölçeği 150% ye ayarlı.

procedure TForm2.Button1Click(Sender: TObject);
const
 def_pixel_per_inch = 96;  // %100 deki windows pixelperinch değeri
var
 olcek_0: integer;
 olcek_1: integer;
 olcek_2: integer;
begin

 memo1.Lines.Clear;
 memo1.lines.add('Monitör Sayısı: ' + screen.MonitorCount.ToString);
 memo1.lines.add('');

 memo1.lines.add('Monitörler Pixel Per Inch');
 memo1.lines.add('Monitör 1: ' + screen.Monitors[0].PixelsPerInch.ToString);
 memo1.lines.add('Monitör 2: ' + screen.Monitors[1].PixelsPerInch.ToString);
 memo1.lines.add('Monitör 3: ' + screen.Monitors[2].PixelsPerInch.ToString);

 olcek_0 := (100 * screen.Monitors[0].PixelsPerInch) div def_pixel_per_inch;
 olcek_1 := (100 * screen.Monitors[1].PixelsPerInch) div def_pixel_per_inch;
 olcek_2 := (100 * screen.Monitors[2].PixelsPerInch) div def_pixel_per_inch;

 memo1.lines.add('');
 memo1.lines.add('Monitörler Ölçek');
 memo1.lines.add('Monitör 1: ' + olcek_0.ToString + '%');
 memo1.lines.add('Monitör 2: ' + olcek_1.ToString + '%');
 memo1.lines.add('Monitör 3: ' + olcek_2.ToString + '%');

end;

ÇOK TEŞEKKÜRLER