- Motorola Moto G24 Power - hol van az erő?
- Samsung Galaxy S24 - nos, Exynos
- Poco X6 Pro - ötös alá
- Alkalmazásbemutató: Keep
- Futott egy Geekbench kört egy új HTC készülék
- Azonnali mobilos kérdések órája
- Apple AirPods Pro (2. generáció) - csiszolt almaságok
- Huawei Mate 10 Pro - mestersége az intelligencia
- Vodafone-ra áttért Digi Mobilosok
- Xiaomi Mi 11 Ultra - Circus Maximus
Hirdetés
-
Spyra: akkus, nagynyomású, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
Samsung Univerzum: Így ismerhető meg a Galaxy AI bármilyen telefonon
ma A Try Galaxy webalkalmazás kontrollált környezetben mutatja meg, mit tud a One UI 6.1-es rendszer és a mesterséges intelligencia.
-
Már tudjuk, hogy mikor jön az idei Xbox Games Showcase
gp A showt egy külön Direct előadás követi, ami szinte biztosan az idei Call of Duty lelepelzése lesz.
Új hozzászólás Aktív témák
-
Metalwarrior
tag
Helló!
El akarok menteni egy képet Savedialoggal de a .bmp kiterjesztést nem írja utána. Hogy lehet ezt megcsinálni? -
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? -
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. -
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? -
Metalwarrior
tag
Most ez komoly? Valaki már csak tud segíteni?
-
Metalwarrior
tag
Mert így van feladva.
-
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
-
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? -
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 -
Metalwarrior
tag
nekem pontosan arra a példára kell megoldás. A kegyetlen jó angol tudásommal nem sokra megyek azzal a linkkel
-
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
-
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; -
Metalwarrior
tag
Ez most komoly, hogy senki se akar segíteni?
-
Metalwarrior
tag
Én barom. Az eventsben nem állítottam be. Már minden ok. Bocs, hogy ilyen hülyeség miatt írtam.
-
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]