Moe

Witam, Ponieważ pomyślałem, żeby nie zaśmiecać forum nowymi tematami utworze swój jeden, w którym będę umieszczał moje wszystkie pytania dotyczące Delphi. Na 1 ogień idzie komponent ListWiew. 1. Jak dodać do niego item, a konkretnie tak: Mam 2 kategorie - 'Lol' oraz 'CośTam' i chciałbym, aby po naciśnięciu buttona1, dodało do kategorii 'Lol' jakiś tekst. A po naciśnięciu buttona2 dodało do kategori 'Cośtam' również jakiś tekst. Jak to zrobić?? Pzdr, Moe

I co najważniejsze, moja gra z początku sama się w oczy rzuca.

Moja pierwsza w życiu tekstura ognia. Niezbyt wyszła. Weszli agencji si bi ej i wypieprzyli.

Moje małe dzieło sztuki

Do mnie? ja ważę 62,5 kg a jestem najchudszy w porównaniu do moich klasowych, no może nie do końca, bo jeszcze takie kurduple do mojej klasy chodzą, o nich nie wspomnę :)

Tylko po twarzy, tak to jestem "Dosyć" chudy, szczupły.

Przedstawiam wam wielkiego mistrza:

Dzięki, już sobie poradziłem, wszystko działa, na self-made komponencie :) tzn. HGG z edycjami :) Dziękuję za pomoc! Topic Closed, Moe PS. 200 POST!

Czekaj, bo doszedłem do czegoś. Ty tylko przeszukujesz i sprawdzasz czy istnieje kontakt o numerze 5819750, czyli moim, a na pewno sprawdzasz, wszystkie kontakty z numeru podanego przy logowaniu, niezbyt kapuję.

No ok, nie ma sprawy... Kurcze, może kiedyś zadziała, męczę się z tymmm...

A miałbyś może namiary na jakiś "Nowszy"?

Jeszcze przed chwilą wszystkie kontakty wyeksportowałem na serwer. Nie wiem co jest.

Niezbyt rozumiem, ale przecież to dodaje mi tylko kontakt "Ja", a ja chcę żeby pobrało wszystkie kontakty, które znajdują się na serwerze, i dodało je do listviewa, niezbyt kapuję twojej wypowiedzi.

Wyświetlił się komunikat "1" i na listboxie dodała się pozycja "Ja" OK! Niby coś działa, tylko jak teraz dodać wszystkich użytkowników zapisanych na serwerze, min. tym sposobem?

HGG1.Users.GetFromServer, też próbowałem, nie działa. A z HGG1.Users.Add zaraz spróbuję. Nie działa, znasz jakiś lepszy sposób wykorzystania tych procedurek?

Może trochę, ale "Nowszego" komponentu nie znalazłem. Ale działa!, tylko nie mogę rozwiązania tego problemu nigdzie znaleźć. Z tego robię: Tu ( przykład ) HGG + INDY 9.0 Całe źródło: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, HGG, ComCtrls, ImgList; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Edit1: TEdit; Edit2: TEdit; Memo1: TMemo; Label1: TLabel; Label2: TLabel; Memo2: TMemo; Edit3: TEdit; Button3: TButton; HGG1: THGG; ImageList1: TImageList; ListView1: TListView; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure HGG1Message(Sender: TObject; GGNumber: Integer; MessageContent: String; MessageTime: TDateTime); procedure Button3Click(Sender: TObject); procedure HGG1UserChangeStatus(Sender: TObject; UserIndex, GGNumber: Integer; Status: TUserStatus; Description: String); procedure HGG1UsersGetFromServer(Sender: TObject); procedure HGG1UsersListChange(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin try hgg1.Number := StrToInt(Edit1.Text); hgg1.Password := Edit2.Text; HGG1.Host := HGG1.GetServerAddress; hgg1.Status:=usAvailable; hgg1.connect; except ShowMessage('Wystąpił błąd'); hgg1.Disconnect; end; end; procedure TForm1.Button2Click(Sender: TObject); begin hgg1.disconnect; end; procedure TForm1.HGG1Message(Sender: TObject; GGNumber: Integer; MessageContent: String; MessageTime: TDateTime); begin Memo1.Lines.Add(IntToStr(GGNumber)+ ' '+MessageContent); end; procedure TForm1.Button3Click(Sender: TObject); begin HGG1.SendMessage(StrToInt(Edit3.text), Memo2.Text, []); end; procedure TForm1.HGG1UserChangeStatus(Sender: TObject; UserIndex, GGNumber: Integer; Status: TUserStatus; Description: String); var i: Integer; Item: TListItem; begin ListView1.Clear; ListView1.Items.BeginUpdate; for i := 0 to HGG1.Users.Count - 1 do begin Item := ListView1.Items.Add; case HGG1.Users[i].Status of usNotAvailable: Item.ImageIndex := 0; usAvailable: Item.ImageIndex := 1; usBusy: Item.ImageIndex := 2; end; Item.Caption := HGG1.Users[i].Name; Item.SubItems.Add(IntToStr(HGG1.Users[i].GGNumber)); Item.SubItems.Add(HGG1.Users[i].IP); end; ListView1.Items.EndUpdate; end; procedure TForm1.HGG1UsersGetFromServer(Sender: TObject); var i: Integer; Item: TListItem; begin ListView1.Clear; ListView1.Items.BeginUpdate; for i := 0 to HGG1.Users.Count - 1 do begin Item := ListView1.Items.Add; case HGG1.Users[i].Status of usNotAvailable: Item.ImageIndex := 0; usAvailable: Item.ImageIndex := 1; usBusy: Item.ImageIndex := 2; end; Item.Caption := HGG1.Users[i].Name; Item.SubItems.Add(IntToStr(HGG1.Users[i].GGNumber)); Item.SubItems.Add(HGG1.Users[i].IP); end; ListView1.Items.EndUpdate; end; procedure TForm1.HGG1UsersListChange(Sender: TObject); var i: Integer; Item: TListItem; begin ListView1.Clear; ListView1.Items.BeginUpdate; for i := 0 to HGG1.Users.Count - 1 do begin Item := ListView1.Items.Add; case HGG1.Users[i].Status of usNotAvailable: Item.ImageIndex := 0; usAvailable: Item.ImageIndex := 1; usBusy: Item.ImageIndex := 2; end; Item.Caption := HGG1.Users[i].Name; Item.SubItems.Add(IntToStr(HGG1.Users[i].GGNumber)); Item.SubItems.Add(HGG1.Users[i].IP); end; ListView1.Items.EndUpdate; end; procedure TForm1.FormCreate(Sender: TObject); begin end; end.

Witam, więc robię sobie proste GG w delphi (dla nauki), w oparciu o komponent HGG. Logowanie działa, wysyłanie wiadomości też. Lecz pobieranie listy kontaktów do ListViewa nie. Mam taki kod: var i: Integer; Item: TListItem; begin ListView1.Clear; ListView1.Items.BeginUpdate; for i := 0 to HGG1.Users.Count - 1 do begin Item := ListView1.Items.Add; case HGG1.Users[i].Status of usNotAvailable: Item.ImageIndex := 0; usAvailable: Item.ImageIndex := 1; usBusy: Item.ImageIndex := 2; end; Item.Caption := HGG1.Users[i].Name; Item.SubItems.Add(IntToStr(HGG1.Users[i].GGNumber)); Item.SubItems.Add(HGG1.Users[i].IP); end; ListView1.Items.EndUpdate; Robię z tego tematu: Tutaj! ( Post użytkownika "gandziorz" ) I niestety nie działa. Jak to zrobić? Pomocy, Moe

Nie rozwiązuje, bo praktycznie wszystkie klawisze są zablokowane, oprócz literek i cyferek. ( No i oprócz klawisza INS ) to jest taki "Niby hook".

Ze skrótami ALT + F4, ALT+TAB, CTRL + ALT + DEL już sobie poradziłem... PS. Ja się w TRZECH KRÓLI urodziłem cwaniaczku! 6 styczeń :)

W delphi idzie wszystko, w zgodzie z rejestrem windowsa też.

Nie chcę blokować całej klawiatury, wystarczy że zablokuje te istnie diabelskie skróty typu kłontrol plus alłt plus delejt :)

Tytuł: MoeLocker Opis: MoeLocker jest programem blokującym pulpit użytkownika na hasło. Przy uruchomieniu programu należy zawsze ustawić nowe hasło. Uwaga - Gdy klikniesz w ikonę w trayu 2 razy, blokada się włączy automatycznie. Daję do pobrania wczesną wersję oznaczoną 1.2.2.0, pre-beta-alpha, do przetestowania. Uwaga! Program może zawierać śladowe ilości bugów oraz orzechów archaidowych. UWAGA! Program w wersji BETA nie blokuje klawiatury! Propozycje udoskonalania programu, itd piszcie tutaj! Ps. Daję tylko 1 screen, bo screen zablokowanego ekranu niestety spowolnił by nieco ładowanie strony :), pobierzcie, i się sami przekonajcie! Pobierz wersję beta MoeLockera Autorzy: Programowanie: Mikołaj 'Moe' Pawlak Screeny:

Aplikacja zrobiona, wręcz zerżnięta ( chodzi o funkcje ) z kursu GML'a, a dokładnie z kursu operacji na plikach. Chociaż byś mógł zrobić trochę czytelniejszą, i wyraźniejszą obsługę, 1/5

Nie miałem co robić, to skombinowałem proste elementy GUI luny.