Yorumları: 669
Konuları: 73
Kayıt Tarihi: 20-12-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 1.544
Programcı
10-07-2019, Saat: 20:15
(Son Düzenleme: 15-01-2020, Saat: 15:30, Düzenleyen: shooterman.)
Selamlar
Arkadaşlar hali hazırda yazılımı tamamlanmak üzere olan programımı full HD çözünürlükte yazdım. Ancak, bugün program içib firmanın almış olduğu laptoplar 1024 x 768 çözünürlükte olduğu için kalakaldım. Programı responsible yapabilmemin şu etapta imkanı yok. Laptoplarda ekrana scroll çıkarak çalışabilecek bir hale nasıl getirebilirim. Bilgi verebilirseniz çok sevinirim.
Yazılımcı, kahveyi koda çeviren bir organizmadır.
Yorumları: 644
Konuları: 84
Kayıt Tarihi: 04-10-2017
Aktif Kullandığınız Delphi Sürümü:
- Delphi 11
- Delphi 10.4
- Delphi 10.3
- Delphi 10.2
- Delphi 10.1
- Delphi 10
- Delphi XE Serisi
Rep Puanı: 2.701
Uzman
Hali hazırda bu işten para kazanan bir programcı, yazdığı yazılıma göre 1024 x 768(en ufak Pos cihazlar) hesaplayarak yazmalı. Kaç tane formunuz var bilmiyorum ama bulacağınız çözümler sabunlama olur önerim elden geçirmekte fayda var.
Yalnızım ama bir kente yürüyen ordu gibiyim, edebiyattan kaçınmalıyım..
Yorumları: 669
Konuları: 73
Kayıt Tarihi: 20-12-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 1.544
Programcı
(11-07-2019, Saat: 08:51)frmman Adlı Kullanıcıdan Alıntı: Tecrübe zamanla ve yapılan işlerle kazanılan bir şey. @wiseman da bu konuda bir tecrübe kazanmış oldu.
Alıntı:Laptoplarda ekrana scroll çıkarak çalışabilecek bir hale nasıl getirebilirim.
Şeklindeki çözüm arayışınızı şu şekilde yapabilirsiniz.
Forma bir adet scrollbox, scrollboxun içerisine bir panel nesnesi yerleştirin.
Panel nesnesini sizin tasarım çözünürlüğünüzü kurtaracak şekilde width ve height değerlerini ayarlayın.
Formda ki nesnelerinizi panel üzerine kes-yapıştır ile taşıyın.
Panelin left ve top değerlerini 0 olarak ayarlayın.
Scrollboxun align özelliğini alClient olarak ayarlayın.
Düşük çözünürlüklerde scrollboxun kaydırma çubukları aktif olacaktır.
Teşekkür ederim ilginize arkadaşlar. Tecrube, yapılan işlerle ve karşılaşılan zorluklara getirilen çözümlerle oluşan bir süreç malum. Böyle böyle yetişeceğiz
Yazılımcı, kahveyi koda çeviren bir organizmadır.
Yorumları: 820
Konuları: 135
Kayıt Tarihi: 07-12-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.030
Uzman
11-07-2019, Saat: 11:32
(Son Düzenleme: 11-07-2019, Saat: 11:34, Düzenleyen: adelphiforumz.)
@
frmman arkadaşımızın yazdığına ilave bir bilgi olarak
eğer elinde çok fazla form var ve bunların hepsi ile uğramazsan
küçük bir kod bloğu yaz.
Form create olunca önce scroolbox nesnesi oluştur.
sonra bir panel oluştur. panellin parentr özelliğini scrool'a bağla
sonra form içerisindeki tüm nesneleri okuyan bir döngü kur ve bu nesnelerin parentl arında
form olarak bağlı olanları ve Visible özelliği olanlarını panele bağla.
Dikkat etmen gereken form içerisinde nesneleri bulduğunda dinamik oluşturduğun nesneleri pas geçmen gerekir.
böylece tüm formlara el atmak yerine sadece tüm formların create kısmına bu yeni yazdığın kod bloğunu çağırmak kalır.
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz.
Yorumları: 669
Konuları: 73
Kayıt Tarihi: 20-12-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 1.544
Programcı
(11-07-2019, Saat: 11:32)adelphiforumz Adlı Kullanıcıdan Alıntı: @frmman arkadaşımızın yazdığına ilave bir bilgi olarak
eğer elinde çok fazla form var ve bunların hepsi ile uğramazsan
küçük bir kod bloğu yaz.
Form create olunca önce scroolbox nesnesi oluştur.
sonra bir panel oluştur. panellin parentr özelliğini scrool'a bağla
sonra form içerisindeki tüm nesneleri okuyan bir döngü kur ve bu nesnelerin parentl arında form olarak bağlı olanları ve Visible özelliği olanlarını panele bağla.
Dikkat etmen gereken form içerisinde nesneleri bulduğunda dinamik oluşturduğun nesneleri pas geçmen gerekir.
böylece tüm formlara el atmak yerine sadece tüm formların create kısmına bu yeni yazdığın kod bloğunu çağırmak kalır.
Sanırım 250 ye yakın bileşen var form üzerinde. Bayağı zorlayacak beni.
Yazılımcı, kahveyi koda çeviren bir organizmadır.
Yorumları: 820
Konuları: 135
Kayıt Tarihi: 07-12-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.030
Uzman
11-07-2019, Saat: 11:40
(Son Düzenleme: 11-07-2019, Saat: 11:43, Düzenleyen: adelphiforumz.)
@
wiseman bileşenlerle bir işin yok senin yanlış yönden bakma
bileşenin visible özelliği varsa (True/False) farketmeksizin ve ilk parent değeri forma bağlı olanlarını ele alıcan
muhtemelen dizan sırasında panellerle ayırıp nesneleri onun üzerine koymuşsundur
en kötüsünde forma bağlı 10-15 nesne olur genelde buda sana hız kazandırır.
Nesnelerin yerleşme düzenini Structure(Shift-Alt-F11) penceresinden bir kaç form için bak.
demek istediğimi daha iyi anlarsın
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz.
Yorumları: 754
Konuları: 39
Kayıt Tarihi: 11-11-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.708
Uzman
11-07-2019, Saat: 12:24
(Son Düzenleme: 11-07-2019, Saat: 12:30, Düzenleyen: hi_selamlar.)
(10-07-2019, Saat: 20:15)wiseman Adlı Kullanıcıdan Alıntı: Selamlar
Arkadaşlar hali hazırda yazılımı tamamlanmak üzere olan programımı full HD çözünürlükte yazdım. Ancak, bugün program içib firmanın almış olduğu laptoplar 1024 x 768 çözünürlükte olduğu için kalakaldım. Programı responsible yapabilmemin şu etapta imkanı yok. Laptoplarda ekrana scroll çıkarak çalışabilecek bir hale nasıl getirebilirim. Bilgi verebilirseniz çok sevinirim.
Merhabalar,
Fikir oluşturması açısından aşağıdaki bileşen işinizi basite indirgeyebilir.
İncelemenizi tavsiye ederim.
http://www.imagekit.com/resizekit2.html
veya şöyle bir örnek mevcut;
http://www.devsuperpage.com/Articles/vie...1-1231.asp
Kolay gelsin.
Amaç, bilginin de/aklın da zekat'ını vermek.
Yorumları: 669
Konuları: 73
Kayıt Tarihi: 20-12-2018
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 1.544
Programcı
(11-07-2019, Saat: 12:24)hi_selamlar Adlı Kullanıcıdan Alıntı: (10-07-2019, Saat: 20:15)wiseman Adlı Kullanıcıdan Alıntı: Selamlar
Arkadaşlar hali hazırda yazılımı tamamlanmak üzere olan programımı full HD çözünürlükte yazdım. Ancak, bugün program içib firmanın almış olduğu laptoplar 1024 x 768 çözünürlükte olduğu için kalakaldım. Programı responsible yapabilmemin şu etapta imkanı yok. Laptoplarda ekrana scroll çıkarak çalışabilecek bir hale nasıl getirebilirim. Bilgi verebilirseniz çok sevinirim.
Merhabalar,
Fikir oluşturması açısından aşağıdaki bileşen işinizi basite indirgeyebilir.
İncelemenizi tavsiye ederim.
http://www.imagekit.com/resizekit2.html
veya şöyle bir örnek mevcut;
http://www.devsuperpage.com/Articles/vie...1-1231.asp
Kolay gelsin.
Çok teşekkür ederim. Hemen bakıyorum.
Yazılımcı, kahveyi koda çeviren bir organizmadır.
Yorumları: 820
Konuları: 135
Kayıt Tarihi: 07-12-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 3.030
Uzman
@
wiseman dün akşam can sıkıntısından işinize yarayabilecek bir basit örnek hazırladım
belki farklı bir fikir verebilir.
procedure TForm1.Pr_AddFormScroll;
var
I : Integer;
xObject: TObject;
SBoxDinamik : TScrollBox;
begin
SBoxDinamik := TScrollBox.Create(Self);
SBoxDinamik.Parent := Self;
SBoxDinamik.Name := 'SBoxDinamik';
SBoxDinamik.Align := alClient;
for i := 0 to (Self.ComponentCount - 1) do
begin
if Self.Components[i].Name = 'SBoxDinamik' then Continue;
xObject := (Self.Components[i] as TObject);
if Not Assigned(GetPropInfo(xObject, 'Visible')) Then Continue;
if TControl(xObject).Parent = nil Then Continue;
if TComponent(xObject).HasParent = False then Continue;
if TControl(xObject).Parent.Name <> Self.Name Then Continue;
TControl(xObject).Parent := SBoxDinamik;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Pr_AddFormScroll;
end;
Bu dünyada kendine sakladığın bilgi ahirette işine yaramaz.