- Felkészült a legfrissebb játékduóra az új Arc meghajtó
- Kiderült, hogy melyik AI-cégeket venné meg az Apple
- Öngyilkossághoz adott útmutatókat a ChatGPT, perelik az OpenAI-t és Altmant
- Panorámás, E-ATX-es toronyház a Thermaltake-től, akár "lopakodó" alaplapokhoz is
- Sokrétű segédkijelzővel gyarapodott a Corsair portfóliója
- Mini-ITX
- TCL LCD és LED TV-k
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
- Fujifilm X
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Fejhallgató erősítő és DAC topik
- Vezetékes FEJhallgatók
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Milyen videókártyát?
- Milyen monitort vegyek?
Új hozzászólás Aktív témák
-
#789
killerjohn
addikt
The TYPhoon
#779
killerjohn
addikt
válasz
The TYPhoon
#779
üzenetére
Var lvData : TListView;
Begin
lvData.Items.Clear;
For i := 1 To N Do
Begin
With lvData.Items.Add Do
Begin
Caption := '1. oszlop';
SubItems.Add('2. oszlop');
SubItems.Add('3. osztlop');
End;
End;
End;
ennyi.
-
#748
killerjohn
addikt
Imike_80
#747
killerjohn
addikt
válasz
Imike_80
#747
üzenetére
kiszámolja a lenyomáskor eltárolt koordináták és a felengedéskor átadott koordináták távolságát (pitagorasz tétel a2+b2=c2 [2=négyzet])
utólag belegondolva működnie kell, de tényleg nem garantálom. TRY IT !
ez sor :
Ellipse(Circle_X-Radius,CircleY-Radius,CircleX+Radius,CircleY+Radius);
javítva :
Ellipse(Circle_X-Radius,Circle_Y-Radius,Circle_X+Radius,Circle_Y+Radius);
(kihagytam az aláhúzásokat a változónevekből...)
[Szerkesztve] -
#738
killerjohn
addikt
killerjohn
#737
killerjohn
addikt
válasz
killerjohn
#737
üzenetére
de hasonló a megoldás. most nincs időm írni, de ebből már nem nehéz kitatlálni az alapjait............
-
#737
killerjohn
addikt
Imike_80
#732
killerjohn
addikt
válasz
Imike_80
#732
üzenetére
Var Circle_X,Circle_Y : Integer;
Procedure TForm1.Image1MouseDown(Sender: TObject.......);
Begin
Circle_X := X;
Circle_Y := Y;
End;
Procedure TForm1.Image1MouseUp(Sender: TObject....);
Var Radius : Integer;
Begin
Radius := sqrt( sqr(Abs(X-Circle_X))+sqr(Abs(Y-Circle_Y)) );
With Image1.Cavas do
Begin
Pen.Style := psSolid;
Brush.Style := psSolid;
Pen.Color := clBlack;
Brush.Color := clYellow;
Ellipse(Circle_X-Radius,CircleY-Radius,CircleX+Radius,CircleY+Radius);
End;
End;
szerintem...
de valószínűleg (tuti) van benne 1-2 hiba, mert fejből írtam, ide az új hozzászólás ablakba...
-
#727
killerjohn
addikt
ollie
#726
-
#725
killerjohn
addikt
Metalwarrior
#723
killerjohn
addikt
válasz
Metalwarrior
#723
üzenetére
Uses JPEG;
Image1.Picture.RegisterFileFormat() metódus. nézd meg a paraméterlistáját. -
#711
killerjohn
addikt
yksz
#708
killerjohn
addikt
feldobhatnád valahová a forrást. kíváncsi vagyok. régen próbálkoztam -egy prímszámkeresőhöz- azzal, hogy egy string-ben tetszőleges nagy számot tárolok, és azzal műveletet elvégezni (pl: két string összeadása, kivonása, szorzása, osztása, egy string négyzetgyökének a megállapítása, stb.), de csak hobbi volt, és nem volt rá időm. Viszont aa van valami kész megoldásod, akkor megnézném....... Mester........
-
#710
killerjohn
addikt
Drótszamár
#706
killerjohn
addikt
válasz
Drótszamár
#706
üzenetére
ebben nem t'ok segíteni. sorry
-
#704
killerjohn
addikt
Divi
#696
killerjohn
addikt
Elég egyszerű, csak csinálni kell hozzá egy új komponenst, melyet így kell megcsinálni (pl TButton esetében, de másnál is müxik...)
Bocsi, de sietve dobtam össze... nem biztos, hogy fullosan OK.
---------------------------
Uses SysUtils, Classes, Controls, Messages, Graphics, ExtCtrls, Windows, Forms;
Type
TMyButton = class(TButton)
private
FOnMouseEnter : TNotifyEvent;
FOnMouseLeave : TNotifyEvent;
protected
Procedure msgMouseEnter(Var Msg: TMessage); message CM_MouseEnter;
Procedure msgMouseLeave(Var Msg: TMessage); message CM_MouseLeave;
public
Constructor Create(AOwner: TComponent); override;
published
Property OnMouseEnter : TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
Property OnMouseLeave : TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
End;
constructor TMyButton.Create(AOwner: TComponent);
begin
inherited;
FOnMouseEnter := nil;
FOnMouseLeave := nil;
end;
procedure TMyButton.msgMouseEnter(var Msg: TMessage);
begin
If csDesigning in Self.ComponentState Then EXIT;
If Assigned(FOnMouseEnter) Then FOnMouseEnter(Self);
End;
procedure TMyButton.msgMouseLeave(var Msg: TMessage);
begin
If csDesigning in Self.ComponentState Then EXIT;
If Assigned(FOnMouseLeave) Then FOnMouseLeave(Self);
end; -
#682
killerjohn
addikt
killerjohn
addikt
Na, most megyek, ne keressetek... Addig is good luck ! Delphi rulez. off
-
#678
killerjohn
addikt
Diskcopy
#677
killerjohn
addikt
válasz
Diskcopy
#677
üzenetére
A ''mester'' azért erős....
![;]](//cdn.rios.hu/dl/s/v1.gif)
Itt se ICQ-t, se MSN-t nem használok... Otthon nincs net, jövőhéten hozzák be... Marad a PH!. De ez nem flood. Ez a topic erre van, nem ?
Szerk: A rendszergazda nem szereti az ilyen jellegű ''chat'' cuccokat. Próbáltam elmagyarázni, de fogja fel.... mind1.
[Szerkesztve] -
#676
killerjohn
addikt
Diskcopy
#669
killerjohn
addikt
válasz
Diskcopy
#669
üzenetére
Procedure ClearBitmap(Btm: TBitmap);
Begin
With Btm.Canvas Do
Begin
Pen.Color := clWhite;
Brush.Color := clWhite;
Rectangle(0,0,Btm.Width,Btm.Height);
End;
End;
itt jön a Tiéd :
Var Img : TImage;
For c := 1 to 5 Do
Begin
dobott[c]:=random(5)+1;
Img := Timage(Form1.FindComponent('Image'+IntToStr(c)));
ClearBitmap(Img.Picture.Bitmap);
Imagelist2.GetBitmap( dobott[c]-1, Img.Picture.Bitmap);
Img.Invalidate;
End;
próba, kemence. -
#670
killerjohn
addikt
Diskcopy
#668
-
#655
killerjohn
addikt
g4dg3t
#652
killerjohn
addikt
VCL :
TForm
property Components[Index: Integer]: TComponent read GetComponent;
function TComponent.GetComponent(AIndex: Integer): TComponent;
begin
if FComponents = nil then TList.Error(@SListIndexError, AIndex);
Result := FComponents[AIndex];
end;
function TComponent.FindComponent(const AName: string): TComponent;
var
I: Integer;
begin
if (AName <> '') and (FComponents <> nil) then
for I := 0 to FComponents.Count - 1 do
begin
Result := FComponents;
if SameText(Result.FName, AName) then Exit;
end;
Result := nil;
end;
a függvényhíváson belül már a saját, közvetlen elérésű adattagjával dolgozik az osztály, és nem a GetComponent függvényen keresztül ad vissza értéket, amikor a Components[] tömb elemeit olvasod....
Tehát még gyorsabb is. -
#650
killerjohn
addikt
BlackWoOd
#647
-
#635
killerjohn
addikt
Robiba
#623
killerjohn
addikt
Ez nem fog menni, mivel ciklusváltozó nem lehet, csak lokális...
Így már jobb :
Var Tomb : array [0..3] of String = ('Edit1','Edit2','Edit3','Edit4');
Procedure TForm1.Button1Click(Sender: TObject);
Var i1 : Integer;
Begin
For i1 := 0 To 3 Do
Begin
(FindComponent(Tomb[i1]) as TEdit).Text := 'Akármi';
End;
End;
[Szerkesztve] -
#633
killerjohn
addikt
killerjohn
addikt
Uram Isten !
(Form1.FindComponent('image'+IntToStr(N)) as TImage).valami := valami;
enyi.
[Szerkesztve]
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Hirdetés
- Mini-ITX
- REpont és hulladékgazdálkodás
- Kertészet, mezőgazdaság topik
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Hajmeresztő ajánlat: 34,5 milliárd dollárért vinnék a Google Chrome böngészőjét
- BestBuy topik
- E-roller topik
- Azonnali mobilos kérdések órája
- Huawei Watch GT 4 - kerek karék
- TCL LCD és LED TV-k
- További aktív témák...
- MSI Thin GF63 Gamer Laptop 1+év garancia (RTX 3050, 144Hz, 16GB RAM)!
- MSI GF75 Thin 17'' Gamer Laptop i7-tel, 144Hz kijelzővel, 16GB RAM-mal!
- Asus ROG Strix G16
- Apple MacBook Pro Touch Bar(13-inch, M1, 2020)- 181 Ciklus - 96% Akku -8GB/256GB SSD - Ezüst -MAGYAR
- Razer Blade 15 Advanced (2019) Rtx 2080 OLED Touch 4K - újszerű
- BESZÁMÍTÁS! Asus B550M R9 5900X 32GB DDR4 1TB SSD RTX 4070 SUPER 12GB Be Quiet! Silent Base 601 850W
- Akció! Paidashu 10600MAH / 20700MAH Powerbank olcsón!
- BESZÁMÍTÁS! Asus A620M R5 7500F 32GB DDR5 512GB SSD RTX 2080 Ti 11GB Zalman M4 FSP 700W
- GYÖNYÖRŰ iPhone 13 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3206
- Új Dell 13 XPS 9315 Touch 4K+ HDR DolbyVision i7-1250U 10mag 16GB 512GB Intel Iris XE Win11 Garancia
Állásajánlatok
Cég: FOTC
Város: Budapest