🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.pl.comp.games.development
Article #298

Re: Ma�e open source (delphi)

#298
From: Wolfshade
Date: Sun, 18 Jan 2004 12:26
72 lines
4155 bytes
U�ytkownik "Grzegorz Ta�czyk" <tanczyk@polbox.com> napisa� w wiadomo�ci
news:Xns9473D6A65EED2tanczykpolboxcom@193.110.122.80...
> "Wolfshade" <rpkc@wp.pl> wrote in news:bu38on$60$1@nemesis.news.tpi.pl:
>
> > w zalezno�ci od tego co chce wykozystywac dorzucam tylko
> > poszczeg?lne unity. I tu moja pro�ba -> chcialem stworzyc uniwersalny
> > projekt (szablon) exeka z dodatkami - czyli to co widzicie tylko lepiej
> > przemy�lane z wieksz? liczb? unit?w odpowiedzialnyc
>
> No to pomysl jeszcze o takich rzeczach(pozwole sobie wkleic z moim zrodel
troche :)):
>         TWMMgr = object(SysLayerH.TWMMgr)
>                    public
>                      procedure RegisterWMHook(Hook : PWMHook; _WM :
Cardinal; _HWND : THandle); virtual;
>                      procedure UnregisterWMHook(Hook : PWMHook); virtual;
>                      function HandleMessages : cardinal; virtual;
>                      constructor Create;
>                      destructor Destroy;
>                    private
>                      HookList : TPointerArray;
>         end;
>
>         PWMHook = ^TWMHook;
>
>         PWMHookDesc = ^TWMHookDesc;
>         TWMHookDesc = record
>                 Handler : PWMHook;
>                 WM : Cardinal;
>                 HWND : THandle;
>         end;
>
>         TWMHook = object
>                    public
>                      function Handle(hwnd : THandle; uMsg : Cardinal;
wParam : Cardinal;
>                             lParam : integer) : Integer; virtual;
abstract;
>                      function GetDesc : PWMHookDesc; virtual; abstract;
>         end;
>
> to tylko interfejsy ale mowia wystarczajaco duzo o dzialaniu. Chcac
odbierac jakis specyficzny typ
> wiadomosci robisz tak:
> - deklarujesz nowy typ dziedziczacy po TWMHook i juz nie abstrakcyjny
tylko z pelna implementacja
> - tworzysz dynamicznie instancje tego obiektu
> - zglaszasz do WMManager HookDesc ze wskaznikiem do wczensiej utworzonego
obietku, id wma i
> uchwytem do okna
>
> calosc dziala pieknie jako callback i w rezultacie upraszcza znacznie kod.
>
> Oprocz tego wymyslilem cos do obslugi scen w programie(zazwyczaj grze ;)).
Robiac nowa gierke
> robisz poprostu nowa klase i ja podlaczasz do menadzera scen.
>
> Wiecej podobnych bajerkow mozesz zobaczyc tutaj:
> http://warsztat.mmogspot.com/compo/pliki/2004-01-09.rar
> ostatnia kolejka zamknietego juz z powodu malej ilosci prac warsztatowego
compo. Mojej pracy szukaj w
> katalogu /Goliatus. Sporo kodu naklepalem, moze ci sie do czegos cos
przyda.
>
No powiem tak - narazie nie przejrza�em jeszcze ca�ego kodu ale z struktury
�r�d��wek w�sze kawa�ek ci�kiej dobrej pracy.

To co zrobie� bardzo mi si� podoba. W�a�nie co� takiego jak zrobi�e�
chcia�bym zrobi� w swoim projekciku. No mo�e nie "swoim"  - zale�y mi na tym
�eby wielu ludzi wsp�pracowa�o przy jego projektowaniu. Je�eli chcia�by�
pom�c - daj tylko zna�.
Technical Details
Message-ID: <budu1g$coe$1@atlantis.news.tpi.pl>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.media.kyoto-u.ac.jp!newsfeed.icl.net!newsfeed.fjserv.net!proxad.net!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
References: <bu38on$60$1@nemesis.news.tpi.pl> <Xns9473D6A65EED2tanczykpolboxcom@193.110.122.80>

Show Full Headers
Complete Article Headers
X-Google-Language: POLISH,Latin2
X-Google-Thread: 1162ab,9b5fcdbc1e1be421
X-Google-Attributes: gid1162ab,public
X-Google-ArrivalTime: 2004-01-18 04:26:06 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.media.kyoto-u.ac.jp!newsfeed.icl.net!newsfeed.fjserv.net!proxad.net!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: "Wolfshade" <rpkc@wp.pl>
Newsgroups: free.pl.comp.games.development
Subject: Re: Ma�e open source (delphi)
Date: Sun, 18 Jan 2004 13:26:26 +0100
Organization: tp.internet - http://www.tpi.pl/
Lines: 74
Message-ID: <budu1g$coe$1@atlantis.news.tpi.pl>
References: <bu38on$60$1@nemesis.news.tpi.pl> <Xns9473D6A65EED2tanczykpolboxcom@193.110.122.80>
NNTP-Posting-Host: lb140.neoplus.adsl.tpnet.pl
X-Trace: atlantis.news.tpi.pl 1074428785 13070 83.30.13.140 (18 Jan 2004 12:26:25 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Sun, 18 Jan 2004 12:26:25 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165