Hirdetés
Hozzászólok Aktív témák
-
Neo...
tag
miért van h PL: form2.Image1.Picture.LoadFromFile('kepek\0.bmp');
És nem engedi ! Ezt haveréből másoltam azt se tom hogy ha pl az 1. Fromon van a Kép akor Form2 kell neki ??? Nah ez lenne jó megtudni !'' a kisgyerekek fikázzák azokat e rappeseket akiken felnőnek, - ez így nem oké!'' by: Hősök
-
_thomas_
tag
én még kiegészíteném azzal hogy adjuk meg rendesen a kép elérési útvonalát.
pl.: image1.picture.loadfromfile('d:\kep.bmp');
persze ha nem tudjuk előre ki hova másolja a proginkat akkor kérdezzük le a programunk elérési útvonalát és használjuk azt kiégészítve a kép útvonalával mert gondolom azt a progink könyvtárában tároljuk valahol.
ha meg nem akkor pl.: az opendialog segítségével egyszerűen be tudjuk tölteni a képet.www.ironic-software.com
-
Notes
senior tag
Köszi! Végre életet leheltél a fórumba!
Végül így oldottam meg (Thx to prog.hu community!):
Begin
Close;
Clear;
Add('SELECT *');
Add('FROM TranzTabla');
Add('WHERE (Datum>= :KezdDatum) AND (Datum<= :VegDatum)');
If LekerdFelhComboBox.ItemIndex>0 Then
Add ('AND (Felhasznalo= '+ Quotedstr(LekerdFelhCombobox.text)+')');
If LekerdPartnerComboBox.ItemIndex>0 Then
Add ('AND (Partner= ' + Quotedstr(LekerdPartnerCombobox.text)+')');
If LekerdCimletCombobox.Itemindex>0 Then
Add ('AND '+ VPDataModule.TranzTabla.Fields[(LekerdCimletComboBox.ItemIndex)+5].FieldName +' is not null');
Prepare;
ParamByName('KezdDatum').AsDate:=LekerdDatePicker1.Date;
ParamByName('VegDatum').AsDate:=LekerdDatePicker2.Date;
Open;
end;
end;
Ez egy DBGrid-re irányítva hibátlanul működik. De ha a Query-t egy Reportra teszem és annak az OnPreview eseményekor hívom meg a fenti kódot, akkor mindig csak a feltételeknek elsőként megfelelő rekord jelenik meg, de az annyiszor, ahány rekord megfelel az SQL statement-nek. Nem tudom ez így érthető-e?
Az egyik könyvben azt olvastam, hogy a Query-hez kapcsoljak DataSource-t is. Minek? Lehet közvetlenül is hivatkozni rá nem?Romanes eunt domus!
-
#807
The TYPhoon
csendes tag
The TYPhoon
csendes tag
Sziasztok!
Hogy lehetne megoldani azt, hogy egy dinamikusan (futásidőben) feltöltött popup-menu elemére, ha rákattintok, akkor egy beviteli mezőbe kiíírja a popup-menu feliratát,
tehát az adott menüelem Caption-jét. Ezt sehogy sem tudom elérni.
Előre is köszi!
[Szerkesztve]
[Szerkesztve][TYPhoon]
-
Szalma
őstag
(Kettő dolog: 3szöget akkor kellene rajzolni, ha változott az egérkurzor koordinátája... A másik pedig a WM_ERASEBKGND korrek kezelése lenne: akkor kell frissíteni a háromszög mögötti objektum felületét, ha arra tényleg szükség van. Amíg nem veszed kezelésbe a WM_ERASEBKGND üzenetet, addig a delfi minden egérmoccantásnál újrafesti a komponens felületét. (Ami itt nem lenne baj, de mégis javaslom a korrekt kezelését, később jól fog jönni.) A változás figyelése pedig elsődleges fontosságú.
Hajrá!)
Szeretettel:
Szalma -
gone
csendes tag
Sziasztok!
Írtam Delphiben egy dll-t amit delphiből meg is tudok hívni, de excel-ből szeretném elérni a dll-file-t!
pl:
matek.dll egy függvényt tartalmaz:
function osszead(a,b:real):real;stdcall;
begin
result:=a+b;
end;
Azt szeretném pl, hogy az A1-es és az A2 es cellában lévő számokat adja össze és az eredményt írja ki az A3-ba!
Ehez kérnék segítséget.
Excelben találtam a Hívás parancsot de nincs is ilyen fv-em!
Hívás(''matek.dll'',''osszead'',''EEE'',A1,A2) és ezt a A3-ba kéne beírni???
Mikor fog ez lefutni?? Minden újraszámolásnál?
A segítsége(ke)t előre is köszönöm!
Üdvözlettel Gone -
Fifty
csendes tag
Hello!
A következő a kérdésem, (immár a megfelelő helyen) :
Delphiben írtam egy progit, ami a következőt csinálja: rajzol egy háromszöget, aminek két csúcsa rögzített helyen van. A 3. csúcsot az egérmutatóhoz rakja. Ezt a háromszöget valamilyen színnel ki is tölti, majd ha az egér megmozdul, akkor ugyanilyen háromszöget rajzol a régire, csak háttérszínnel, azaz letörli azt, és kezdődik az egész elölről. Nem is ez a gond, az egész tökéletesen működne, csak valahogy becsíkozódik a háromszög háttérszínű csíkokkal, egy pillanatig.
Próbáltam úgy is, hogy egy timerre raktam rá az egészet, és pl. 0,001 másodpercenként frissített, akkor is frankón mükszik, de egy kb. 1cm-es csík fut alulról felfelé szépen lassan a képernyőn. Kb. így néz ki az algoritmus, kisebb változtatással (a változók értékének megadásával kapcsolatban) :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
f[1].X:=600;
f[1].y:=768;
f[2].X:=850;
f[2].y:=768;
canvas.Brush.Color:=clbtnface;
canvas.Pen.Color:=clbtnface;
canvas.polygon(f);
canvas.Brush.Color:=clgray;
canvas.Pen.Color:=clgray;
getcursorpos(f[3]);
canvas.polygon(f);
end;
Na ezt hogyan lehetne kiküszöbölni ???
Előre is hálás köszönetem minden válaszért ! -
-
lao ce
aktív tag
en azt hiszem ezt ugy szoktak megoldani, hogy eloszor megrajzoljak a memoriaban amire szukseg van es aztan egy lepesben kirakjak a lathato teruletre.
szoval en ugy csinalnam hogy lenne egy image ami a haromszogemet tartja:
var
...triangle: tbitmap;
aztan ezt elokeszitenem a form create-ben:
...triangle := TBitmap.Create;
...triangle.PixelFormat := pf32bit;
...triangle.Width := Form1.Width;
...triangle.Height := Form1.Height;
es persze fel is szabaditanam a destroy-ban vagy close-ban:
triangle.Free;
a mousemove-ban meg eloszor visszaallitanam a 'szurket' a triangle image-ben(azaz torles)
...triangle.Canvas.Brush.Color := clSilver;
...triangle.Canvas.Rectangle (0,0, Form1.Width, Form1.Height);
aztan megrajzolnam a haromszoget a mar 'ures' kepben:
...triangle.Canvas.Brush.Color := clWhite;
...triangle.Canvas.Polygon([
......point(100, 500),
......point(300, 500),
......point(X, Y)
...]);
(az utolso sor X es Y koordinataja az egerpozicio, ami a mousemove procedure parametere)
vegul ugyanitt a mousemove-ban, a triangle nevezetu image tartalmat kikopiznam a form canvasara ezzel a konnyeden ertheto, minden igazi programozoba dns szinten oroklott utasitassal:
...BitBlt(
......Form1.Canvas.Handle,
......0, 0,
......Form1.Width, Form1.Height,
......triangle.Canvas.Handle,
......0, 0,
......srccopy
...);
jo szorakozast.
[Szerkesztve]nicht kompot
-
#818
Drótszamár
őstag
Drótszamár
őstag
Lenne egy kérdésem.
Egy webcam kezelő programban egy külső komponenst használok a webcam képének megjelenítésére. Innen lopom le a képet, feliratozom, és megy fel a tárhelyemre percenként. A probléma a következő: a külső komponens csak akkor frissíti a képet, ha a programon van a fókusz. Ha másik programra kattintok, akkor amíg újra rá nem kattintok mindíg ugyan azt a képet mutatja.
Erre tudtok esetleg valami megoldást?( 2b || !2b ) az itt a kérdés...
-
#821
Drótszamár
őstag
Drótszamár
#818
Drótszamár
őstag
-
#822
Szalma
őstag
Drótszamár
#821
Szalma
őstag
válasz
Drótszamár
#821
üzenetére
(Ha a webcam directshow-n keresztül támadható, akkor inkább csinálj rá egy saját capture rutint. Ha nem, akkor findwindow-val megkeresni a webcam ablakát, majd valahogy fókuszba hozni. Akár egy egérclikk elküldésével, ha a normál szetfókuszok nem mennek...)
Szeretettel:
Szalma -
Szalma
őstag
(Továbra is WM_ERASEBKGND kezelést látom a kulcsnak. A hátérben rajzolás sem rossz poén, de akkor is meg kellene küzdeni a frissítéskor adódó felesleges újrafestéssel... WM_ERASEBKGND és Google -> Bővebben: link )
Szeretettel:
Szalma -
lao ce
aktív tag
kedves szalma
szerintem egy haromszog miatt azzal nem kell megkuzdeni, csodalkoznek ha latni lehetne kulonbseget. inkabb ugy irom: elegge biztos vagyok benne hogy az adott feladatban a double buffering megoldja a problemat, mig az erase nem jatszik szerepet. de tevedhetek.
amugy a kuzdelem kb ennyi lenne ha jol sejtem:
private
procedure Kuzdes (var Msg: TWMEraseBkgnd); message WM_ERASEBKGND;
...
procedure TForm1.Kuzdes (var Msg: TWMEraseBkgnd);
begin
Msg.Result := 1;
end;
amit azert nem neveznek kuzdelemnek.nicht kompot
-
gone
csendes tag
Sziasztok!
A 812-es levelemhez hozzáfűzném:
Természetesen nem ezt a primitív dll-t írtam meg és szeretném excelből meghívni, ezt csak azért írtam, hogy a meghívás módját lássam belőle, vagy valamit, amiért nem tudok egy dll-file-t excelből használni.Két cella összeadására senki se használ excelből dll-t .ÉN SE! Ha valaki csinált már ilyet és tudna segíteni, akkor azt megköszönném.
Üdvözlettel Gone -
Szalma
őstag
válasz
Incognito
#828
üzenetére
(Karakteres felület kell? Akkor inkább a legutolsó BP7-et javaslom. Delfivel küzdeni kell a jó karakteres felülethez.
BorlandPascal7 tök jól megy win alatt és egy kis TurboPascal-os múlttal el lehet vele boldogulni...
Számlázó program: a Számadó-nak van egy win alatt futó teljesen ingyenes (apeh nyilatkozatos), rendszeresen frissített programja...)
Szeretettel:
Szalma -
net84
őstag
Hellosztok!
Tud-e valaki Delphi 6-hoz e-book-ot? Az 5 és 7 megvan könyvben, de a hatot még abban sem találom meg, és igazából, amennyire kellene, azért nem is igazán adnák pénzt ki a könyvvért, inkább pdf-be érdekelne...
ez ügyben mail: incedi@freemail.hu
[Szerkesztve]Read only...
-
gammar
csendes tag
Valaki segitsen, rakotottem egy regi joystickot a parhuzamos portomra,
delphiben vagy barmiben, hogyan lehetne ezzel komunikalni, tehat ha en a joystickrol kuldok egy jelet akkor azt kezeljem, hogy mittomen jelentse azt mitha egy space nyomtam volna. vagy vmi doksija ha van valakinek ezzel kapcsolatosan. -
wolffy
aktív tag
Sziasztok!
Nemtom valaki tudna-e nekem segíteni. Delphiről van szó, de bizony elég kezdő vagyok. Az érdekelne, hogy egy gomb OnClick eseményére milyen paranccsal (vagy egyéb más módon) tudom beállítani azt a funkciót, hogy elindítson egy adott elérési útvonalon található *.exe fájlt.
Köszi a segítséget. -
net84
őstag
hűha! egyből a közepébe!
vagy keresel egy előre megírt Joy port (vagy párh.port) vezérlő progirészletet, vagy fogod és megírsz egy lekérdező ''algoritmust''
oszt onnantól meg meg már sima kiválasztásos rendszerbe (if) megírod, hogy mire mit csináljon. A nehézség a Joy-nál az, hogy potival működik, és elég nehéz meghatározni, hogy mekkora mozgatásra fog működésbe lépni, mivel az lpt port 0 és 1 logikai értékekre képes a beviteli lábakon is...
OPPÁ! nincs senkinek pdf-je Delphi6-hoz???Read only...
-
_AnTi_
tag
Valószínűleg egy kis tökéletesítésre szorul, de ezen el tudsz indulni. Egy edit mezőben van a futtatandó program elérési útja és neve.
implementation
uses shellAPI;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
startupinfo : Tstartupinfo;
processinfo : Tprocessinformation;
command : array [0..512] of Char;
success : boolean;
begin
strpcopy(command, edit1.text);
fillchar(startupinfo, sizeof(startupinfo), #0);
startupInfo.wShowWindow:=SW_SHOWNORMAL;
startupinfo.cb:=sizeof(startupinfo);
startupinfo.dwFlags:=STARTF_USESHOWWINDOW;
Success:=CreateProcess(nil, command, nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil, nil, Startupinfo, Processinfo);
{ if success then
label2.Caption:='Minden ok!'
else
label2.Caption:='Valami nem jó!';}
end;
Sok Sikert!Szép vagyok és okos, ügyes és aranyos...
-
wolffy
aktív tag
Köszi a hozzászólásokat, most már sikerült a fájlindítás, azonba egy újabb problémába ütköztem. Annyira felbuzdúltam a dolgon, hogy CD-re akartam készíteni egy apró programot amin gombok vannak, s annak megfeleően, hogy melyikre kattint a user, más-más dolgot indít el a CD-ről.
A bökkenő csak az, hogy adom meg a CD meghajtó elérési útvonalát, mert az ahány gép annyi féle meghajtóbetűjel lehet. Nem olyan fix dolog mint a C:\
HTML-nél még orvosolható a probléma, de az módszer (meghajtóbetűjel helyére két pontot írok) nekem nem működött Delphiben. -
sarti
csendes tag
A delphiben van egy olyan parancs, ami megadja az éppen futó alkalmazásod elérési útvonalát. Ha a CD-ről indítod a programodat, akkor az kell neked. Talán getcurrentdir (aplication.exename) . Ez kell értékül adni egy változónak. Abba kerül az útvonal, aztán már kedved szerint lecsupaszíthatod a kívánt szintig, egészen a gyökérig. (Ha a cd-n lévő progi a cd gyökeréből indult, akkor valami ilyesmit ad vissza:d:\progi.exe Nincs előttem a delphi, de talán segítettem.
[Szerkesztve]
[Szerkesztve]Minden nézet, nézőpont kérdése.
és tényleg arra kéne, csak nekem a folyamatok kozul is el kéne tuntetni, nem csak az alkalmazások kozul. Ez megoldható vhogy?
Hozzászólok Aktív témák
Hirdetés
- [Re:] SAMSUNG 850 EVO 250 GB SATA3 SSD -=100%=-
- [Re:] [Eastman:] Párbaj, pisztolyok
- Forza sorozat (Horizon/Motorsport)
- Gaming notebook topik
- [Re:] Redmi Note 8 Pro - Redmi, a profi
- [Re:] [moongoose:] Mekkora zöld(ség) ez már.
- [Re:] Bajorországban épülhet az Intel új megagyára?
- [Re:] GIGABYTE GeForce RTX 3090 Gaming OC 24G
- Anglia - élmények, tapasztalatok
- Komoly Covid Kocsma
- További aktív témák...
Állásajánlatok
Cég: Webinform Consulting Kft
Város: Budapest
Cég: himoney
Város: Budapest