- Samsung Galaxy A54 - türelemjáték
- Keretmentesít a Galaxy S25 FE
- Motorola Edge 50 Fusion - jó fogás
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Eltűnhet a Dinamikus Sziget
- Google Pixel topik
- Milyen okostelefont vegyek?
- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- iPhone topik
- Samsung Galaxy Watch6 Classic - tekerd!
Új hozzászólás Aktív témák
-
Alan
aktív tag
Tetszik a nyelvi leleményem, mi? Csak azért, hogy ne unatkozzon nagyon, aki olvassa
Egyébként amit a debugolásról írsz, az a szívemből szól. Gondolkodni kell, különben az ember elhülyül az automatikus kiegészítőktől, a CodeRush automata mindenféléjétől, ami persze szükséges, mert ha már egyszer használtad, nem bírod ki nélküle, de nem szabad rögtön a debuggerhez kapni meg átírni úgy, hogy nem is értem, mi volt a probléma. OK, van, hogy fél nap elmegy egy problémára, de ha megoldod, annál jobb nincs.
Én e-mailt csak akkor írok mondjuk valami supportnak, ha biztosan tudom, hogy az idegen kód a hibás, kinyomoztam, hol a hiba és tudom vagy legalább sejtem, hogy lehetne kijavítani. Addig inkább küzdök, és közben rájövök egy csomó hasznos mindenfélére.
Kár, hogy amikor ''termelni'' kell, nincs idő és az ember ráfanyalodik a borzalmakra, mindenfélék bemásolására kipróbálás nélkül és egyebek, fujj. Azért ezt igyekszünk leszorítani jól -
yksz
aktív tag
Hmmm... Szép. Gratula!
''miert ne tettem volna ezeket a dolgokat? ezeket csinaltam''
Lett egy saját céged is, vagy egy cégnél dolgoztál? Láttam, hogy írtad:
ket munkahelyem is volt
csak hogy aztán lett-e saját céged?
''es tarsat talalni a legnehezebb. kerdezd alan-t''
Akkor kérdezem Alan-t. Miért olyan nehéz társat találni?
''a matekra is hasalj ra''
Ez megvan
-
tusi74
őstag
-
tusi74
őstag
Köszi, ezt most szépen beleapplikálom.
Mi csak olyat tanultunk, hogy Pascalban mondjuk van a bemenet, és azokra bemeneti feltétel, mondjuk nem lehet negatív. És ha felhasználó mégis negatívat visz be, akkor írja ki, hogy negatív nem lehet, és hurrá nem lehet. És ez volt a teszt.
Csak DOS-os progikat írtunk, nagyon primitíveket. (Még én is 5-ös voltam, úgyhogy túl bonyolult nem lehetett).
Ránk is igaz, hogy leperkáltunk 5 féléven keresztül a másoddiplomás levelezős képzésért nem kevés pénzt, általában a legleamortizáltabb tanárok tanítottak, terem általában nem jutott, úgyhogy egy óriási gépteremből választottak le székekkel egy területet ott ültünk, mellettünk a nappalisok hawaioztak, mi meg minden 3. szót értettünk, ha a tanár elég hangosan túl tudta üvölteni a zajt. Általában nem sikerült neki. Nálunk, mint bukás nem létezik, maximum 5-6-7-szer megpróbálod, természetesen újabb X Ft leperkálása után, de olyan, hogy lemorzsolódás nem létezik, max, ha anyagilag nem bírod.
És a végén kapsz egy diplomát. Ha végig csináltad, tuti. Én a magam részéről akkor még 28 évesen azért vágtam bele, hogy egy jobb álláshoz jussak, és ha megkérdezik, pontosan mihez is ért, legalább egy szakterületet meg tudjak jelölni, na ehhez. Hát az nem jött össze, csak a családi költségvetésből hiányzik egy 7 jegyű szám. Na be is fejezem, mert megint felmegy a pumpa, mint a témavezetőmmel kapcsolatban. -
yksz
aktív tag
Hmm. Ez igaz. De ha már alapban elkezdted tanulni, gondolom utána nem is hagytad abba, akkor miért nem csináltál egy saját céget, vagy mentél el egy céghez dolgozni? Gondolom az iskoláid elvégzése után nem kis tapasztalatod lehetett. Vagy csak egyszeruen csináltál volna egy hasznos kis progit, vagy tobbet és eladod? Én ezt fogom tenni, bár még alapba járok, nem tanítják sajna
. Szólj ha valamelyiket csináltad!
[Szerkesztve] -
Alan
aktív tag
lao ce, én általában hasraesek a programozónőktől
Ritka, aki kitart és meg tudja oldani rendesen a dolgokat.
De a humorod az abszolút klasszikus Ismered egyébként a Calvin&Hobbes képregényt? Legjobb a világon. Abban vannak király sorozatok a női témában, persze nem programozónőkkel, hanem óvodásokkal, de a jelenség ugyanaz 
Ha ismered, ennyi elég lesz, ha nem, akkor majd értekezünk -
-
tusi74
őstag
MEGY!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Köszi a linket. Be kellett állítani a Rave-en belül is a paramétert.
Minden megy a programban.
Mindenkinek nagyon köszönöm.
Én soha életemben nem ittam alkoholt, csak szilveszterkor, de most olyan szívesen berúgnék. Ma pl. még nem ettem. Reggel 8 óta csak WC-re álltam fel, és benyakaltam 4 liter PepsiMax-ot. És ez már nov. eleje óta így megy. -
tusi74
őstag
Most jövök rá, itt nincs olyan, hogy report from, az a Quick Reportnál van.
Itt úgy van, hogy fellteszel 3 komponenst a fromra, rvSystem, RvProject, RvQueryConnection. Ezeket összecsatlakoztatod, beállítod a megfelelő query-t, amit használjon, majd a Rave Reports nevű programban elkészíted a *.rav fájlt.
És ezt a *.rav-ot buttonClick esemény alatt futtatod.
Tehát ezt a szöveges mezőt nem látja a Delphi. -
-
tusi74
őstag
Undeclared identifier txtnev (átneveztem a text5-t
).
A dataview1-be a lekérdezés 4 oszlopa van betöltve.
annak nem része a szövegmező. (legalábbis szerintem).
Csináltam sreenshotokat, hogy az rvProject2. mögé.
Bővebben: link
Bővebben: link
Bővebben: link
Bővebben: link
Nem baj, hogy csípős a kedved, marha rendes vagy, hogy így próbálsz segíteni. -
tusi74
őstag
RvProject2.text5.text:=valamit, már a Compile sem fogadja el.- Ezzel kezdtem a próbálkozást, amikor kitaláltad, ezt, hogy sima szövegként tegyem fel a nevet.
Nekem minden az eredeti nevén van a szakdoliban. Szerinted az a védésnél cikis lesz? Az egyik formon több mint 50 query van. szeép sorban query1, query2, stb...
De ezt most a kedvedért átnevezem.
[Szerkesztve]
[Szerkesztve] -
tusi74
őstag
Na ezt most elsőre megértettem. Ilyen sem volt még.
Elvileg ezeknek a statikus text mezőknek text propertyjük van.
Arra nem jövök rá, hogy lehetne rá hivatkozni, mert a gyorssegítség (Leírom, hogy rvPorject2. és lenyílik, miből választhatok), nem ajánl fel ilyen opciót.
Még legjobban a SetParam hasonlítana.
Most addig eljutottam, hogy kivettem a nevet, mint Databand, helyette tettem egy Text5 nevezetű statikus text-et.
Azt nem engedi, hogy RvProject2.Text5:=Query18['nev'![;]](//cdn.rios.hu/dl/s/v1.gif)
[/]
Most így néz ki a rave-t meghívó buttonClick:
Query18.ParamByName('nev').AsString:=nev.Text;
Query18.Open;
RvProject2.SetParam('text5',query18['nev');
RvProject2.Execute;
Query18.Close;
Ezt ha futtatom, akkor így lesz a fejléc: text5 megtartott órái.
Innen kellene valahogy folytatni, szerintem ez jó irány lesz, ez olyan megérzés.
[Szerkesztve]
[Szerkesztve]
[Szerkesztve] -
tusi74
őstag
A Rave terveztemnek képét itt lehet megnézni:
Bővebben: link (jobb oldalt lehet látni, milyen mezők vannak a Direct DataView-ban).
És az eredmény:
Bővebben: link
A lekérdezés, amiből a Rave készül:
select d.nev, o.osztnev, t.tantnev, tf.oraszam
from elek.ttantfeloszt tf, elek.tdolg d, elek.tosztaly o, elek.ttantargy t
where (tf.dkod=d.dkod) and (o.osztkod=tf.osztkod) and (t.tantkod=tf.tantkod)
and (d.nev=:nev)
Egyébként biztos valami egyszerű megoldása van, csak valami elkerüli a figyelmemet. -
-
tusi74
őstag
Nem kerülte el, a 345-ösben volt, csak azokat a dolgokat a Rave-ben nem találtam meg. Azon a képen, amit beillesztettem pár hozzászólással korábban, azon mi az a Duplex? Az a nyomtatásra vonatkozik, nem a Duplex supress, amit írtál.
Általában ahogy olvasom, hogy valaki valamit javasolt, rögtön csinálom.
Egyébként is napi 14 órát foglalkozom ezzel, már vagy 2 hete fizu nélküli szabin vagyok.
[Szerkesztve] -
tusi74
őstag
Köszi. Hát akkor egyszer majd mikor egyéb munkára alkalmatlan leszek, akkor nekiállok.
Másik.
Hogy lehet azt megcsinálni a Rave Reportsban, hogy Kis Pista megtartott órái,
ahol Kis Pista az adatbázis név oszlopából érkezik, alatta a megtartott órái
pedig egy statikus Text. És ha Kis Pista teszem azt 5 osztályban tanít, akkor ne ilyen legyen a fejléce a beszámolónak:
Kis Pista
Kis Pista
Kis Pista
Kis Pista
Kis Pista
megtartott órái.
Rendkívül ronda. -
Alan
aktív tag
Nyesed, lao ce, mint mindig ;)
Csak annyit hozzá, hogy ha a TEdit-hez hasonló osztályt szeretne az ember, akkor illik nem ebből, hanem a TCustomEdit-ből származtatni és csak a szükséges tulajdonságokat publikálni (így pl. ''el is rejthető'' a TEdit egy-két tulajdonsága).
Félek viszont, hogy a kérdezőnek komponensvágyai vannak, tehát hogy a saját osztályából egy ropogós friss példányt a TEdit helyett az egérrel feldobhasson a formjára, ahhoz viszont kell még egy-két dolog. Majd bekukkant és szól, ha így van
[Szerkesztve] -
tusi74
őstag
Hú köszönöm.
Most éjjel beillesztettem egy elég profit. Néztem a hozzászólásod, az alapján tényleg ment.
Innen töltöttem le:
Bővebben: link
Be is illesztettem, és a memo-ra vonatkozó dolgokat kiszedtem, mert
az én formjaimon nincs memo.
Most akkor ez forrásmegjelöléssel maradhat benne, mert ez a kód bárki részére hozzáférhető, és a program nem kerül kereskedelmi forgalomba?
Vagy rosszul gondolom? Ugyanígy beillesztettem egy olyat, hogy a StringGrid cellái, ha rákattintasz, akkor comboboxok lesznek. Az is szabadon hozzáférhető volt.
Most tartok ott, hogy fut a program, minden funkcionál, csak a help hiányzik. Megvettem neten a HelpScribble-t, csak nem nagyon megy még vele, de próbálkozom.
Addig eljutottam, hogy be tudom venni a témákat, de hova teszem a szöveget. A másik: Hogy csinálok altémát?
Na meg persze a dolgozat, amire maradt 2 hetem. -
tusi74
őstag
Hát nagyon szépen köszönöm. Csak nekem a hozzászólásod megértéséhez
is kell pár óra. Nem nagyon értem.
Viszont annyira szorít az idő, hogy
addig fogok próbálkozni a beszúrásával egy kész kódnak, amíg nem megy.
Most találtam a neten egy párat.
Én annyira amatőr vagyok, hogy egy formon belül tudok eseményt kezelni, és
jó napot. Mint írtam nem volt tananyag az objektumorientált programozás, hála a jó istennek az államvizsga tételek között sem lesz. -
tusi74
őstag
Ezt is így csináltam, józan paraszti ésszel, csak épeen nem működik.
Pl. a Private szót hibásnak találja.
Már ugyebár van benne egy type az editek, buttonok miatt.
Most akkor követeli, hogy annak a végére tegyek endet, holott addig nem volt.
Most akkor e-mögé másoljam oda megint type.... end?
Nagyon nem megy ez nekem. -
tusi74
őstag
Eddig én is eljutottam, csak nem jövök, rá, melyik kódot hová kell
copy-paste-zni, hogy működjön.
Eddig, ha így szereztem kódot, akkor egyértelmű volt, hogy melyik eseményhez
melyik eljárást kell írni. De most pl. Van külön type stb, és nem tudom beilleszteni
az én programomba.
type
TrecPrintStrGrid = Record
PrCanvas : TCanvas; //Printer or PaintBox Canvas
sGrid: TStringGrid; //StringGrid containing data
sTitle: String; //Title of document
bPrintFlag : Boolean; //Print if True
ptXYOffset : TPoint; //Left and Top margins
ftTitleFont : TFont; //Font for Title
ftHeadingFont : TFont; //Font for Heading row
ftDataFont : TFont; //Font for Data
bBorderFlag : Boolean //Print border if True
end;
var
recPrintStrGrid : TrecPrintStrGrid;
procedure PrintGrid(ArecPrintStrGrid : TrecPrintStrGrid);
var
iX1, iX2, iY1, iY2, iY3, iTmp , iLoop, iWd : Integer;
trTextRect : TRect;
begin
iWd := 0;
with ArecPrintStrGrid, PrCanvas do
begin
//Calculate Total Width of String Grid
Font := ftHeadingFont;
for iLoop := 0 to sGrid.ColCount-1 do
begin
if (TextWidth(sGrid.Cells[iLoop, 0])+5) < sGrid.ColWidths[iLoop] then
iWd := iWd + sGrid.ColWidths[iLoop]
else
iWd := iWd + TextWidth(sGrid.Cells[iLoop, 0])+5;
end; // for sGrid.ColCount
//Initialize Printer
if bPrintFlag then
begin
Printer.Title := sTitle;
Printer.BeginDoc;
end;
//Output Title
Pen.Color := clBlack;
Font := ftTitleFont;
TextOut(((iWd Div 2) - (TextWidth(sTitle) Div 2)), ptXYOffset.Y, sTitle);
//Output Column Data
for iLoop := 0 to sGrid.ColCount-1 do
begin
Font := ftHeadingFont;
iX1 := ptXYOffset.X;
for iTmp := 0 to (iLoop-1) do
if (TextWidth(sGrid.Cells[iTmp, 0])+5) < (sGrid.ColWidths[iTmp]) then
iX1 := iX1 + (sGrid.ColWidths[iTmp])
else
iX1 := iX1 + TextWidth(sGrid.Cells[iTmp, 0])+5;
iY1 := ptXYOffset.Y + ((TextHeight('Ag')+5) * 2);
iX2 := ptXYOffset.X;
for iTmp := 0 to iLoop do
if (TextWidth(sGrid.Cells[iTmp, 0])+5) < (sGrid.ColWidths[iTmp]) then
iX2 := iX2 + (sGrid.ColWidths[iTmp])
else
iX2 := iX2 + TextWidth(sGrid.Cells[iTmp, 0])+5;
iY2 := iY1 + TextHeight('Ag');
trTextRect := Rect(iX1, iY1, iX2, iY2);
TextRect(trTextRect, trTextRect.Left+5, trTextRect.Top+3, sGrid.Cells[iLoop, 0]);
Brush.Color := clWhite;
if bBorderFlag then FrameRect(trTextRect);
Brush.Style := bsClear;
//Output Row Data
Font := ftDataFont;
iY1 := iY2;
iY3 := TextHeight('Ag')+5;
for iTmp := 1 to sGrid.RowCount-1 do
begin
iY2 := iY1 + iY3;
trTextRect := Rect(iX1, iY1, iX2, iY2);
TextRect(trTextRect, trTextRect.Left+5, trTextRect.Top+3, sGrid.Cells[iLoop, iTmp]);
Brush.Color := clBlack;
if bBorderFlag then FrameRect(trTextRect);
Brush.Style := bsClear;
iY1 := iY1 + iY3;
end; // for sGrid.RowCount-1 do
end; // for sGrid.ColCount-1
if bPrintFlag then Printer.EndDoc;
end; // with ArecPrintStrGrid, prCanvas
end; { PrintGrid }
procedure TfrmSamp.buPrintClick(Sender: TObject);
begin
with recPrintStrGrid do
begin
PrCanvas := pbPreview.Canvas;
sGrid := stgData;
sTitle := 'Print of String Grid';
bPrintFlag := False;
ptXYOffset.X := 10;
ptXYOffset.Y := 100;
ftTitleFont := TFont.Create;
with ftTitleFont do
begin
Name := 'Arial';
Style := [fsBold, fsItalic, fsUnderLine];
Size := 14;
end;
ftHeadingFont := TFont.Create;
with ftHeadingFont do
begin
Name := 'Arial';
Style := [fsBold];
Size := 12;
end;
ftDataFont := TFont.Create;
with ftDataFont do
begin
Name := 'Arial';
Style := [];
Size := 10;
end;
bBorderFlag := True;
end; //with recPrintStrGrid do
PrintGrid(recPrintStrGrid);
end; -
Tangerine
senior tag
Ezt találtam a neten:
Function cos(X: Extended): Extended;
The value x must be in radians. To convert from degrees to radians use DegToRad. For example, cos(60 degrees) in Delphi would be cos(DegToRad(60)) = 0.5.
A lényeg: cos(60 degrees) in Delphi would be cos(DegToRad(60))
A te példád helyesen:
B: Real;
A: Real;
C: Real;
bla bla bla;
A:=StrToFloat(Edit1.Text);
B:=Cos(degtorad(A));
C:=B;
Azaz a C-t ki ishagyhatod. -
tusi74
őstag
Köszi,
'' 'startup plus' kenyelmi szolgaltatas rogton az elso rekordot allitja be a kepernyon', ez az idezetem copyrightos ''
Ne félj, nem idézem, sehol, főleg nem a védésnél, mert arra nagyon adok, hogy
amiről csak 1 mondatot tudok mondani, vagy mástól hallottam, azt nem mondom, mert egy járulékos kérdésre már nem tudok válaszolni, és jól beégek.
Igyekszem a védésnél majd azokról a részekről beszéni, amit én találtam ki.
Viszont egy orosz lapon találtam egy kész algoritmust, hogy lehet a StrinGrid mezőiből ideiglenesen Combobox-ot csinálni. Ezt egy az egyben beillesztettem,
csak nem 1 oszlopra, hanem 4-re csináltam. Na ezt még azért át kell tanulmányozni, mert néhány részről nem pontosan tudom, mit csinál, és ha belekérdeznek, marha cikis lesz. Magamtól viszont nem említem meg.
Próbálkoztam a debug-gal, de képtelen vagyok megtanulni.
PL. Tegyük fel, hogy van egy while ciklusom, hogy
i:=0;
while...... do
begin
...
i+:=i+1;
end;
és az i-t szeretném figyelni. Akkor hova tegyem a breakpointot? Aztán mit csináljak, hogy lássam az i változását?
A Computerbooks-os Programoozzunk Delphi 7 rendszerben c. könyvet használom, meg pár ilyen algoritmusos könyvet, de ez sehol sincs leírva.
Van egy ilyen államvizsga tétel is, de gyakorlatban sosem csináltuk az egyetemen, hiába kértük az oktatót. Folyton azt mondta, nem lényeges, nekünk
sosem lesz rá szükségünk. (egyetemi képzés) -
Hani
aktív tag
Helló!
Köszi a segítséget, meg a fáradozást.
Ami igazán érdekelne, hogy miért megy, és miért nem megy ?
Az ini-hez: Sajnos nem elég a 64K - már most 188K, és valamennyivel lesz ez még több is. 98 alatt egy gépen próbálták, ahol most nem okés, de régebben az volt. Xp, 2K, NT4.0 alatt próbáltam egy rakás gépen, minden szép és jó
Az & jelhez: Ugyanazon a gépen néha megy, néha nem.
Hát, ez az, ami elszomorít. -
Alan
aktív tag
Hát, több projektben is voltam, az tény, de az ''eltűnés'' igazi oka, hogy eléggé magam alá kerültem, meg a fórum sem vonzott annyira. Most is fejlesztek egyébként, meg a kedvem is kicsit feljavult---bár a helyzet semmit sem változott, de nem szabad attól függeni.
Nemrég teszteltem egyébként a Delphi 2005-öt, nagyon jó kis ware, különösen tetszenek a nyelvi újítások, a refactoring funkciók meg a SyncEdit, de lassúságban sajnos újabb, már-már hihetetlen csúcsot állít fel. Persze csak önmagához képest, mert ebben azért a VS.NET még mindig ''verhetetlen''
Ciao, majd még befigyelek egyszer-kétszer
[Szerkesztve] -
Alan
aktív tag
lao ce, rég ''láttalak''
Bocsáss meg, hogy belefirkálok a programodba, de szerintem kicsit szebben így nézne ki:
const
szoveg = '11,10,09,08';
var
szamlalo : integer;
szamlalo := 1;
with Form1 do
for i := 0 to ComponentCount-1 do
begin
if Components i is TEdit
then
begin
(Components i as TEdit).Text := Copy(szoveg, szamlalo, 2);
szamlalo := szamlalo + 3;
end
end;
Ebből most már csak az hiányzik, hogy kizárólag a mi kinevezett szerkesztőmezőinkbe töltsön adatot, és így más mezőket is fel lehessen tenni az ablakra.
[Szerkesztve] -
<Adamsky>
nagyúr
Igazából nem jutottam sokra. A lényeg valami ilyesmi lenne:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
const szoveg = '11,10,09,08';
begin
i := 0;
repeat
Edit1.text := copy(szoveg, 1+i*3, 2);
inc(i);
until i>3;
end;
Namármost a formon van 4db Editbox, és ez az előbbi kódrész az 1-esbe szép sorba beleírja a 11, 10, 09, 08 számokat. Ez -- mondanom sem kell -- így nem jó. Az ''i'' értékétől függően kellene az egyes számokat az ''i+1''-ik Editbox-ba beírni.
Lehet az Editbox-okat tömbe szervezni? pl:
EDoboz: array [1..4] of TEdit;
[Szerkesztve] -
tusi74
őstag
Na voltam a szakdolis tanárnál.
A megoldás a törlésre:
Beírod egy sima query-be, nem kell semmiféle UpdateSQL, hogy
delete from stb....
Amikor meghívod, akkor nem kell odaírni, hogy
query.Open, csak egyszerűen Query.ExecSQL. Ezt szerintem Te is így írtad még régebben, csak én folyamatosan Openeztem a query-t, aztán csodálkoztam, hogy nem megy.
Most szerencsére megy. -
#195
Tele von Zsinór
őstag
lao ce
#187
Tele von Zsinór
őstag
Igaz
. Naszóval: azt akarom, ha a progit liekicsinyíti a user, akkor a Shell_NotifyIcon-nal odarakom system tray-be, és ugyanakkor eltüntetem a taskbarból. Az én progim lenne a célpont.
Mégvalami. Olyat már találtam, hogy futásidőben ToolWindow-ra állítja az ablakot, de ez nem vált be
. -
tusi74
őstag
BDE az elérés. A szakdolis tanár szerint ez a legjobb, és ezt várja el.
Mindenhol azt olvasom, csak ezt ne használja senki.
Én az elején úgy gondoltam, hogy a hangsúly a diplomunkámnak az Oracle rejtelmei legyen, és majd összedobok valamilyen kezelőfelületet Delhiben DBEdit, DBGrid, stb. Ez szépen le is van írva egy könyvben nyáron ki is próbáltam, értettem is.
Közölte a szakdolis tanár, hogy ez nem egyetemi szintű így ezeknek a használatát nem engedi, csak sima edit, striggrid stb.
Igen ám, de mivel gyakorlatlan vagyok programozásban, annyi idő elmegy azzal, hogy a programot írom, hogy pont az Oracle specialitásokra nem fog időm maradni, még az Oracle-s könyvet ki sem nyitottam. Ezt nagyon sajnálom.
Most pl. néhány hozzászólással előrébb írtam, hogy nem töröl rekordot. Azóta sem, és a szakdolis tanárom sem tudja miért.
Igen ám, de holnapután assembly ZH, na az is egy szép műsor lesz, úgyhogy szakdoli félretéve. Abból is volt 2 gyakorlat, aztán hadd szóljon. Ez az ELTE lev. info tanári képzés. Delphi-t is is önszorgalomból nézegettem a nyáron, így mondjuk az eseménykezelés megy. Január 5 a beadási határidő, és mág a dolgozatból egy sor sincs megírva.
Csütörtökön megyek megint a szakdolis tanárhoz, kíváncsi vagyok, hogy mit mond. Múltkor mondom neki, hogy a frissítéshez kell a DbiSaveChanges(table4.Handel), mert olvastam prog.hu-n (mert persze addig az sem ment), aztán láttam rajta, hogy azt sem tudja, hogy eszik-e vagy isszák. Csak az a poén, hogy én sem, mert könyvben nem találtam meg. Csak a védésnél meg ne kérdezzék, mit jelent. -
tusi74
őstag
Én nem ezer éve csinálom, csak 2 hónapja.
Úgy kezdtem Delphi+Oracle-s diplomamunkába, hogy egyiket sem tanultam soha.
Ahhoz képest 2 hónap alatt, főleg a segítségeddel sokat fejlődtem. Ezért sok-sok köszönet.
Ezért lehetséges az, hogy még a mondatot sem értem.
Mi az, hogy ''gombnyomások kódjaira''? Láma vagyok én ám nagyon..
A franc gondolta, hogy mert imádtam az SQL-t, így belesétáltam a programozás rejtelmeibe. -
Notes
senior tag
Milyen ID-ket?
De ha már itt tartunk ez az egész Form arról szól, hogy egy táblából feltöltök combobox-kat (mezőnként egy box), aztán egy lekérdez megnyomásásval a user csak azokat a rekordokat kapja vissza egy reportban, amiknek a tartalma megegyezik a comboboxok tartalmáva. Persze a dolog nem ilyen egyszerű, mert egy dátumtól-ig szűrés mindenképpen van a többi szűrés viszont csak akkor, ha a combobox előtti checkbox-ot kipipálja a felhasználó. Na képzelheted azt az Acces ágat az OnFilterRecord eseménykezelőben... mire azt összehozom... Azt hiszem erre mondják, hogy tipikus SQL megoldást kívánó dolog, de azt nem vágom. Valami ötlet? -
Notes
senior tag
-
lao ce
aktív tag
egy szoval folytatva, hogy nem minden komponens tokeletes a kapott bitmap-ben.
ahogy melyebbre asom magam rajottem hogy vannak cegek akik ebbol a problemabol elnek es erre kinalnak megoldasokat.
en is joba kezdek bele.
talaltam egy helyet ami forrast mutat:
http://www.fengyuan.com/article/wmprint.html
de ez mar tul magasnan van irva nekem, megmondom oszinten eltartana ezer evig mire atirnam (merthogy a CPaintHook is kell ugyi)
[Szerkesztve] -
-
zenit
tag
A Form az nem egy statikus kép, hogy egyszer kirajzolódik a Show hatására, és aztán úgy marad.
A tényleges rajzolás általában a Windows WM_PAINT esemény hatására történik, ami mindannyiszor meghívódik, ha pl. megváltozik az ablak tartalma (Invalidate) - vagy egyszerűen csak egy másik ablakot elhúzol felette! stb...
Delphi oldalon ezt a mechanizmust az OnPaint eseményben tudod elcsípni, ami mindannyiszor meghívódik, ha a formot újra kell rajzolni. Itt rajzolhatsz pl. hátteret a Formodnak. Használd a TForm.Canvas-t. -
Bobojsza
aktív tag
na ertelek... de itt mar gigarol van szo.
a helyfogalalast block irassal csinaltam, igy kb 4 perc
byte-onlkent nem birtam kivarni de kb. 1.5 ora lenne, ahogy szamoltam. Az sok, ha hozzaveszem a feldolgozasi idot is, mielott kiirom, az nagyon sok! Valami olyan modszer kene, hogy fel oran belul maradjak!
Olyan cimzesre vagy tudomisen mire gondolok, hogy blokkent tudjam irni! -
b14
senior tag
HI
Csak maert mar regen erdekel: Mite jelent a neved? Vagy semmi jelentese nincs?
Es az alairasodnak van valami ertelme, legalabbis en ugy gondolom.
''ritka dolog, de ez ertelmes hozzaszolasod volt.'
koszonom az ertekelesedet, majd dicsekszek vele tarsasagban.' Ezen nevetni kene?
Egyebkent a te nem tudsz megserteni- bol a nem tudsz volt nekem ertekes.
'Az egesz delphi rendszerhez annyira nem ertek, hogy ebben a temean nem is nagyon tudok ''erofesziteseket'' tenni.'
marpedig azt neked kell megtenni, annal nagyobbat mennel jobban nem ertesz hozza. - THX a batoritast, ha annak kell venni.
'Egyebkent az egeszet megicsinaltam vonalak nelkul'
ha megirtal egy komplett amobaprogramot akkor rendkivul erdekes hogy nem birod begepelni azt a peldat amit irtak neked es ami egy vacak vonalat huz a vacak formra.
Az egeszet nem nagy dolog megcsinalni, csak szeretem latni, hogy mit csinalok -
b14
senior tag
HI
amugy nem veszem sertesnek a hozzaszolasod, mert te nem tudsz engem megserteni. -ezt nem ertettem teljesen, de a programot nezve nem is szamit.
Probalkoztam a tobbi forumon ennek keresesevel, de ezzel a tobbiek nme nagyon foglalkoztak (lealabbis en nem talaltam megoldast).
azert segiteni megprobalok, mert a szocsatabol nem lesz amoba -ritka dolog, de ez ertelmes hozzaszolasod volt.
Egyebkent az egeszet megicsinaltam vonalak nelkul, de ugy megis ''szebb'' lenne az egesz. Ha gondolod elkuldom, vagy valami.
Az egesz delphi rendszerhez annyira nem ertek, hogy ebben a temean nem is nagyon tudok ''erofesziteseket'' tenni.
Remelem valaki tud segiteni -
b14
senior tag
hi
tisztelt vénahűtős
Kerlek vedd eszre, hogy egy sorral arrabb raktam a kezem a gepelesnel es az volt a problema a 'venahhutessel'
Egyebkent nem tudok meg ugy programozni delphiben hogy runtime visible legen egy line, mert akkor ki sem irtam volna a problamam ezert kerek segitseget, de a sorcsapos hulyeseg egyaltalan nem erdekel, sosem voltam alkoholista, es remelem nem is leszek, es ha a 'rajzolasrol' van szo akkor mint a problememmal kapcsolatos hozzaszolasomnal se konkretan rajzolasrol volt szo, hanem vektor graphics-rol, a problema meg mindig fenn all szamomra, remelem, hogy segitseg erkezik ra.
Hello, es ha durvan fogalmaztam, sertegetesnek tunne, akkor kerlek ne vegg annak.
Bye.
--
b14
exit
![;]](http://cdn.rios.hu/dl/s/v1.gif)
és már ki is van hámozva.
Viszont mivel ilyen egyszerű, ezért a legelemibb kettős rajz-puffert is érdemes megtámogatni vele, mert úgy biztosan az van ott, amit rajzolunk.)
. Szólj ha valamelyiket csináltad!
!
Új hozzászólás Aktív témák
Hirdetés
- Xbox Series X|S
- Ingatlanos topic!
- Elektromos autók - motorok
- Gyúrósok ide!
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Milyen videókártyát?
- Mibe tegyem a megtakarításaimat?
- Mielőbb díjat rakatnának a görögök az olcsó csomagokra az EU-ban
- Nintendo Switch 2
- Elképesztő mértékben tömörítenék be a nagy nyelvi modelleket
- További aktív témák...
- Ryzen 7 8700G /// Bontatlan // Üzletből, számlával és Garanciával!
- Ryzen 5 9600X /// Bontatlan // Üzletből, számlával és Garanciával!
- IdeaPad 3 15ACH6 15.6" FHD IPS Ryzen 5 5500H RTX 2050 16GB 512GB NVMe magyar vbill gar
- Gigabyte G6X9KG 15.6" FHD+ IPS i7-13650HX RTX 4060 16GB 1TB NVMe gar
- Samsung S24 Ultra 12/256 GB titanium kék 3 év garanciával
- Bomba ár! HP ZBook Studio G5 - XEON I 32GB I 512SSD I Nvidia I 15,6" 4K DreamColor I Cam I W11 I Gar
- BESZÁMÍTÁS! Gigabyte Z370M i5 9400F 16GB DDR4 512GB SSD RX 5700XT 8GB ZALMAN S2 TG Corsair S650W
- A Panasonic Toughbook CF-54 i5-5300u i5-6300u TN, IPS touch Budapest, MPL Foxpost
- Azonnali készpénzes AMD Radeon RX 6000 sorozat videokártya felvásárlás személyesen/csomagküldéssel
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest