Ú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
- Melyik tápegységet vegyem?
- War Thunder - MMO Combat Game
- A fociról könnyedén, egy baráti társaságban
- A Windows 11 nem akarja ránk erőltetni az AI applikációkat – vagy mégis?
- alza vélemények - tapasztalatok
- Epic Store Ünnepi Ajándékozás - 4. nap: Sorry We're Closed
- 3D nyomtatás
- Hardcore café
- Stratégiai biztonsággal védekeznek a dráguló memóriák ellen a gyártók
- Fejhallgató erősítő és DAC topik
- További aktív témák...
- LG 32SQ700S-W - 32" VA Smart - 3840x2160 4K UHD - 62Hz 5ms - WebOS - Wifi + BT - USB-C - Hangszórók
- Xiaomi Redmi 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- Sony PS3/PS4/PS5 és kézikonzolok Okosítása és Szoftveres javítása - RÉSZLETEK A LEÍRÁSBAN
- Apple iPhone 13 256GB / Kártyafüggetlen / 12Hó Garancia / 100% Akku
- Dell Latitude 3510 15,6", i5 10210U, 8-16GB RAM, SSD, jó akku, számla, garancia
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi