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

• #1906 sanzi89 addikt

  Új Válasz 2012-08-24 14:13:27 #1906

  Ú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

  Újabb gondom akadt. Volna egy .db kiterjesztésű, elvileg Pradox 5-ös adatbázisom, amihez szeretnék hozzáférni. Az adatbázis nem tartalmaz jelszót, azonban a Delphi mindig feladja a kis ablakját Query indításkor, hogy felhasználónév, jelszó. Ha nem írok be semmit, csak leokézom, akkor a következő hibaüzenetet kapom:

  Operation must be performed on the current session

  Hogyan tudnám megkerülni, hogy ne kérjen jelszót, ha egyszer nincs. Lokális XP-n ODBC-n fut az adatbázis.

• #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.

• #1904 sanzi89 addikt zka67 #1903

  Új Válasz 2012-08-20 23:54:07 #1904

  Ú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 zka67 #1903 üzenetére

  Köszönöm a tippeket! Még nincs teljesen kész a dolog, de már módosítgattam pár rész a kódon. Holnap meglesem, hogy mit lehet még változtatni és írok.

• #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.

• #1898 sanzi89 addikt drkbl #1897

  Új Válasz 2012-08-16 13:45:11 #1898

  Ú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 drkbl #1897 üzenetére

  Köszi az ötleteket, végül karaktertömbként kezeltem a Stringet, és végignéztem minden karakterét. Elég gány, de működik.

  Újabb gondom akadt, hogy egy Image komponensbe, ami álló tájolású beszúrok egy fekvő tájolású képet, akkor önhatalmúlag elforgatja a képet. Ez mitől lehet?

• #1895 sanzi89 addikt

  Új Válasz 2012-08-13 13:26:49 #1895

  Ú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

  Delphiben mivel lehetne egy string-et megfelelő elválasztó karakter segítségével szétdarabolni? Ezer meg egy Split-es szirszart próbáltam, de egyik se ment. A franc se gondolta volna, hogy 7.0-ás Delphiben ez ilyen nagy feladat...

• #1892 sanzi89 addikt

  Új Válasz 2012-07-25 13:40:12 #1892

  Ú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

  Valaki tud valami trükköt arra, hogy SQL parancs futása közben ne szaladjon a hozzá kötött BDGrid? A lényeg az volna, hogy ha mondjuk keresek egy sort, akkor a keresés folyamata közben ne szaladjanak a sorok és amikor megtaláltam a rekordot, akkor alljon oda. Illetve még valami olyasmi is jó volna, hogy az aktualis rekord mindig a Grid közepén legyen, ne menjen le a Grid utolsó sorára. Vagy bilibe lóg a kezem?

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