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

• #1088 wolffy aktív tag Metalwarrior #1087

  Új Válasz 2006-01-17 19:47:11 #1088

  Ú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

  

  wolffy

  aktív tag

  válasz Metalwarrior #1087 üzenetére

  Úgy van! Semmi gáz. Épp most néztem meg a letöltött anyagot és akartam visszaírni, mikor látom a válaszod. Örülök, hogy magadtól rájöttél. Legközelebb figyelj jobban. Majd szólsz ha elakadsz...

• #1086 wolffy aktív tag Metalwarrior #1085

  Új Válasz 2006-01-17 13:41:23 #1086

  Ú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

  

  wolffy

  aktív tag

  válasz Metalwarrior #1085 üzenetére

  Letöltöttem, este ha hazaérek megnézem.

• #1084 wolffy aktív tag Metalwarrior #1082

  Új Válasz 2006-01-16 18:36:32 #1084

  Ú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

  

  wolffy

  aktív tag

  válasz Metalwarrior #1082 üzenetére

  Hát nem igazán tiszta előttem miért nem műxik neked a dolog. Az elvileg nem kéne, hogy befolyásoló tényező legyen, hogy PageControl-on vagy Form-on van a DBGrid. Nekem is PageControl-on van és működik.
  Talán próbáld ki, hogy mikor a Table1-re hivatkozol, a Table1 név elé beírod az adatmodul, vagy egyéb Form nevét és utána egy pontot, ahol a Table1 található. Ha nincs a Table1 külön adatmodulban, készíts egyet. Én mindig adatmodulba szoktam rakni. Most jobbat nem tudok.

• #1078 wolffy aktív tag Metalwarrior #1077

  Új Válasz 2006-01-13 19:04:46 #1078

  Ú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

  

  wolffy

  aktív tag

  válasz Metalwarrior #1077 üzenetére

  A DataControls komponenspalettán található DBGrid komponens Event-jei között találod az OnDrawColumnCell eljárást.

• #1076 wolffy aktív tag Metalwarrior #1075

  Új Válasz 2006-01-12 22:30:40 #1076

  Ú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

  

  wolffy

  aktív tag

  válasz Metalwarrior #1075 üzenetére

  Ha jól értem, valami ilyesmire van szükséged:
  
  procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
  begin
  if DataModule1.Table1.Fields[0].Value='x@y.com' then
  DBGrid1.Canvas.Font.Color:=clRed;
  end;
  
  Ez egy eljárás ami egy formon elhelyezett TDBGrid, DrawColumnCell eseményére van ''ráhegesztve''. Ha az adott mező rekordja eleget tesz a feltételnek, akkor piros színt kap.

• #1074 Diskcopy tag Metalwarrior #1073

  Új Válasz 2006-01-12 18:29:20 #1074

  Ú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

  

  Diskcopy

  tag

  válasz Metalwarrior #1073 üzenetére

  [link] DbGrid színezés sok példával.

• #1071 Diskcopy tag Metalwarrior #1070

  Új Válasz 2006-01-12 06:58:47 #1071

  Ú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

  

  Diskcopy

  tag

  válasz Metalwarrior #1070 üzenetére

  Hi! Ez csak egy sima sql-es lekérdezés. Lekérdezed az adatbázisból az olyan mail címeket, ahol a dátum későbbi mint február az akt évnek és fizetett. Ha az sql-t nem ismered, akkor sem túl nehéz.. select ez, meg az, meg amaz from táblánév where dátum dátumfeltétel, és fizetve. pontosan nem tudom megmondani, mivel nem ismerem a tábládat, tábláidat, lehet joinolni is kell, ha többen van. Utánna a mail küldés sem nehéz, smtp komponenssel,vagy akár beépített levelezővel. Keress rá neten: Delphi mail send. sok példa lesz előtted.

• #972 Diskcopy tag Metalwarrior #971

  Új Válasz 2005-10-16 13:03:45 #972

  Ú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

  

  Diskcopy

  tag

  válasz Metalwarrior #971 üzenetére

  Sima szövegszerkesztőbe vésd bele amit a legelején irtam mentsd el valamilyen .RC néven aztán a BIN könyvtárban lévő BRCC32-vel csinálsz belőle RES-t. BRCC32 akarmi.rc bemásolod a project könyvtáradba, aztán a dll-t meg megcsinálod File- new- other- Dll wizarddal. annyit kell belerakni, hogy {$R akarmi.res}, de már leírtam. úgy működik, ha végigcsinálod lépésről lépésre.

• #970 Diskcopy tag Metalwarrior #969

  Új Válasz 2005-10-16 07:36:35 #970

  Ú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

  

  Diskcopy

  tag

  válasz Metalwarrior #969 üzenetére

  figy. így nézzen ki az RC fájlod:
  STRINGTABLE
  {
  1000, ''Elso''
  1001, ''Masodik''
  1002, ''Harmadik''
  
  }
  
  Ezt ugye BRCC32 -vel lefordítod.. BRCC32 akarmi.RC lesz belőle egy RES fájlod. Delphinél megcsinálod a DLL-t, file new, semmi egyéb nem kell bele, mint a {$R Akarmi.RES} ha ez megvan, lefordítod.. És most jön a lényeg.. fontos, hogy lássa a dll-t a programod, ha nem jó helyen van, akkor nem fogja...
  beolvastatod:
  
  procedure TForm1.Button1Click(Sender: TObject);
  var H : THandle;
  buffer: array[0..255] of Char;
  
  begin
  H := LoadLibrary('adatlib.dll');
  if h <> 0 then
  begin
  LoadString(H, 1001, Buffer, 255); // Elsot
  label1.Caption := StrPas(Buffer);
  end
  else
  begin
  ShowMessage('DLL betöltés sikertelen!');
  end;
  
  end;
  
  Ha a dll betöltés sikertelent irja ki, akkor nem látja a DLL-t. Hivatkozz rá próbából útvonallal. pl másold be a C:\ alá és akkor a LoadLibrarynál c:\adatlib.dll
  Ennyi. Most csináltam végig, kipróbáltam működik. Sok sikert.
  
  
  [Szerkesztve]

• #966 Diskcopy tag Metalwarrior #965

  Új Válasz 2005-10-15 20:54:48 #966

  Ú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

  

  Diskcopy

  tag

  válasz Metalwarrior #965 üzenetére

  Hello!
  Kérdés.. miért szenvedsz a dll-el?
  {$R *.DFM}
  
  {$R test.res} //A resource file
  
  procedure TForm1.Button1Click(Sender: TObject);
  var
  buffer: array[0..255] of Char;
  begin
  Loadstring(hinstance, 1, @buffer, 255); //1 = elso string
  label1.Caption := StrPas(buffer);
  end;
  

• #725 killerjohn addikt Metalwarrior #723

  Új Válasz 2005-03-18 12:41:01 #725

  Ú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

  

  killerjohn

  addikt

  válasz Metalwarrior #723 üzenetére

  Uses JPEG;
  
  Image1.Picture.RegisterFileFormat() metódus. nézd meg a paraméterlistáját.

• #724 ollie MODERÁTOR Metalwarrior #723

  Új Válasz 2005-03-18 12:12:24 #724

  Ú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

  

  ollie

  MODERÁTOR

  válasz Metalwarrior #723 üzenetére

  Nincs a Delphiben jpg meg gif converter, szóval azt külön kell beszerezned, és implementálnod a programodba. Furcsa is lenne, 1000 számra jelennének meg a képkonvertáló programok.

• #722 Ameda tag Metalwarrior #720

  Új Válasz 2005-03-18 00:24:11 #722

  Ú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

  

  Ameda

  tag

  válasz Metalwarrior #720 üzenetére

  Image1.SaveToFile(Savedialog1.Filename+'.bmp');

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