🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: pl.comp.lang.pascal
3 messages
3 total messages Started by Terrmit Sat, 25 Oct 2008 14:12
[Lazarus] zmodyfikowany TStringGrid i TGridColumns
#92678
Author: Terrmit
Date: Sat, 25 Oct 2008 14:12
36 lines
1620 bytes
Witam,

W oparciu o TStringGrid robię własny komponent.
Teraz okazało się, że potrzebuję zmodyfikować
też TGridColumns i "podpiąć" go do do mojego
StringGrida zastępując właściwość Columns.
Nie bardzo wiem jak to zrobić, może ktoś mógłby
pomóc.
Mam coś w rodzaju:
(wykasowałem swoje modyfikacje, żeby nie mieszać)

type
   TMyGridColumns = class(TGridColumns)
   private
   protected
   public
   published
end;

type
   TMyStringGrid = class(TStringGrid)
   private
   protected
   public
   published
     property Columns; //jak zrobić, żeby Columns było typu
                       //TMyGridColumns, a nie TGridColumns
end;

Kombinowałem na różne sposoby, ale nic mi nie wychodzi,
pogubiłem się :/ W literaturze i w googlach jakoś nie mogę
natrafić na podobny przypadek.

Proszę o jakąś wskazówkę lub sugestię, jak to zrobić.

Sławek
Re: [Lazarus] zmodyfikowany TStringGrid i TGridColumns
#92679
Author: Terrmit
Date: Sat, 25 Oct 2008 14:55
9 lines
1160 bytes
Terrmit pisze:
>     property Columns; //jak zrobić, żeby Columns było typu
>                       //TMyGridColumns, a nie TGridColumns
Zdaje się, że to nie jest takie proste, bo TStringGrid
jest znacznie bardziej zintegrowany z TGridColumns niż
tylko na poziomie property Columns. Musiałbym chyba
znacznie więcej właściwości pokryć.

Sławek
Re: [Lazarus] zmodyfikowany TStringGrid i TGridColumns
#92680
Author: Terrmit
Date: Sun, 26 Oct 2008 09:48
26 lines
1939 bytes
Terrmit pisze:
> Terrmit pisze:
>>     property Columns; //jak zrobić, żeby Columns było typu
>>                       //TMyGridColumns, a nie TGridColumns
> Zdaje się, że to nie jest takie proste, bo TStringGrid
> jest znacznie bardziej zintegrowany z TGridColumns niż
> tylko na poziomie property Columns. Musiałbym chyba
> znacznie więcej właściwości pokryć.
> 
> Sławek
OK, wydaje mi się, że podłączyłem swój TMyGridColumns,
do mojego TMyStringGrid, ale po analizie kodów źródłowych
okazuje się, że muszę pokryć jeszcze TGridColumn
(to właściwie miało być moim celem), a także
TGridColumnTitle i Bóg wie co jeszcze. Chyba sobie
to na razie odpuszczę, bo za chwilę przepiszę cały
unit StringGrid :/
Muszę pomyśleć nad innym sposobem, chociaż dodanie
nowych właściwości do TGridColumn wydawało mi się
najwygodniejszym rozwiązaniem. W końcu nowe właściwości
mają dotyczyć właśnie kolumn.
Nie mam za bardzo doświadczenia w dziedziczeniu
komponentów. Czas to zmienić.
A może ktoś jednak zasugeruje mi jakiś pomysł?

Sławek
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads