Einzelnen Beitrag anzeigen

Andreas L.

Registriert seit: 23. Mai 2011
Ort: Furth im Wald
308 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Bildauswahl im Objektinspektor

  Alt 1. Jul 2011, 14:23
Hab' die Komponente jetzt mehrmals neu erzeugt und installiert. Es wird zwar ein DropDown-Feld angezeigt, aber es stehen keine Werte zur Auswahl. Ich kann lediglich einen Index tippen.

Glaube aber nicht das es reicht einfach TImageIndex zu verwenden, irgendwie muss die IDE ja auch wissen mit welcher ImageList sie die ImageIndex-Eigenschaft verbinden soll.

EDIT: Das hier ist ein Auszug aus TToolButton.
Delphi-Quellcode:
   property ImageIndex: TImageIndex read FImageIndex write SetImageIndex stored IsImageIndexStored default -1;

procedure TToolButton.SetImageIndex(Value: TImageIndex);
begin
  if FImageIndex <> Value then
  begin
    FImageIndex := Value;
    if FToolBar <> nil then
    begin
      RefreshControl;
      FToolBar.Perform(TB_CHANGEBITMAP, Index, Longint(Value));
      if FToolBar.Transparent or FToolBar.Flat then Invalidate;
      if not (csLoading in ComponentState) and (Style = tbsTextButton) then
        FToolBar.RecreateButtons;
    end;
  end;
end;

function TToolButton.IsImageIndexStored: Boolean;
begin
  Result := (ActionLink = nil) or not TToolButtonActionLink(ActionLink).IsImageIndexLinked;
end;
Andreas Lauß
Blog

Geändert von Andreas L. ( 1. Jul 2011 um 14:26 Uhr)
  Mit Zitat antworten Zitat