Article View: free.pl.comp.games.development
Article #298Re: Ma�e open source (delphi)
From: Wolfshade
Date: Sun, 18 Jan 2004 12:26
Date: Sun, 18 Jan 2004 12:26
72 lines
4155 bytes
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-mailReferences:
<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