Ekran Çözünürlüğü

[Serim]

mrb arkadaşlar,
ayrıntılı bir şekilde sorunumu anlatıcam.projemde bütün formlarımı hazırladım,hepsinin position özelliği screencenter.sonradan arkaya siyah form hazırladımki masaüstü görünmesin istedim.bu form8.birde bu forma image koymam istendi. çünkü sayfaların hiç birinde X( close) ve _minimize etme tuşu yoktu. öyle olunca bende form8'e koydum. hepsinden görünsün die. fakat setup ını hazırladıktan sonra farkettim ki çözünürlüğü yüksek olan bi bilgisayarda form8'e koyduğum resim kaymış. bunu düzeltmek için ekran çözünürlüğünü otomatik olarak 1024*768 olması gerekiyor. burdaki kodları inceledim. ama işime yaramadı.
iyi çalışmalar...
şimdiden teşekkürler






ado bileşenleriyle veritabanına bağlandım.

[fahrettin]

işinize yaramayan kodlar nelerdir?
Ya da
viewtopic.php?t=734
viewtopic.php?t=650
linklerine baktınız mı?

[hbahadir]

Image1.Height := Screen.Height;
Image1.Width := Screen.Width;

Kolay gelsin.
Hüseyin BAHADIR.

[mege]

valla formun screencenter olduğu halde ortada açılmaması ilginç.
bide şunu dene

Kod: Tümünü seç

procedure TForm1.FormShow(Sender: TObject);
begin
form1.top := round((Screen.Height -form1.height)/2);
form1.left:= round((Screen.width -form1.width)/2);
end;

[Serim]

fahrettin abi, verdiğiniz linklere bakmıştım, olmadı.ben formlarımı ortada gösteriyorum,arka formdaki image'in align özelliğini client,center'ınıda true yaptım.arka formdaki resmide ortada gösteriyorum.ama diğer formlarımla arada biraz mesafe kalıyo dek gelmiyo bi türlü.(hepsini ortalamamış olmama rağmen)metin beyin verdiği kodlarda da aynı şey oldu, yine dek gelmedi.uzun lafın kısası benim otomatik olarak makinanın çözünürlük ayarını 1024/768 yapmam lasım.forumda arattırdım ama denediklerim görmedi işimi.bunun bi yolu olmalı ama ne?

[hbahadir]

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
  DevMode : TDevMode;
begin
  i := 0;
  while EnumDisplaySettings(nil,i,Devmode) do begin
    with Devmode do
      ListBox1.Items.Add(Format('%dx%d %d Colors',[dmPelsWidth,dmPelsHeight,1 shl dmBitsperPel]));
    Inc(i);
  end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Button1.Enabled := Listbox1.ItemIndex >= 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  DevMode : TDevMode;
begin
  EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode);
  ChangeDisplaySettings(DevMode,0);
end;

end.

Bu kod delphi türk kodbank'tan alınmıştır.

Kolay gelsin
Hüseyin BAHADIR

[aslangeri]

S.A.
image ın strech ini true yapmayı denedinmi?
kolay gelsin.

[Serim]

Hayır ama artık farklı bir yolla çözmeye çalışıyorum sorunumu.yani form8 deki üstbandı(close ve minimize butonlarının olduğu image) tek tek bütün formlara koyucam.biraz uğraştıracak beni ama neyse
yinede sizin dediğiniz image in stretch olayı ne işe yarıyor.bi dahaki sefere lasım olabilir.

teşekkürler..
iyi çalışmalar..

[TRSoft]

image in stretch olayı ne işe yarıyor.bi dahaki sefere lasım olabilir.

Image > stretch : true yada false değerlerini alıyor. True olduğunda image nesnesinin boyutuna göre içindeki resmi boyutlandırıyor. Kısaca resminizi image nesnesinin içine sığdırıyor. Ama resminizin kalitesi kötü ve uzunluk ve genişlik değerleri küçük ise görüntü kalitesinde bozulmalar olabilir.

[Serim]

neverfear arkadaşımıs sorumu ösel mesajla yanıtlamıs, bende sisinle paylasmak istedim.

Label1.Caption:= 'Çözünürlük: '+IntToStr( Screen.Width ) +' x '+ IntToStr( Screen.Height );
Kod:

if Screen.Width = 1024 and Screen.Height = 768 then
........
else ...... ;


Nokta nokta olan yerlere sen gerekli olan kontrolünü yazmalısın.
İyi çalışmalar

[Serim]

pardon arkadaslar,
arkadasın gönderdiği msj hiç görünmüyo o yüsden tekrar yasıyom:)


Label1.Caption:= 'Çözünürlük: '+IntToStr( Screen.Width ) +' x '+ IntToStr( Screen.Height );
Kod:

if Screen.Width = 1024 and Screen.Height = 768 then
........
else ...... ;


Nokta nokta olan yerlere sen gerekli olan kontrolünü yazmalısın.
İyi çalışmalar

[husonet]

@Konyalı örnek davranışınızdan dolayı kutluyorum sizi. Arkadaşlar lütfen Forum kurallarını okuyalım ve uyalım Özel den Delphi hakkında yazışma yapmayalım Forumuzda her kez her kez e bir şey öğretebilir bildiklerimizi hepimiz paylaşalım.

[mussimsek]

arkadaşlar çeşitli defalar belirttim. Bu özel mesajla/ maille / msn ile her ne yolla olursa olsun, özel mesajla soru sorma ve yanıtlama olayına sıcak bakmıyoruz. Lütfen riayet edelim bu konuya.

Kolay gelsin.