🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #92995

Re: [Lazarus] Klasa dziedzicząca po TCustomStringGrid

#92995
From: Terrmit
Date: Tue, 20 Apr 2010 19:38
40 lines
2657 bytes
W dniu 20.04.2010 08:47, Łukasz 'Maly' Ostrowski pisze:
> On Tue, 20 Apr 2010 00:41:35 +0200, Terrmit wrote:
>> Czy ktoś mógłby mi poradzić jak to zrobić (i czy w ogóle da
>> się to zrobić)?
>>
>> Sławek
>>
>> być może pomocne linki:
>> http://svn.freepascal.org/svn/lazarus/trunk/lcl/grids.pas
>> http://lazarus-ccr.sourceforge.net/docs/lcl/grids/tcustomstringgrid.html
>> http://wiki.lazarus.freepascal.org/Grids_Reference_Page
>
> Można pokombinować w okolicach samego eventa
> OnEditButtonClicked - ustawić mu z góry w ctorze
> własny event handler który w zależności od zawartości
> wywoła OnIntEditButtonClicked/OnStringEditButtonClicked
> które dopiszesz, czy też w zależności od tego czy
> *zawsze* potrzebujesz takie same edit dialogi, po prostu
> pokaże odpowiednie modal formy.
>
> Odcinasz sobie w ten sposób z oczywistych względów
> możliwość użycia OnEditButtonClicked w innych celach.
> Chyba w OOP nie ma multicast delegates.
>
Prawdę mówiąc już myślałem o czymś takim. Spróbuję to zaimplementować.
Raczej nie będę potrzebował tego eventa poza klasą i oby nie
okazało się, że się mylę :)
Na razie jednak jego obsługa jest poza klasą, bo muszę mieć działający
program do końca kwietnia. Później będę sobie poprawiał co się da
jak sprawy nie będą już takie pilne.

Gdyby komuś miał jeszcze jakiś pomysł, do bardzo bym prosił
o podzielenie się nim :)
Zaznaczę jeszcze, że modyfikowanie oryginalnego grids.pas raczej
w grę nie wchodzi chyba, że taką modyfikację można by było
zaproponować do wdrożenia programistom Lazarusa.

Dzięki,

Sławek
Technical Details
Message-ID: <hql001$1oem$1@news.mm.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.task.gda.pl!news.mm.pl!not-for-mail
References: <hqimar$2mct$1@news.mm.pl> <gzbqyg47z8mz.1cw1eop9xnav5.dlg@40tude.net>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!news.task.gda.pl!news.mm.pl!not-for-mail
From: Terrmit <terrmitv@poczta.onet.pl>
Newsgroups: pl.comp.lang.pascal
Subject: Re: [Lazarus] Klasa dziedzicząca po
 TCustomStringGrid
Date: Tue, 20 Apr 2010 21:38:45 +0200
Organization: Multimedia Polska SA
Lines: 40
Message-ID: <hql001$1oem$1@news.mm.pl>
References: <hqimar$2mct$1@news.mm.pl> <gzbqyg47z8mz.1cw1eop9xnav5.dlg@40tude.net>
NNTP-Posting-Host: host-89-231-112-128.warszawa.mm.pl
Mime-Version: 1.0
X-Trace: news.mm.pl 1271792449 57814 89.231.112.128 (20 Apr 2010 19:40:49 GMT)
X-Complaints-To: abuse@multimedia.pl
NNTP-Posting-Date: Tue, 20 Apr 2010 19:40:49 +0000 (UTC)
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.1.9) Gecko/20100330 Fedora/3.0.4-1.fc12 Lightning/1.0b2pre Thunderbird/3.0.4
In-Reply-To: <gzbqyg47z8mz.1cw1eop9xnav5.dlg@40tude.net>
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit