 |
| |
|
|
 |
Autor |
Nachricht |
 |
| |
| EWeiss |
#1| Verfasst am: 29.08.2008, 08:08 Titel: Problem mit Object Inspector |
 |
|
|
|
sehr aktives Mitglied
Alter: 50
Beiträge: 1.594
angemeldet: 23.08.2006
Wohnort: Köln
Delphi 2006 Architect
|
Sprache: Delphi (Win32)
Hallo
Habe ein problem beim addieren von meinen Controls.
Wenn ich ein Image oder label auf die Form lege wie komme ich dann an das aufgesetzte control ?
So sieht es bisher aus.
Wenn ich auf den Button für den Label oder das Image klicke springe ich in diese Funktion
| Delphi-Quellcode: | markieren | procedure TMainForm.PaletteStdButtonClick(Sender: TObject);
const
cClasses: array[0..2] of string = ( '', 'TImage', 'TLabel');
begin
StickyClass := (GetKeyState(VK_SHIFT) < 0);
DesignClass := cClasses[TControl(Sender).Tag];
end; |
|
Klicke ich nun auf das Designer Window dann hole ich mir die Class über
 Delphi-Quellcode: | zusammenfalten | markieren | 1
·
·
·
5
·
·
·
·
10
·
·
13
| procedure TMainForm.JvDesignPanelGetAddClass(Sender: TObject; var ioClass: String);
begin
ioClass := DesignClass;
if DesignClass <> '' then
AddControls(TControl(Sender), DesignClass);
if not StickyClass then
begin
DesignClass := '';
end;
end; |
|
Ist DesignClass mehr als nichts versuche ich das Control dem Object inspector hinzu zu fügen
| Delphi-Quellcode: | zusammenfalten | markieren | 1
·
·
·
5
·
·
·
·
10
·
·
·
·
15
·
·
·
·
20
·
·
23
| procedure TMainForm.AddControls(NewObject: TControl; DisplayName: string);
var
InspCat: TJvInspectorCustomCategoryItem;
begin
InspCat := TJvInspectorCustomCategoryItem.Create(JvInspector1.Root, nil);
InspCat.DisplayName := DisplayName;
InspCat.SortKind := iskNone;
AddCtrl(InspCat, NewObject);
InspCat.Expanded := True;
end;
procedure TMainForm.AddCtrl(const Parent: TJvCustomInspectorItem; const Ctrl: TControl);
var
InspCat: TJvInspectorCustomCategoryItem;
begin
InspCat := TJvInspectorCustomCategoryItem.Create(Parent, nil);
InspCat.DisplayName := Ctrl.Name + ': ' + Ctrl.ClassName;
TJvInspectorPropData.New(InspCat, Ctrl);
end; |
|
Das problem ist nun das er mir nicht die eigenschaften vom Image1 bzw.. Label1 addiert
sondern logischerweise(weil der Sender) das TJvDesignSurface ...
Habe im moment keine idee wo ich die beiden Controls zum TreeView bzw.. den Object Inspector hinzufügen soll.
Wäre schön wenn jemand helfen könnte.
Im Anhang ein Bild. (ala Widget von David)
gruss Emil |
| [ An diesen Beitrag wurden eine oder mehrere Dateien angehängt. Zum Herunterladen bitte anmelden. ] |
 Zuletzt bearbeitet von EWeiss am 29.08.2008, 08:41, insgesamt 1-mal bearbeitet. |
  |
|
|
|
| |
| littleDave |
#2|Verfasst am: 29.08.2008, 17:44 Titel: Re: Problem mit Object Inspector |
|
|
|
|
sehr aktives Mitglied
Alter: 23
Beiträge: 428
angemeldet: 27.04.2006
Wohnort: München
Delphi 7 Professional
|
Also in meinem Editor meiner  Desktop Widget Engine hab ich es so gelöst:
Zuerst hab ich mal eine Liste, in der alle Komponenten sind, die ich für die Widget-Engine zur Verfügung stelle. Das Grundgerüst sieht folgendermaßen aus:
| Delphi-Quellcode: | zusammenfalten | markieren | 1
·
·
·
5
·
·
·
·
10
·
·
·
·
15
·
·
·
·
20
·
·
·
·
25
·
·
·
·
30
·
·
·
·
35
·
·
·
39
| type
TwgComponentClass = class of TwgComponent; // meine Grundkomponente
PwgClassListEntry = ^TwgClassListEntry;
TwgClassListEntry = record
ClassName : string;
ClassType : TwgComponentClass;
InPalette : boolean;
PaletteEntry: string;
end;
TwgClassList = class(TObject)
private
FList : TList;
protected
function GetCount: integer;
function FindClassByName(Name: string): TwgComponentClass;
function FindClassByIndex(index: integer): TwgComponentClass;
function GetItem(index: integer): PwgClassListEntry;
function IndexOf(ClassName: string): integer;
function IndexOfClass(aClass: TwgComponentClass): integer;
procedure Clear;
public
constructor Create;
destructor Destroy; override;
procedure AddClass(ClassName: string; aClass: TwgComponentClass; InPalette: boolean; PaletteEntry: string);
function HasClass(ClassName: string): boolean;
function GetClassName(aClass: TwgComponentClass): string;
property Items[index: integer] : PwgClassListEntry read GetItem;
property GetClass[Name: string]: TwgComponentClass read FindClassByName; default;
property Count : integer read GetCount;
end;
var
// eine globale Variable, die im initialization-Teil der Unit erstellt wird
wgClassList: TwgClassList |
|
So, jetzt füge ich erst alle verfügbaren Klassen in die Liste hinzu. Beim Label schaut das z.B. so aus:
Im Editor gibt es dann eine einfache Methode, eine neue Klasse zu erstellen:
| Delphi-Quellcode: | zusammenfalten | markieren | 1
·
·
·
5
·
·
·
·
10
·
·
·
14
| function TWidgetEditor.DoAddClass(ClassName: string; var NewObject: TwgComponent): boolean;
var CompClass: TwgComponentClass;
begin
CompClass := wgClassList.GetClass[ClassName];
if CompClass = nil then
result := False
else
begin
NewObject := CompClass.Create;
result := True;
// Und nun die Klasse bei dir im JvInspector anzeigen
AddControls(result, 'Irgendwas');
end;
end; |
|
Ach noch was: Ich verwende nicht TControl als Basis, sondern eine eigene Basisklasse. Daher ist bei mir TwgComponent bei dir TControl
Hoffe das Hilft dir etwas. |
| Delphi-Quellcode: | markieren | | <!-- #1-->in case of 1 is 0 do external raise while in public class of object array else repeat until 1 is 0 |
|
|
| |
|
|
|
| |
| EWeiss |
#3|Verfasst am: 29.08.2008, 18:15 Titel: Re: Problem mit Object Inspector |
|
|
|
|
sehr aktives Mitglied
Alter: 50
Beiträge: 1.594
angemeldet: 23.08.2006
Wohnort: Köln
Delphi 2006 Architect
|
Danke für die Infos 
Mein problem ist das addieren zum TreeView sowie zum Object Inpector.
Meine damit das ich nicht an die Eigenschaften herankomme
Hast du diese vorher für deinen Label und Image selber festgelegt?
Steige noch nicht so richtig hinter die Materie.
Copy Paste bringt nichts
da ich im moment noch nicht erkennen kann wie die eigenschaften addiert werden
Aber helfen tut die Info auf jeden fall
gruss Emil |
Zuletzt bearbeitet von EWeiss am 29.08.2008, 18:27, insgesamt 1-mal bearbeitet. |
| |
|
|
|
| |
| littleDave |
#4|Verfasst am: 29.08.2008, 18:30 Titel: Re: Problem mit Object Inspector |
|
|
|
|
sehr aktives Mitglied
Alter: 23
Beiträge: 428
angemeldet: 27.04.2006
Wohnort: München
Delphi 7 Professional
|
Ist das Problem, dass du im Objekt-Inspektor nichts siehst oder dass die falsche Komponente hinzugefügt wird? Ich kapier gerade nicht, was jetzt genau das Problem ist.  |
| Delphi-Quellcode: | markieren | | <!-- #1-->in case of 1 is 0 do external raise while in public class of object array else repeat until 1 is 0 |
|
|
| |
|
|
|
| |
| EWeiss |
#5|Verfasst am: 29.08.2008, 18:43 Titel: Re: Problem mit Object Inspector |
|
|
|
|
sehr aktives Mitglied
Alter: 50
Beiträge: 1.594
angemeldet: 23.08.2006
Wohnort: Köln
Delphi 2006 Architect
|
| littleDave hat folgendes geschrieben: | | Ist das Problem, dass du im Objekt-Inspektor nichts siehst oder dass die falsche Komponente hinzugefügt wird? Ich kapier gerade nicht, was jetzt genau das Problem ist. |
Wenn du einen Label in das Designer Window einfügst
Addierst du doch in der Combo den ClassNamen wgLabel1: TwgLabel
anschließend im TreeView wgLabel1
und füllst dann den Inspector mit den eigenschaften von Label
aligment , Caption usw..
Das ist mein problem weis nicht wie ich an die Eigenschaften komme
bzw.. ob du sie vorher selber festgelegt hast.
EDIT:
Hast du ein ganz einfaches Sample ?
Wo ich sehen kann wie die technic funktioniert ?
bsp: Für einen label ?
gruss Emil |
Zuletzt bearbeitet von EWeiss am 29.08.2008, 18:46, insgesamt 2-mal bearbeitet. |
| |
|
|
|
| |
| littleDave |
#6|Verfasst am: 29.08.2008, 18:55 Titel: Re: Problem mit Object Inspector |
|
|
|
|
sehr aktives Mitglied
Alter: 23
Beiträge: 428
angemeldet: 27.04.2006
Wohnort: München
Delphi 7 Professional
|
Also der JvInspector ist schon etwas komplizierter, um ihn mal kurz zu erklären. Der kann sowohl mit RTTI und ohne RTTI benutzt werden. Hier mal ein einfaches Beispiel, um an ein Label in den Inspector zu bekommen (mit RTTI):
| Delphi-Quellcode: | zusammenfalten | markieren | 1
·
·
·
5
·
·
·
·
10
·
·
·
·
15
·
·
·
·
20
·
·
·
24
| type
TForm1 = class(TForm)
Label1: TLabel; // das Label
JvInspector1: TJvInspector; // der Inspektor
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
procedure ShowObject(aObj: TObject);
end;
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowObject(Label1);
end;
procedure TForm1.ShowObject(aObj: TObject);
begin
JvInspector1.Root.Clear;
TJvInspectorPropData.New(JvInspector1.Root, aObj);
end; |
|
|
| Delphi-Quellcode: | markieren | | <!-- #1-->in case of 1 is 0 do external raise while in public class of object array else repeat until 1 is 0 |
|
|
| |
|
|
|
| |
| EWeiss |
#7|Verfasst am: 29.08.2008, 19:03 Titel: Re: Problem mit Object Inspector |
|
|
|
|
sehr aktives Mitglied
Alter: 50
Beiträge: 1.594
angemeldet: 23.08.2006
Wohnort: Köln
Delphi 2006 Architect
|
Das heißt es gehen nur Variablen die in dem Object schon enthalten sind ?
Verstehe ich nicht..
Ich möchte ja eigentlich nur werte addieren die für mich von bedeutung sind
Sehe schon das dauert länger als erwartet muss mich da erst einarbeiten.
Danke.
gruss Emil |
|
| |
|
|
|
| |
| littleDave |
#8|Verfasst am: 29.08.2008, 19:27 Titel: Re: Problem mit Object Inspector |
|
|
|
|
sehr aktives Mitglied
Alter: 23
Beiträge: 428
angemeldet: 27.04.2006
Wohnort: München
Delphi 7 Professional
|
Der JvInspector arbeitet mit RTTI. Alle published-Properties von Objekten, die von TPersistent abgeleitet sind, haben RTTI aktiviert. Diese RTTI liest der JvInspector aus und stellt diese dann dar.
Sagen wir mal, du hast eine Klasse:
| Delphi-Quellcode: | zusammenfalten | markieren | 1
·
·
·
5
·
·
·
·
10
| type
TMyClass = class(TPersistent)
private
FBlub : string;
FHm : integer;
public
property Hm: integer read FHm write FHm;
published
property Blub: string read FBlub write FBlub;
end; |
|
Wenn du jetzt diese Klassen in JvInspector hineinlädst, wirst du nur die Eigenschaft "Blub" sehen, "Hm" siehst du nicht, da Hm nicht published ist und somit keine RTTI hat.
Aber du kannst die RTTI noch hinzufügen lassen, wenn du eine neue Klasse davon ableitest und die property "Hm" in den Published-Bereich "verschiebst"
Wenn du jetzt die neue Klassen in JvInspector hineinlädst, wirst du beide Eingenschaften sehen.
Wenn du jetzt von TLabel nur bestimmte Sachen in den Inspektor laden willst, hab ich auch noch schnell nen Quelltext für dich. Diesen musst du einfach in das obige Beispiel von mir hineinkopieren.
| Delphi-Quellcode: | zusammenfalten | markieren | 1
·
·
·
5
·
·
·
·
10
| uses
TypInfo;
procedure TForm1.ShowObject(aObj: TObject);
begin
JvInspector1.Root.Clear;
TJvInspectorPropData.New(JvInspector1.Root, aObj, GetPropInfo(aObj, 'Left'));
TJvInspectorPropData.New(JvInspector1.Root, aObj, GetPropInfo(aObj, 'Top'));
TJvInspectorPropData.New(JvInspector1.Root, aObj, GetPropInfo(aObj, 'Align'));
end; |
|
|
| Delphi-Quellcode: | markieren | | <!-- #1-->in case of 1 is 0 do external raise while in public class of object array else repeat until 1 is 0 |
|
Zuletzt bearbeitet von littleDave am 29.08.2008, 19:28, insgesamt 1-mal bearbeitet. |
| |
|
|
|
| |
| EWeiss |
#9|Verfasst am: 29.08.2008, 19:36 Titel: Re: Problem mit Object Inspector |
|
|
|
|
sehr aktives Mitglied
Alter: 50
Beiträge: 1.594
angemeldet: 23.08.2006
Wohnort: Köln
Delphi 2006 Architect
|
Ja das hilft mir schon mal enorm
Pack mir das mal in ne Form und Teste das ergebnis da versteht man schneller
und sieht vor allem was passiert.
gruss Emil |
|
| |
|
|
|
| |
| littleDave |
#10|Verfasst am: 29.08.2008, 20:49 Titel: Re: Problem mit Object Inspector |
|
|
|
|
sehr aktives Mitglied
Alter: 23
Beiträge: 428
angemeldet: 27.04.2006
Wohnort: München
Delphi 7 Professional
|
Hier mal meine letzten Beiträge zusammengefasst. |
| [ An diesen Beitrag wurden eine oder mehrere Dateien angehängt. Zum Herunterladen bitte anmelden. ] |
| Delphi-Quellcode: | markieren | | <!-- #1-->in case of 1 is 0 do external raise while in public class of object array else repeat until 1 is 0 |
|
|
| |
|
|
|
| |
| EWeiss |
#11|Verfasst am: 29.08.2008, 21:34 Titel: Re: Problem mit Object Inspector |
|
|
| | | |
Site-Map
Suchen
Code-Library
Registrieren
Login
