Form Üzerindeki Bileşenleri Resolution Oranında Büyütme - Programlama- Zamansız Tartışma Platform

The.`KinG · 16-09-06, 00:13 Çevrimdışı

procedure AdjustResolution(oForm:TForm);
var
iPercentage:integer;
begin
if Screen.Width > 640 then
begin
iPercentage:=Round(((Screen.Width-640)/640)*100)+100;
oForm.ScaleBy(iPercentage,100);
end;
end;
AdjustResolution(Self);

Delphi

wolf_57 · 21-04-07, 18:19 Çevrimdışı

paylaşım için teşekkurler

16-09-06, 00:13 Çevrimdışı	#1
Doçent The.`KinG Genel Mesajlar: 3.400 Teşekkür etti: 1.599 Teşekkür edildi: 1.609 RepForum Gücü: 41 Forum Puanı:12182	Form Üzerindeki Bileşenleri Resolution Oranında Büyütme procedure AdjustResolution(oForm:TForm); var iPercentage:integer; begin if Screen.Width > 640 then begin iPercentage:=Round(((Screen.Width-640)/640)100)+100; oForm.ScaleBy(iPercentage,100); end; end; AdjustResolution(Self); Delphi Gözlerim , Sende Kaldı Sevdalım , Hiçkimseleri Göremiyorum ...*

21-04-07, 18:19 Çevrimdışı	#2
Rektör wolf_57 Genel Mesajlar: 7.230 Teşekkür etti: 5.467 Teşekkür edildi: 2.131 RepForum Gücü: 36 Forum Puanı:3077	paylaşım için teşekkurler

Konu Seçenekleri
Yazdırılabilir Sümü Göster Sayfayı E-Mail'le gönder