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

• #2090 vz12 tag Fire/SOUL/CD #2089

  Új Válasz 2023-01-28 11:47:22 #2090

  Ú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

  

  vz12

  tag

  válasz Fire/SOUL/CD #2089 üzenetére

  > valami módot keresek arra, hogy ne kelljen minden menüponthoz külön függvényt írni

  Pontosan olyan megoldást javasoltál, amit el szeretett volna kerülni ...
  Ha sok menüpontnál hasonló vagy gyakorlatilag ugyanaz a kód kell, akkor nagyon is célszerű ezt összevonni, a kódismétlést ott kell kerülni, ahol csak lehet.
  Ha eltérőek a menüpontok kódjai (VAGY várható, hogy a jövőben el fognak térni ...), akkor persze érdemes külön-külön függvényeket/kódokat írni, ilyenkor a "tag"-ra nincs szükség.
  A "tag"-nak egyébként nem kötelező egyesével növekedni, a Longint miatt megoldható "beszédes" érték is, pl. a 324 lehet a 3. menüpont 2. almenüjének a 4. al-almenü végpontja, feltételezve, hogy egy szinten nincs 9 menüpontnál több.
  Ha több elem van 9-nél, akkor lehet 2 jegyből álló blokkokat is csinálni, pl. 1205 a 12. menüpont 5. almenüpontja, de a legfelső szinten a vezető nulla sajnos nem működik, ott lehet 3 jegyű blokk. pl. 90203 a 2. menüpont 3. almenüje (a kezdő 9-es figyelmen kívül hagyandó). Így 99 menüpont lehet szintenként, ami már elég kell, hogy legyen, legtöbbször a 9 is elegendő.
  Az ilyen "tagolt taggal" jobban átlátható a rendszer, persze egy nagyobb menü átalakítás után rendet kell csinálni a kódban, de bővítésre meglehetősen rugalmas ez a megoldás.

  És igen, a menürendszernek csak a "végpontjait" kell OnClick-elni (a menüfa LEVELEIT).

• #2086 Tomi_78 aktív tag Fire/SOUL/CD #2085

  Új Válasz 2023-01-27 14:40:11 #2086

  Ú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

  

  Tomi_78

  aktív tag

  válasz Fire/SOUL/CD #2085 üzenetére

  Az!
  De még lenne egy apró kérdésem: az OnClick eseménnyel hívott függvény paraméterezhető vajon?
  Mert valahogy így próbálkoztam, de nem tetszett a Lazarus-nak:
  procedure epitvagyvesz(Sender: TObject; mit: string);
  (...)
  menupont.OnClick:=@epitvagyvesz('valami');
  (...)
  procedure TForm1.epitvagyvesz(Sender: TObject; mit: string);
  begin
  case mit of ...

  Tehát azt szeretném elérni, hogy a különböző menüpontok más paraméterrel hívják ugyanazt a függvényt az OnClick eseményükben. És most ezt egyéb lehetőség híján a Caption-jük segítségével oldom meg, mert az különböző:
  case TMenuItem(Sender).Caption of
  (...)
  De nagyban megkönnyítené a helyzetemet a függvényparaméterezés lehetősége - ha ez lehetséges.

• #2072 Fire/SOUL/CD félisten Fire/SOUL/CD #2071

  Új Válasz 2023-01-16 14:03:27 #2072

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Fire/SOUL/CD #2071 üzenetére

  Ehhh, egy "kicsit" régi hsz-ra válaszoltam...

• #2053 Tomi_78 aktív tag Fire/SOUL/CD #2052

  Új Válasz 2022-04-09 14:14:14 #2053

  Ú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

  

  Tomi_78

  aktív tag

  válasz Fire/SOUL/CD #2052 üzenetére

  Várj csak, kezdem érteni: a Panel2RightGap ugye nálad a jobb oldali panel jobb szélének távolsága a főablak jobb szélétől?
  Ez alapján:
  procedure TForm1.FormCreate(Sender: TObject);
begin
  oldalsotav:=Form1.ClientWidth-(Alaprajz.left+Alaprajz.width); //Az Alaprajz jobb szegélyének távolsága a főablak jobb szegélyétől.
alsotav:=Form1.ClientHeight-(Kep3d.height+Kep3d.top);
end;  
procedure TForm1.FormResize(Sender: TObject);
begin
  Kep3d.left:=8;
  Kep3d.top:=8;
  Kep3d.width:=(Form1.ClientWidth-(8+8+oldalsotav)) div 2;
  Kep3d.height:=Form1.ClientHeight-(8+alsotav);
  //
  Alaprajz.left:=Kep3d.left+Kep3d.width+8;
  Alaprajz.top:=Kep3d.top;
  Alaprajz.width:=Kep3d.width;
Alaprajz.height:=Kep3d.height;
end;
  És akkor így jó is lett az egész, mert ha az oldalsotav változóban az Alaprajz.width-et kisebbre állítom vagy kivonást írok a végéhez, akkor kisebb méretnél is megfelelő arányú lesz az átméretezés.
  Nagyszerű; ezt akartam! Még egyszer, ezer köszönet érte neked!

• #2051 Tomi_78 aktív tag Fire/SOUL/CD #2050

  Új Válasz 2022-04-09 12:01:51 #2051

  Ú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

  

  Tomi_78

  aktív tag

  válasz Fire/SOUL/CD #2050 üzenetére

  Próbálom univerzálisabbá tenni a kódodat, hogy bármilyen kiindulási PaintBox méretnél megfelelő legyen a méretezés, de még nem akar összejönni a megoldás. A div 2-nél a 2-t próbáltam lecserélni, de akkor össze-vissza méreteződött.
  Nekem egyelőre jó így is, ahogy pont a fele, de azért még gondolkodom.

• #2050 Fire/SOUL/CD félisten Fire/SOUL/CD #2049

  Új Válasz 2022-04-08 17:20:48 #2050

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Fire/SOUL/CD #2049 üzenetére

  "...(bár nekem nem pont a főablak felényiek a PaintBoxok)..."
  Ahhh, benéztem, vedd tárgytalannak az előző hozzászólást...

• #2048 Tomi_78 aktív tag Fire/SOUL/CD #2047

  Új Válasz 2022-04-08 14:13:50 #2048

  Ú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

  

  Tomi_78

  aktív tag

  válasz Fire/SOUL/CD #2047 üzenetére

  Köszönöm szépen, ilyenre gondoltam, ami a csatolt képeiden látszik is (bár nekem nem pont a főablak felényiek a PaintBoxok).
  Most mindjárt átnézem és értelmezem is a kódodat. Még egyszer köszönet érte!

• #2036 kopi72 aktív tag Fire/SOUL/CD #2035

  Új Válasz 2021-04-19 18:11:25 #2036

  Ú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

  

  kopi72

  aktív tag

  válasz Fire/SOUL/CD #2035 üzenetére

  Szia, hat csak felvenni a kapcsolatokat veluk, segiteni egymast..
  Win7 -hez kepest a formokon a betuk sokkal elmosottabbak, nem hasznaljak a truetype rendelerot. Gondolom ezen nem sok mindent lehet javitani, igaz ebbe meg nem astam bele nagyon magam (sott egyaltalan nem meg, hiszen nemreg valtottam win7-rol, ott meg egeszen elfogadthato kepe volt a D4 IDE-nek /(c)1998/ is es a formoknak is)

  En csak azert ragaszkodom hozza meg, mert 26e ft volt az ara es a quickreport miatt amugy is sok meloba telne az atirasa a projectemnek.

  A winhelp is most ment a levesbe, a microsoft megszuntette a kbd-t hozza :-(

• #2033 Tomi_78 aktív tag Fire/SOUL/CD #2032

  Új Válasz 2021-02-02 13:36:10 #2033

  Ú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

  

  Tomi_78

  aktív tag

  válasz Fire/SOUL/CD #2032 üzenetére

  Szia!
  Köszi a választ!
  Éppen most nézem a fórum hozzászólásait; Handoko Canvas.Rectangle-t ír a Canvas.Brush.Color után ha jól látom. Én FillRect-tel próbáltam, de nem jártam eredménnyel, de akkor megnézem a Rectangle-t is.

• #2031 Tomi_78 aktív tag Fire/SOUL/CD #2030

  Új Válasz 2021-01-30 13:11:40 #2031

  Ú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

  

  Tomi_78

  aktív tag

  válasz Fire/SOUL/CD #2030 üzenetére

  Rendben és köszi előre is!
  Még annyi, hogy az Invalidate ne legyen kikommentelve, mert akkor nem látszik a mozgás.
  Próbálok én is rájönni a hiba okára; megpróbálok Paint eseményt hozzárendelni a palyakep canvas-ához, ha ez lehetséges.

• #2029 Tomi_78 aktív tag Fire/SOUL/CD #2028

  Új Válasz 2021-01-29 09:32:58 #2029

  Ú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

  

  Tomi_78

  aktív tag

  válasz Fire/SOUL/CD #2028 üzenetére

  Köszi, de sajnos most sem jó.
  Ugyanúgy húzzák a csíkot maguk után, sőt, most már a kép nyilakkal történő mozgatása is akadozik. De itt a teljes kód:
  
  unit Unit1;
  
  {$mode objfpc}{$H+}
  
  interface
  
  uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, LCLType, ExtCtrls, Math;
  
  type
  
  { TForm1 }
  
  TForm1 = class(TForm)
  procedure FormClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  procedure FormPaint(Sender: TObject);
  procedure palyafrissites(Sender: TObject);
  private
  
  public
  
  end;
  
  type Tpuffancsok = class(TObject)
  private
  public
  xhely,yhely,celx,cely: integer;
  iranya: double;
  kepe: TBitmap;
  mitcsinal: string;
  sebessege: byte;
  end;
  
  var
  Form1: TForm1;
  palyakep: TBitmap;
  palyafrissito: TTimer;
  palyakepx,palyakepy,puffancsdb: integer;
  puffancskep: array [0..7] of TBitmap;
  puffancs: array of Tpuffancsok;
  
  implementation
  
  {$R *.lfm}
  
  { TForm1 }
  
  function ponttav(var x1: integer; var y1: integer; var x2: integer; var y2: integer): double;
  begin
  result:=sqr((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
  end;
  
  function pontirany(var x1: integer; var y1: integer; var x2: integer; var y2: integer): double;
  var szam: double;
  begin
  szam:=arctan2(y2-y1,x2-x1);
  if szam<0 then szam:=szam+2*pi;
  result:=360-(szam*180)/pi;
  end;
  
  procedure TForm1.palyafrissites(Sender: TObject);
  var kovx,kovy,i: integer;
  begin
  for i:=0 to puffancsdb-1 do
  begin
  case puffancs[i].mitcsinal of
  'megy': begin
  if puffancs[i].celx>puffancs[i].xhely then
  kovx:=puffancs[i].xhely+puffancs[i].sebessege
  else if puffancs[i].celx<puffancs[i].xhely then
  kovx:=puffancs[i].xhely-puffancs[i].sebessege
  else
  kovx:=puffancs[i].xhely;
  if puffancs[i].cely>puffancs[i].yhely then
  kovy:=puffancs[i].yhely+puffancs[i].sebessege
  else if puffancs[i].cely<puffancs[i].yhely then
  kovy:=puffancs[i].yhely-puffancs[i].sebessege
  else
  kovy:=puffancs[i].yhely;
  if ponttav(puffancs[i].xhely,puffancs[i].yhely,kovx,kovy)<=puffancs[i].sebessege then
  puffancs[i].mitcsinal:='semmit'
  else
  begin
  puffancs[i].iranya:=pontirany(puffancs[i].xhely,puffancs[i].yhely,kovx,kovy);
  puffancs[i].xhely:=kovx;
  puffancs[i].yhely:=kovy;
  end;
  end;
  end;
  canvas.copyrect(Rect(0,0,width,height),palyakep.canvas,Rect(palyakepx,palyakepy,width,height));
  //invalidate;
  //with palyakep.canvas do invalidate;
  end;
  end;
  
  procedure TForm1.FormClick(Sender: TObject);
  var i: integer;
  begin
  for i:=0 to puffancsdb-1 do
  begin
  puffancs[i].celx:=mouse.cursorpos.X+abs(palyakepx);
  puffancs[i].cely:=mouse.cursorpos.Y+abs(palyakepy);
  puffancs[i].mitcsinal:='megy';
  end;
  end;
  
  procedure TForm1.FormCreate(Sender: TObject);
  var i,j: byte;
  begin
  randomize;
  width:=Screen.width;
  height:=Screen.height;
  left:=0;
  top:=0;
  palyakep:=TBitmap.Create;
  palyakep.SetSize(width*2,height*2);
  palyakep.canvas.brush.color:=clblue;
  palyakep.canvas.fillrect(0,0,width*2,height*2);
  palyakepx:=0;
  palyakepy:=0;
  for i:=0 to 7 do
  begin
  puffancskep[i]:=TBitmap.Create;
  puffancskep[i].LoadFromFile('puffancs\puff'+inttostr(i)+'.bmp');
  puffancskep[i].transparent:=true;
  end;
  puffancsdb:=0;
  for j:=0 to 2 do
  begin
  setlength(puffancs,puffancsdb+1);
  puffancs[puffancsdb]:=Tpuffancsok.create;
  puffancs[puffancsdb].xhely:=random(500)+1;
  puffancs[puffancsdb].yhely:=random(500)+1;
  puffancs[puffancsdb].iranya:=0;
  puffancs[puffancsdb].sebessege:=2;
  puffancs[puffancsdb].mitcsinal:='semmit';
  inc(puffancsdb,1)
  end;
  palyafrissito:=TTimer.Create(nil);
  palyafrissito.interval:=10;
  palyafrissito.ontimer:=@palyafrissites;
  end;
  
  procedure TForm1.FormDestroy(Sender: TObject);
  var i: byte;
  begin
  palyakep.Free;
  for i:=0 to 7 do
  puffancskep[i].free;
  end;
  
  procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
  begin
  if Key=VK_LEFT then
  begin
  if (palyakepx+palyakep.canvas.width)-4>=width then
  begin
  dec(palyakepx,4);
  end;
  end;
  if Key=VK_RIGHT then
  begin
  if palyakepx+4<=0 then
  begin
  inc(palyakepx,4);
  end;
  end;
  end;
  
  procedure TForm1.FormPaint(Sender: TObject);
  var puffalkepe: byte;
  i: integer;
  begin
  canvas.draw(palyakepx,palyakepy,palyakep);
  for i:=0 to puffancsdb-1 do
  begin
  puffalkepe:=trunc(puffancs[i].iranya*8/360);
  if puffalkepe>7 then puffalkepe:=0;
  palyakep.canvas.draw(puffancs[i].xhely,puffancs[i].yhely,puffancskep[puffalkepe]);
  end;
  end;
  
  end.
  

• #2027 Tomi_78 aktív tag Fire/SOUL/CD #2026

  Új Válasz 2021-01-28 13:57:13 #2027

  Ú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

  

  Tomi_78

  aktív tag

  válasz Fire/SOUL/CD #2026 üzenetére

  Ja, ha jól értem arra gondolsz, hogy töröljem azt a képet és hozzam létre újra és újra!
  Hú, ez kicsit erőforráspazarlónak tűnik így első hallásra, de nem kizárt, hogy igazad van. De a csúszkás módszer is szóba jöhet, aminek a forráskódját közzétetted.
  Egyébként változtattam kicsit a programomon: most már jó az elmozdulás, csak az a baj, hogy a figurák nem törlődnek az előző helyükről. Nagyvonalakban:
  1. a palyafrissites nevű időzítő eseményben kezelem az elmozdulást és frissítem azt a vásznat, amire kirajzolom őket:

  procedure TForm1.palyafrissites(Sender: TObject);
begin
  //mozgatás utasításai, majd:
  with palyakep.canvas do invalidate;
  end;

  2. a TForm1 formpaint-jában pedig a kirajzolások:

  procedure TForm1.FormPaint(Sender: TObject);
var puffalkepe: byte;
  i: integer;
begin
  canvas.draw(palyakepx,palyakepy,palyakep);
  for i:=0 to puffancsdb-1 do
  begin
    puffalkepe:=trunc(puffancs[i].iranya*8/360);
    if puffalkepe>7 then puffalkepe:=0;
    palyakep.canvas.draw(puffancs[i].xhely,puffancs[i].yhely,puffancskep[puffalkepe]);
  end;
end;

  De az a baj, hogy bagózik a fentebbi Invalidate-re, mert én nem a Form1-en, hanem a
  palyakep:=TBitmap.Create;
  módon létrehozott képen akarom kirajzolni és frissíteni a dolgokat, és erre ezt produkálja:
  

• #2025 Tomi_78 aktív tag Fire/SOUL/CD #2024

  Új Válasz 2021-01-28 09:28:46 #2025

  Ú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

  

  Tomi_78

  aktív tag

  válasz Fire/SOUL/CD #2024 üzenetére

  Újrainicializálni a Canvas-t? Azt hogyan kell? A SelectClipRgn() utasítással?

• #2021 petison tag Fire/SOUL/CD #2020

  Új Válasz 2020-10-05 12:52:32 #2021

  Ú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

  

  petison

  tag

  válasz Fire/SOUL/CD #2020 üzenetére

  Köszi.

  Egyébként menet közben megoldottam a dolgot.
  Nem a parancs volt rossz, hanem ahogy felhasználtam.

• #2013 Keeperv85 nagyúr Fire/SOUL/CD #2012

  Új Válasz 2015-07-21 11:57:06 #2013

  Ú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

  

  Keeperv85

  nagyúr

  válasz Fire/SOUL/CD #2012 üzenetére

  Kösz, ezt közben megoldottam.

  A gond az, hogy a fő exe fájl visszakéri, hogy az indító exe hol van éppen. Vissza kell neki adni paraméterben, hogy ahonnan indult, az a játék főkönyvtára. Persze ez fake, de megeszi így:

  ...
  ShellExecute(handle,'open',PChar(path+'FalloutNV.exe'),nil,PChar(path),SW_SHOWNORMAL);
  ...

  Most mással küszködök, ami koránt sem ennyire egyértelmű...

  Van az eredeti launcherben jó pár Checkbox. Kettő közülük egy pár: azt csinálja, hogy az aslóba egy szűrés után betölti a támogatott felbontásokat. Ez addig nem gond, hogy az összes felbontást lekérem a Windows API-ből, majd megszűröm a listát. Gyakorlatilag első körben ki kell dobni a 640x480-as sorokat és a 16 bites színmélységet.

  Eddig oké... Csakhogy a felső Checkbox az Aspect Ratio (képarány), amihez kéne írjak valami okosságot, hogy úgy válogassa ki az alsó Checkbox sorait, ahogy a képarányok be vannak a felsőn állítva.

  Na itt fogyott el azt hiszem a tudományom, mert ki kéne talán számoltatni minden felbontásra talán az arányt...

  ...de még ha sikerülne is, a következő funkcióra esélyem nincs szerintem sem Delphi sem Lazarus alatt:

  Van egy gobmunk, ami automatikusan beállítja a géphez az ajánlott konfigurációt. Az csak egy dolog, hogy 5 fájlból választ "csupán". Viszont nem tudom mi alapján... Biztos elég összetett a függvény, ami a procit, VGA-t memóriát, oprendszert stb. végigkérdezi és aligha hiszem, hogy újra tudnám írni...

  Azért álltam neki amúgy, mert a játék igen régóta készülő magyarítása mellé jó lenne egy teljesen magyar launcher is. Ám ez máshogy nem megoldható, csak ha nulláról van megírva...

• #2003 Calogero addikt Fire/SOUL/CD #2002

  Új Válasz 2014-12-29 14:30:26 #2003

  Ú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

  

  Calogero

  addikt

  válasz Fire/SOUL/CD #2002 üzenetére

  Neked is köszönöm, gyorsan el is mentettem.
  Mindig tanul valami újat az ember

• #1986 D@ni88 addikt Fire/SOUL/CD #1985

  Új Válasz 2014-03-03 20:20:08 #1986

  Ú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

  

  D@ni88

  addikt

  válasz Fire/SOUL/CD #1985 üzenetére

  Csak elég nehéz több száz/ezer gépre telepíteni

• #1984 D@ni88 addikt Fire/SOUL/CD #1981

  Új Válasz 2014-02-19 16:39:11 #1984

  Ú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

  

  D@ni88

  addikt

  válasz Fire/SOUL/CD #1981 üzenetére

  Ok, kipróbáltam, de minden nyomtatás után be kell zárnom a readert és csak azt követően nyitja meg az új pdf-et és küldi a nyomtatóra...

• #1982 D@ni88 addikt Fire/SOUL/CD #1981

  Új Válasz 2014-02-13 10:43:42 #1982

  Ú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

  

  D@ni88

  addikt

  válasz Fire/SOUL/CD #1981 üzenetére

  Végül rájöttünk, hogy működik a story.
  A probléma akkor áll fent, ha XPS writer, vagy Microsoft Office Document Image Writer van beálíltva alapértelmezett nyomtatónak. Ha fizikai nyomtató, akkor köpi rendesen a nyomtatványokat...

  Eléggé érdekes...

• #1978 klambi addikt Fire/SOUL/CD #1977

  Új Válasz 2014-01-30 09:48:55 #1978

  Ú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

  

  klambi

  addikt

  válasz Fire/SOUL/CD #1977 üzenetére

  köszönöm a választ! és 64 bites w7 nél, ezeknek az "ősi" programoknak, elég ha csak xp módban futtatom?
  valamit kell még valamit a raktár program mellé installálni?

• #1873 Flashback addikt Fire/SOUL/CD #1872

  Új Válasz 2011-06-29 11:40:51 #1873

  Ú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

  

  Flashback

  addikt

  LOGOUT blog

  válasz Fire/SOUL/CD #1872 üzenetére

  A jó megoldás így néz ki, közben megtaláltam az MSDN-ben...

  function IsBtnPressed(ABtn: integer): boolean;
  //ABtn can be either VK_LBUTTON, VK_MBUTTON, or VK_RBUTTON
  begin
  result := (GetAsyncKeyState(ABtn) and $8000) = $8000;
  end;

• #1871 Flashback addikt Fire/SOUL/CD #1870

  Új Válasz 2011-06-28 23:43:03 #1871

  Ú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

  

  Flashback

  addikt

  LOGOUT blog

  válasz Fire/SOUL/CD #1870 üzenetére

  Az oké, de attól még nem tudom hogy lenyomták-e a bal gombot!

• #1720 Yodafon őstag Fire/SOUL/CD #1719

  Új Válasz 2009-06-05 11:11:51 #1720

  Ú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

  

  Yodafon

  őstag

  válasz Fire/SOUL/CD #1719 üzenetére

  Nem pont erre gondoltam.
  Akkor vázolom a szitut.

  Deklaráltam ezt a publicban:

  mezo:array[1..2] of TStringGrid;

  Hozzárendeltem a formhoz őket a FormCreate -ben:

  begin
  for i:=1 to 2 do
  begin
  mezo[i]:=TStringGrid.create(form1);
  mezo[i].parent:=form1;
  end;

  Majd megadtam az egyes táblázatok tul.-ait szintén ott:

  mezo[1].Top:=20;
  mezo[1].Left:=50;
  mezo[1].FixedCols:=0;
  mezo[1].FixedRows:=0;
  mezo[1].ColCount:=3;
  mezo[1].RowCount:=3;
  mezo[1].DefaultColWidth:=20;
  mezo[1].DefaultRowHeight:=20;
  mezo[1].Ctl3D:=false;
  mezo[1].Width:=64;
  mezo[1].Height:=64;
  mezo[1].ScrollBars:=ssNone;
  
  
  mezo[2].Top:=20;
  mezo[2].Left:=120;
  mezo[2].FixedCols:=0;
  mezo[2].FixedRows:=0;
  mezo[2].ColCount:=3;
  mezo[2].RowCount:=3;
  mezo[2].DefaultColWidth:=20;
  mezo[2].DefaultRowHeight:=20;
  mezo[2].Ctl3D:=false;
  mezo[2].Width:=64;
  mezo[2].Height:=64;
  mezo[2].ScrollBars:=ssNone;

  Majd azt szeretném elérni hogy egy eseményt tudjak hozzárendelni egy táblázathoz:
  pl. az 1. táblázat ami a tömb első eleme reagáljon vmit ha kijelölök rajta egy cellát.
  ugyanezt a többire is.

  ha a táblá(i)m nem tömbbel deklarálom akkor simán műxik.

  egyáltalán lehetséges ez?

  Remélem érthető volt.

• #1705 labuwx tag Fire/SOUL/CD #1704

  Új Válasz 2009-05-21 18:59:14 #1705

  Ú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

  

  labuwx

  tag

  válasz Fire/SOUL/CD #1704 üzenetére

  Egyik ismerősöm már ismerte a "hibát": a regionális beállításokat át kell állítani angolra és csak utánna megy rendesen a telepítés. A telepítés után kér egy kódot és egy logint, beírom azt amit e-mailban kaptam(trial), de először azt mondja, hogy hibás, utánna megint ütök egy entert, akkor nem látja hibásnak viszont azt mondja, hogy olyan kódot írjak be ami még nem volt regisztrálva.(ezt már 3db kóddal eljátszotta).

• #1701 #95904256 törölt tag Fire/SOUL/CD #1700

  Új Válasz 2009-04-29 21:07:36 #1701

  Ú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

  

  #95904256

  törölt tag

  válasz Fire/SOUL/CD #1700 üzenetére

  Köszönöm.

• #1687 Prego senior tag Fire/SOUL/CD #1686

  Új Válasz 2009-04-07 11:54:51 #1687

  Ú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

  

  Prego

  senior tag

  válasz Fire/SOUL/CD #1686 üzenetére

  Köszi az elméletet, lehet majd nyáron átbabrálom a szakdogámat. Suliban még nem volt téma ez a mestertábla, sőt arra ösztökélnek minket hogy összetett kulcsokat használjunk, majd akkor utánanézek ennek is ...

• #1685 Prego senior tag Fire/SOUL/CD #1684

  Új Válasz 2009-04-06 22:18:29 #1685

  Ú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

  

  Prego

  senior tag

  válasz Fire/SOUL/CD #1684 üzenetére

  Hát akkor ötlet elvetve, mert több táblából dolgozik a gép (autók+bérlők = bérlés)
  szal van ComboBox is ....

• #1683 Prego senior tag Fire/SOUL/CD #1682

  Új Válasz 2009-04-06 18:41:15 #1683

  Ú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

  

  Prego

  senior tag

  válasz Fire/SOUL/CD #1682 üzenetére

  Az első kérdésben akkor megnyugodtam.
  A második nem is az adatbázis részben fontos, hanem az hogy beolvasok és kiiratom a 10 attributumot a formra, 10 EditBoxba, majd a Formon átírom az egyik értékét, és amikor a modosít gombra kattintok, ne mind a 10 attríbutumot írja felül, csak azt amelyiknek megváltozott a tartalma, tehát ne az legyen a módosítás kódja hogy:
  Table1.FieldByName("ELSŐ ATTRIBUTUM").asinteger:=1;
  Table1.FieldByName(" MÁSODIK ATTRIBUTUM").asinteger:=1;
  Table1.FieldByName("HARMADIK ATTRIBUTUM").asinteger:=1;
  Table1.FieldByName("NEGYEDIK ATTRIBUTUM").asinteger:=1;
  Table1.FieldByName(" ÖTÖDIK ATTRIBUTUM").asinteger:=1;
  Table1.FieldByName("HATODIK ATTRIBUTUM").asinteger:=1;
  ....

  hanem csak
  Table1.FieldByName("EDITHEZ TARTOZÓ ATTR").asinteger:=Megváltoztatott Edit;

• #1675 Prego senior tag Fire/SOUL/CD #1674

  Új Válasz 2009-04-02 20:50:11 #1675

  Ú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

  

  Prego

  senior tag

  válasz Fire/SOUL/CD #1674 üzenetére

  Köszi, a #$27 volt a jó megoldás.
  Sajnos az SQL házimhoz kell rekordokat generáltatnom (100 darabot vigyen fel kézzel a ...)
  Memo1.Lines.Add('INSERT INTO rent VALUES('+#$27+bYY+bMM+bDD+#$27+','+....)
  Szal a ''' kiakadt. Mindegy ....
  Köszi

• #1670 cellpeti nagyúr Fire/SOUL/CD #1669

  Új Válasz 2009-02-19 13:38:48 #1670

  Ú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

  

  cellpeti

  nagyúr

  válasz Fire/SOUL/CD #1669 üzenetére

  Szia!

  Tényleg rég taliztunk. Otthon van egy 6os Delphi,de gondoltam,ha felmenne az újabb,azért az jobb lenne. Akkor majd otthon felnyomom!

• #1652 Prego senior tag Fire/SOUL/CD #1651

  Új Válasz 2008-12-17 13:12:25 #1652

  Ú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

  

  Prego

  senior tag

  válasz Fire/SOUL/CD #1651 üzenetére

  Én most CodeGear 2009-et használok
  Úgy tűnik sikerül megoldanom a dolgot, Létrehozok egy dinamikus array of "Componentname"-t és avval lehet buherálni. [link]
  Talán más is hasznát veszi.

• #1650 Prego senior tag Fire/SOUL/CD #1649

  Új Válasz 2008-12-17 00:06:33 #1650

  Ú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

  

  Prego

  senior tag

  válasz Fire/SOUL/CD #1649 üzenetére

  Köszi szépen, megint előbbre jutottam.
  Nah kezd már pofásodni a dolog, most már gyönyörűen egymás mellett jelennek meg az autók, ha a képre kattintok akkor új ablakban megjelennek az adatok.
  Viszont felmerült a törlés kérdése, és persze akkor az egész cuccokat újra kéne rajzolni a formon. Szal az lenne a legjobb, ha felvétel/módosítás/törlésnél az összes dinamikus komponenst megszüntetni, és újra lekérdezi az adatbázisból, meg kirajzoltatni. A Destroy parancs gyönyörűen működik, gond csak avval van, hogy hibát dob ki, ha nem létező komponensre hívom meg (pl: program indításnál).
  Kellene még egy olyan adatbázis formátum ami tud több mint 255 karakternyi string mezőt tárolni (képek elérési útját tárolni), meg később megoldani hogy egy autóról több képet is be tudjak drag&droppolni (a cél a használtauto.hu szerű, kisképek lent, ha rákatt akkor nagyban megjelenik).
  Nameg rájöttem hogy drága jó iskolámban (nem mondok nevet) tök jó hogy megtanítottak egy csomó ilyen olyan algoritmust (mátrixok láncszorzása, 8királynő, életembe nem fogom használni algoritmus), és még jól meg is szivattak vele, de ettől még könnyen kezelhető GUI-t nem tudunk készíteni, már amikor szálkezelés meg komponenskészítés került szóba, csak hümmögtek meg kopiztak a tanárok ...
  Így hát kénytelen vagyok titeket zaklatni

• #1624 Sárpac nagyúr Fire/SOUL/CD #1623

  Új Válasz 2008-10-02 16:53:53 #1624

  Ú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

  

  Sárpac

  nagyúr

  válasz Fire/SOUL/CD #1623 üzenetére

  Igen sajna az túl drága, akkor marad a core temp ehhez elvileg lesz ehhez ingyenes plugin amit szabadon felhasználhatnak a fejlesztők. Addig marad Share memory.

• #1616 shev7 veterán Fire/SOUL/CD #1615

  Új Válasz 2008-08-24 16:20:25 #1616

  Ú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

  

  shev7

  veterán

  válasz Fire/SOUL/CD #1615 üzenetére

  csunya lenne, ha a halozati atvitel hibaellenorzeserol az alkalmazasi retegben kellene gondoskodni. Pont erre valo a TCP, hogy hibamentes adatatvitelt biztositson ket host kozott. Ha hibasan jon meg a csomag, az ujrakuldes automatikus, az alkalmazas semmilyen modon nem ertesul a hibarol. (Persze a kesleltetest leszamitva)

• #1613 eniak csendes tag Fire/SOUL/CD #1612

  Új Válasz 2008-08-24 14:36:25 #1613

  Ú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

  

  eniak

  csendes tag

  válasz Fire/SOUL/CD #1612 üzenetére

  Ha tudsz jobb megoldást nem akarom én megírni a hálózati kommunikációt, teszem azt van már rá valami kész unit.

  De ha nincs akkor kénytelen leszek, mert van már rá néhány kis progim készen, amivel lehet irányítani, (elsősorban vasúti terepasztalt) csak az a baj hogy hiányzik belőle a hálózati kommunikáció, ere kéne valami SOS megoldás.

  Gondolkoztam még azon hogy van az a közkedvet ts (team speaker) progi, az telneten dolgozik, és ara ráépülni, de ez a rész nekem magas.

  Az adatbázis nem rossz ötlet, én is gondoltam rá csak nem értek az adatbázisokhoz.

  A hálózati kommunikációnak elég lenne annyi, hogy elküld egy integer változót egy bizonyos ip címre, és fogad egy integer változót egy bizonyos ip címről, tehát csak ip, portot, és adatok keljen megadni neki.

  eniak

• #1609 eniak csendes tag Fire/SOUL/CD #1608

  Új Válasz 2008-08-24 12:50:04 #1609

  Ú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

  

  eniak

  csendes tag

  válasz Fire/SOUL/CD #1608 üzenetére

  Hello!

  Majdnem, nem egészen

  Van ugyebár a gép, amibe be van kötve a locsoló, lámpa stb., na ezen a gépen még monitor sincs, és van az anyámnak, testvéremnek és, nekem gépe.

  Minden gép egy hálózatra van kötve és , ha pl. anyám rákattint a "locsolás" gombra akkor az anyám gépe (mint kliens) küld egy üzenetet a szervernek, ami lpt porton elindítja a locsolót, igen viszont a szervernek ki kell küldenie egy jelet nemcsak az anyám gépére hanem az összes kliensre (mint az én gépem és az öcsém gépe) hogy a ház "alaprajzán" elzöldüljön a locsoló ezzel jelezve hogy be van kapcsolva.

  Mivel több kliens (jelenleg 3) fut egyszerre ezért a szervernek másodpercekét több beérkező adattal kel számolnia, az adatokat egy egydimenziós tőmben szeretném tárolni, amelynek 4db integer eleme lenne, ez a tömböt kéne a szervernek rögzítenie egymás "alá" beérkezésük sorrendjében egy 2 dimenzós tömbben. (Mondjuk ez is trükkös, mert 2db kétdimenziós tömböt kel létrehozni, amíg az egyikbe fogadja a szerver az adatokat addig a másik tömbben lévő adatokat, feldolgozza, a két tömböt másodpercekét fel kéne cserélni így hol az "a" tömbbe rögzít és a "b" tömböt dolgozza fel, hol pedig fordítva)

  Miután a szerver feldolgozta az adatokat egy 3. tömbben ("c" tömb") kellene írnia, hogy mely eszközök vannak bekapcsolva, és mely eszközök vannak kikapcsolva, ezt kéne fogadniuk a klienseknek, és ez alapján kellene ábrázolniuk az eszközöket (pl. pirossal vagy zölddel).

  A probléma hogy nem tudom, hogyan lehetne egy 1 dimenziós 4 elemű integer tömböt hálózaton keresztül átvinni, és egymás alá rögzíteni egy 2 dimenziós tömbben?

  Egy ilyen buta kis aprósággal szívok már kb.3 hónapja , aki tud, segítsen

  eniak

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