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

• #1112 Metalwarrior tag

  Új Válasz 2006-02-05 20:12:48 #1112

  Ú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

  

  Metalwarrior

  tag

  Helló!
  
  Adott egy dBase fájl. Programból kellene hozzáadni táblákat. Pl. Van Név, város .. és hozzá akarom adni email, tel stb.
  
  [Szerkesztve]

• #1087 Metalwarrior tag

  Új Válasz 2006-01-17 17:37:55 #1087

  Ú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

  

  Metalwarrior

  tag

  Én barom. Az eventsben nem állítottam be. Már minden ok. Bocs, hogy ilyen hülyeség miatt írtam.

• #1085 Metalwarrior tag wolffy #1084

  Új Válasz 2006-01-16 20:53:23 #1085

  Ú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

  

  Metalwarrior

  tag

  válasz wolffy #1084 üzenetére

  Már tényleg szemtelen vagyok.
  Itt van a példa [link] amit csináltam, ha esetleg lenne időd és belenéznél, hátha van ott valami, amit elrontottam, és azért nem működik.

• #1083 Metalwarrior tag

  Új Válasz 2006-01-16 15:18:44 #1083

  Ú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

  

  Metalwarrior

  tag

  Ez most komoly, hogy senki se akar segíteni?

• #1082 Metalwarrior tag

  Új Válasz 2006-01-15 19:52:15 #1082

  Ú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

  

  Metalwarrior

  tag

  Már lassan kezdek idegesítő lenni , de még mindig van egy kis gond:
  DBGridet DBGrid1DrawColumnCell segítségével festem. Mindent szépen megcsinál, de ha a gridet egy Pagecontrolba teszem akkor már nem csinál semmit.
  
  
  procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  begin
  If Table1.FieldValues['AREA' < 1000000
  then If Column.FieldName = 'Area'
  then DBGrid1.Canvas.Brush.Color:= clAqua
  else DBGrid1.Canvas.Brush.Color:= clWhite;
  If gdFocused in State then DBGrid1.Canvas.Font.Color:= clred;
  DBGrid1.DefaultDrawColumnCell(rect, DataCol, Column, State);
  end;

• #1079 Metalwarrior tag

  Új Válasz 2006-01-13 20:34:19 #1079

  Ú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

  

  Metalwarrior

  tag

  Ha a table1.DefaultIndex false-ra állítom a griden nem jelenik meg semmi, ha true akkor megjelenik a tábla, de nem tudja festeni

• #1077 Metalwarrior tag wolffy #1076

  Új Válasz 2006-01-13 06:24:44 #1077

  Ú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

  

  Metalwarrior

  tag

  válasz wolffy #1076 üzenetére

  DrawColumnCell procedura az honnan van. El kell valamit helyezni még a formon, vagy csak be kell gépelni?

• #1075 Metalwarrior tag

  Új Válasz 2006-01-12 19:07:37 #1075

  Ú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

  

  Metalwarrior

  tag

  nekem pontosan arra a példára kell megoldás. A kegyetlen jó angol tudásommal nem sokra megyek azzal a linkkel

• #1073 Metalwarrior tag

  Új Válasz 2006-01-12 15:42:46 #1073

  Ú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

  

  Metalwarrior

  tag

  Újabb gond.
  
  if cikk.FieldValues['mail'='xxx@x.x' then ennek a rekordnak a betűi más színnel legyenek kiírva.
  
  valahogy így dbgrid1.ez a record.font.color:=szín

• #1072 Metalwarrior tag Diskcopy #1071

  Új Válasz 2006-01-12 13:24:45 #1072

  Ú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

  

  Metalwarrior

  tag

  válasz Diskcopy #1071 üzenetére

  Köszi a választ. Közben sikerült Outlook segítségével.

• #1070 Metalwarrior tag

  Új Válasz 2006-01-11 09:29:36 #1070

  Ú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

  

  Metalwarrior

  tag

  Helló!
  
  Meg lehet azt oldani delphiben, hogy egy adatbázisból kiolvassa, hogy pl. februárig ki fizetett be az összeget, aki meg nem fizetet annak küld e-mailt?

• #971 Metalwarrior tag Diskcopy #970

  Új Válasz 2005-10-16 12:54:22 #971

  Ú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

  

  Metalwarrior

  tag

  válasz Diskcopy #970 üzenetére

  A res-t resource dll wizarddal csinálom. A dll-t megtalálja, mert mással működik csak a saját nem.

• #969 Metalwarrior tag

  Új Válasz 2005-10-16 07:22:53 #969

  Ú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

  

  Metalwarrior

  tag

  A beolvasás jó. Úgy néz ki, hogy rosszul csináltam rc-ből dll-t. Leírna valaki, hogy kell megcsinálni

• #968 Metalwarrior tag

  Új Válasz 2005-10-16 06:57:54 #968

  Ú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

  

  Metalwarrior

  tag

  Mert így van feladva.

• #965 Metalwarrior tag

  Új Válasz 2005-10-15 20:53:45 #965

  Ú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

  

  Metalwarrior

  tag

  Most ez komoly? Valaki már csak tud segíteni?

• #964 Metalwarrior tag

  Új Válasz 2005-10-15 13:06:03 #964

  Ú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

  

  Metalwarrior

  tag

  Helló!
  Lenne egy kis gond:
  
  Van egy rc fájl :
  STRINGTABLE DISCARDABLE
  BEGIN
  1 ''x''
  2 ''y''
  END
  Ezt lefordíttatom res-re. Utána csinálok belőle dll-t.
  
  Library xxx;
  {$R xxx.res}
  begin
  end.
  
  
  procedure LRS(lib:string);
  var dllleiro : Thandle;
  puffer : array [0..100] of char;
  begin
  dllleiro:=LoadLibrary(Pchar(lib));
  if dllleiro<32 then
  begin
  beep(); exit;
  end;
  Loadstring(dllleiro, 1, puffer, Sizeof(puffer));
  form1.Button1.Caption:=puffer;
  LoadString(dllleiro, 2, puffer, Sizeof(puffer));
  form1.Label1.Caption:=puffer;
  end;
  
  procedure TForm1.HUN1Click(Sender: TObject);
  begin
  LRS('xxx.dll'); De nem tárol semmit a pufferben
  end;
  
  Hol lehet a gond?

• #729 Metalwarrior tag

  Új Válasz 2005-03-18 20:26:49 #729

  Ú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

  

  Metalwarrior

  tag

  Nem azon van a hangsúly, hogy tud-e jpg-t csinálni. Az csak egy példa volt. A lényeg: egy nél így írom oda a kiterjesztést
  
  SaveToFile(savedialog1.FileName+'.bmp');
  
  De ha több közül választok (pl.: jpg, gif stb.), akkor ez már nem használ. Ja és mégegyszer, nem az kérdeztem, hogy lehet-e jpg-t, hanem, hogy több kiterjesztés közül hogy tudom a megfelelőt kiválasztani.

• #723 Metalwarrior tag

  Új Válasz 2005-03-18 08:13:26 #723

  Ú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

  

  Metalwarrior

  tag

  Köszi!
  
  Közben sikerült rájönni. De ha több a választék pl. bmp, jpg, gif akkor valahogy másképp kell megoldani. Azt hogy kell?

• #720 Metalwarrior tag

  Új Válasz 2005-03-17 16:14:55 #720

  Ú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

  

  Metalwarrior

  tag

  Helló!
  
  El akarok menteni egy képet Savedialoggal de a .bmp kiterjesztést nem írja utána. Hogy lehet ezt megcsinálni?

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