Roz27 (2)

Podstrony

[ Pobierz całość w formacie PDF ]
.Fragment programu, odpowiedzialny za utworzenie i zarejestrowanieedytora atrybutu, przedstawiono na listingu 27.13.Listing 27.13.Tekst zródłowy edytora atrybutu SourceField.{ TSourceFieldProperty }typeTSourceFieldProperty = class(TStringProperty)publicfunction GetAttributes: TPropertyAttributes;�' override;procedure GetValueList(List: TStrings);procedure GetValues(Proc: TGetStrProc); override;function GetTablePropName: string; virtual;end;function TSourceFieldProperty.GetAttributes:�' TPropertyAttributes;beginResult := [paValueList, paSortList, paMultiSelect];end;function TSourceFieldProperty.GetTablePropName: string;beginResult := SourceTable ;end;procedure TSourceFieldProperty.GetValues(Proc: TGetStrProc);varI: Integer;Values: TStringList;beginValues := TStringList.Create;tryGetValueList(Values);for I := 0 to Values.Count - 1 do Proc(Values[I]);finallyValues.Free;end;end;procedure TSourceFieldProperty.GetValueList(List: TStrings);varInstance: TComponent;PropInfo: PPropInfo;SourceTable : TTable;beginInstance := TComponent(GetComponent(0));PropInfo := TypInfo.GetPropInfo(Instance.ClassInfo,�' GetTablePropName);824 Część IVif (PropInfo nil) and (PropInfo^.PropType^.Kind =�' tkClass) then beginSourceTable := TObject(GetOrdProp(Instance,�' PropInfo)) as TTable;if (SourceTable nil) thenSourceTable.GetFieldNames(List);end;end;{& }RegisterPropertyEditor(TypeInfo(string), TZoomDialog,�' SourceField , TSourceFieldProperty);Własny edytor atrybutówDokładniejsza analiza programu z listingu 27.13 pozwoli prześledzić procestworzenia własnego edytora atrybutu.Proces ten rozpisać można na cztery etapy:1.Zdefiniowanie nowego, potomnego typu edytora atrybutu na podstawie jednegoz typów, zdefiniowanych w module DsgnIntf.2.Przygotowanie podprogramów zapewniających edycję i prezentację atrybutuw formie tekstu.Jeśli atrybut nie należy do typu łańcuchowego, to edytor musizapewnić odpowiednią konwersję.3.Udostępnienie informacji o określonych właściwościach edytora, tak aby modułObject Inspector był w stanie prawidłowo go obsługiwać.4.Zarejestrowanie edytora atrybutu przy użyciu proceduryRegisterPropertyEditor.W omawianym przykładzie edytor SourceFieldProperty jest potomkiem klasyTStringProperty, zdefiniowanej w module DsgnIntf.Jedyna różnica pomiędzyedycją atrybutu SourceField a dowolnego innego atrybutu łańcuchowego sprowadzasię do uwzględnienia rozwijanej listy dozwolonych nazw pól.Ponieważ bazowym typem atrybutu jest typ łańcuchowy, nie jest koniecznedefiniowanie specjalnych procedur konwersji danych przy odczycie i zapisiewartości atrybutu.Procedury odziedziczone z klasy StringProperty będądziałały bez żadnych modyfikacji.SourceFieldProperty przekazuje Object Inspectorowi informacje o swoichwybranych właściwościach za pośrednictwem funkcji GetAttributes,przesłaniającej odpowiednią funkcję klasy TStringProperty.Ciało funkcjiskłada się z jednego wiersza:Rozdział 27 Tworzenie własnych komponentów Delphi 825Result := [paValueList, paSortList, paMultiSelect];Object Inspector informowany jest o trzech specyficznych właściwościach nowegoedytora.Po pierwsze, wartości obsługiwanego atrybutu pochodzą z zamkniętejlisty.Po drugie, wartości a liście, zwracane przez funkcję GetValues, mają byćsortowane.Wiele osób (w tym także sam autor) uważa automatyczne sortowaniedozwolonych wartości za uciążliwe; mimo to w omawianym, przykładowymedytorze przyjęto zasadę obowiązującą w odniesieniu do wszystkichstandardowych atrybutów VCL - dozwolone wartości są automatycznie sortowanena liście.Ostatnia własność, paMultiSelect, umożliwia wyświetlanie/edycjęatrybutu również w sytuacji, gdy na formularzu wybranych jest jednocześnie kilkakomponentów.Niektórych atrybutów (np.Name) nie można modyfikowaćw odniesieniu do kilku komponentów jednocześnie.W końcowej fazie przygotowywania nowego edytora atrybutu, wywoływana jestprocedura RegisterPropertyEditor:RegisterPropertyEditor (TypeInfo(string), TZoomDlg,'SourceField', TSourceFieldProperty);W wywołaniu powyższej procedury należy podać cztery parametry:Typ danych, na których operuje edytor.Informacje o typie należy przekazywać,korzystając z wbudowanej funkcji TypeInfo.komponentu, z którym powiązany jest edytor.Jeśli w miejscu tego parametruTypwystępować będzie wartość nil, to edytora można będzie używać w odniesieniu dowszystkich komponentów, zawierających atrybut określonego typu.Nazwa atrybutu, na którym edytor będzie operował.Jest ona brana pod uwagętylko wówczas, gdy drugi parametr określa typ komponentu.Klasa edytora, która ma zostać zarejestrowana jako właściwa dla wskazanegotypu atrybutu.W omawianym przykładzie w wywołaniu RegisterPropertyEditorokreślono łańcuchowy typ atrybutu.Edytor będzie obsługiwał wyłącznie atrybutSourceField komponentu ZoomDlg.Inne specyficzne cechy komponentu ZoomDlg.Kluczowe znaczenie dla funkcjonowania komponentu ZoomDlg ma fragmentprogramu skojarzony ze zdarzeniem OnClick przycisku OK na formularzuZoomForm.Oto wspomniany fragment:procedure TfmZoom.bbOKClick(Sender: TObject);begin826 Część IVIf Caller is TDBEdit then beginWith Caller as TDBEdit do beginIf (not (DataSource.DataSet.State in [dsInsert,�' dsEdit])) thenDataSource.DataSet.Edit;DataSource.DataSet.FieldByName(DataField).�' AsString:=dsZoom.DataSet.FieldByName�' (SourceField).AsString;end;end else If Caller is TCustomEdit then beginWith Caller as TCustomEdit do beginClear;Text:=dsZoom.DataSet.FieldByName(SourceField).�' AsString;end;end else If Caller is TComboBox then beginWith Caller as TComboBox do beginClear;Text:=dsZoom.DataSet.FieldByName(SourceField).�' AsString;end;end else If Caller is TDBComboBox then beginWith Caller as TDBComboBox do beginIf (not (DataSource.DataSet.State in [dsInsert,�' dsEdit])) thenDataSource.DataSet.Edit;DataSource.DataSet.FieldByName(DataField).�' AsString:=dsZoom.DataSet.FieldByName�' (SourceField).AsString;end;end;ModalResult := mrOK;end;Szczególną uwagę zwrócić należy na intensywne wykorzystanie mechanizmuRTTI (ang.Runtime Type Information - uzyskiwanie informacji o typie danychpodczas wykonywania programu).Większość języków kompilowanych do kodumaszynowego nie oferuje mechanizmu RTTI.Delphi jest jednak nietypowymnarzędziem, wyposażonym w wiele możliwości, których brak w innych,podobnych produktach.W omawianym przykładzie mechanizm RTTIwykorzystano w module ZoomForm do określenia typu komponentu, któryspowodował przywołanie na ekran formularza.Znając typ kontrolki, ZoomDlgmoże prawidłowo wpisać nazwę pola.Należy ponadto zwrócić uwagę na konstrukcję With [ Pobierz całość w formacie PDF ]

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

bezglutenowo.pev.pl