Új hozzászólás Aktív témák

• #1912 oleslie aktív tag sanzi89 #1906

  Új Válasz 2012-11-08 11:20:26 #1912

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  oleslie

  aktív tag

  válasz sanzi89 #1906 üzenetére

  BDE / TDatabase esetén van egy loginprompt paraméter. Alaphelyzetben engedélyezett (true). Én átállítanám ...

• #1907 Tanisz senior tag sanzi89 #1906

  Új Válasz 2012-08-28 18:12:56 #1907

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Tanisz

  senior tag

  válasz sanzi89 #1906 üzenetére

  Paradox régen volt, mintha igaz se lett volna, de hátha nem mondok akkora marhaságot:
  de BDE nem lenne jobb erre?
  DataModul-t használsz?

• #1905 sanzi89 addikt sanzi89 #1904

  Új Válasz 2012-08-22 14:26:30 #1905

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sanzi89

  addikt

  válasz sanzi89 #1904 üzenetére

  Végül az lett a megoldás, hogy előre létrehozott Image komponens Height és Width értékeit állítottam úgy, ahogy nekem tetszik. Plusz ugye a Form méretét is ehhez mérten állítottam be. Kicsit szöszmötölős, de végül sikerült.

• #1903 zka67 őstag sanzi89 #1901

  Új Válasz 2012-08-20 23:35:50 #1903

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zka67

  őstag

  válasz sanzi89 #1901 üzenetére

  1. a public részben csinálj egy Image : TImage; változót.
  2. a form létrehozásakor (FormCreate) hozd létre az Image-t, a Name tulajdonságot ne bántsd.
  3. az Image paramétereiben hiányzik az OnClick, ezt add hozzá:
  Image.OnClick := KepClick;

  Ha a form tulajdonságaiban a BorderStyle-t bsNone-ra állítod, kereted sem lesz,.
  A JPG1-re nincs szükséged, sem az Image Width és Height beállításokra, mivel a LoadFromFile be fogja állítani ezeket. Ha a Stretch-et true-ra állítod, akkor kinyújtja a teljes képernyőre a képet.

• #1902 sanzi89 addikt sanzi89 #1901

  Új Válasz 2012-08-17 13:45:54 #1902

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sanzi89

  addikt

  válasz sanzi89 #1901 üzenetére

  Plusz a másik gondom, hogy minden egyes Form nyitáskor létrehozza a TImage-et, így ha újra megnyitom a Formot hibát dob, mert már létezik Kep nevű komponens. Az volna az ötletem, hogy a FormClose-ba beleteszem az objektum törlését, de mivel nem tudok rá hivatkozni (Kep.Free; nem jó), nem tudok vele mit csinálni.

• #1901 sanzi89 addikt sanzi89 #1900

  Új Válasz 2012-08-17 13:16:49 #1901

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sanzi89

  addikt

  válasz sanzi89 #1900 üzenetére

  Akkor leírnám mire jutottam. Van egy Form-om, legyen neve Form2. Az alábbi beállítások érvényesek:
  WindowsState = wsMaximized
  AutoScroll = False

  Van egy ScrollBoxom, legyen a neve ScrollBox1. Az alábbi beállítások érvényesek:
  Align = alClient
  AutoScroll = True

  És akkor a forráskód:

  unit elsokep;
  interface
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, JPEG;
  type
  TForm2 = class(TForm)
  ScrollBox1: TScrollBox;
  procedure FormShow(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;
  var
  Form2: TForm2;
  implementation
  uses anla;
  {$R *.dfm}
  
  procedure TForm2.FormShow(Sender: TObject);
  var
  JPG1: TJPEGImage;
  begin
  //Formot a bal felso sarokba allitom
  Form2.Top:=0;
  Form2.Left:=0;
  //Meghatarozzuk a megjelenitendo kep meretet
  JPG1:=TJPEGImage.Create;
  JPG1.LoadFromFile('c:\01.jpg');
  //Letrehozzuk a megjelenitendo kep komponenset a jo beallitasokkal
  with TImage.Create(self) do begin
  Name:='Kep';
  Parent := ScrollBox1;
  Autosize:=True;
  Top := 0;
  Left := 0;
  Width := JPG1.Width;
  Height := JPG1.Height;
  Picture.LoadFromFile('c:\01.jpg');
  end;
  end;
  end.

  Ez annyit tud, hogy új formon megjeleníti scrollboxban a képet eredeti felbontásban. Erre kellene egy OnClick, hogy milyen változás legyen, ha kattintok. Ezt is megcsináltam, de nem jó:

  procedure TForm2.KepClick(Sender: TObject);
  begin
  ShowMessage('OK');
  end;

  Azt írja, hogy a Kep nem található, pedig ilyen néven hoztam létre... Ötletek?

• #1900 sanzi89 addikt sanzi89 #1899

  Új Válasz 2012-08-17 11:41:54 #1900

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sanzi89

  addikt

  válasz sanzi89 #1899 üzenetére

  Újabb kérdésem lenne. van egy Form-om, amin semmi sincs, csak 1 darab kép megjelenítése. Az lenne a cél, hogy a Form mindig akkora legyen, mint a monitor, tehát töltse ki a teljes képernyőt. Ezt meg is tudtam csinálni a WindowsState wsMaximized-re állításával. Ezen a Form-on kellene egy kép, ami megjelenjen, de teljes felbontásban, görgetősávokkal a szélén. Na, ez nem akar sehogy se összejönni. Ötletek?

  u.i.: Sőt, a legkirályabb az lenne, ha először teljes képernyőben jelenne meg a képet teljes képernyő méretre kicsinyítve, majd kattintás után a valódi méretben jelenne meg a kép.

• #1899 sanzi89 addikt sanzi89 #1898

  Új Válasz 2012-08-16 14:06:48 #1899

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sanzi89

  addikt

  válasz sanzi89 #1898 üzenetére

  Kérdésem tárgytalan, a köcsög IrfanView szopatott meg. Ha elforgattam vele egy képet és elmentettem, akkor nem mentette el valójában a képet, csak gondolom valamilyen bejegyzést állított, így elforgatva nyitottam meg. Ha például megnyitottam Paint-ban, akkor elforgatás nélkül látszódott.

• #1897 drkbl őstag sanzi89 #1895

  Új Válasz 2012-08-13 14:05:01 #1897

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  drkbl

  őstag

  válasz sanzi89 #1895 üzenetére

  WrapText MaxCol=1-el?

  Description

  WrapText scans a string for occurrences of any of the characters specified by nBreakChars and inserts a line-break, specified by BreakStr, at the last occurrence of a character in nBreakChars before MaxCol. Line is the text WrapText scans. MaxCol is the maximum line length.

• #1896 drkbl őstag sanzi89 #1892

  Új Válasz 2012-08-13 13:48:36 #1896

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  drkbl

  őstag

  válasz sanzi89 #1892 üzenetére

  A D7 helpjéből:

  DisableControls method (TDataSet)

  Usually DisableControls is called within the context of a try...finally block that reenables the controls even if an exception occurs. For example:

  with CustTable do
  begin
  DisableControls;
  try
  First;
  while not Eof do
  begin
  { Process each record here }
  Next;
  end;
  finally
  EnableControls;
  end;
  end;

Új hozzászólás Aktív témák