Delphi "Property Editor" benzeri oluşturmak.

[mrmarman]

Merhaba...

Bugünlerde tembelliğim üzerimde. Bir adet "3D Panorama" grafik editörü hazırlıyorum da, bu programda kullanıcının tüm ayarlara hükmedebilmesi için IDE mantığı güdücem. Etüd projemi TPageController ile bitirdim artık görsel dönüşüme geçme vaktim geliyor.

Delphi'nin "Object Inspector" penceresindeki "Property Editor" benzeri bir yapılanmayı kurmak isterim. Şimdi bunu @mrmarman olarak ListView ile neden yapmıyorsun diyeceksiniz ama belki bunun kolay yeni delphi sürümlerinde henüz görmediğim bir yolu vardır diye önce bir sizlere sorayım istedim.

VCL önerecekseniz freeware opensource olan bir tane önerebilirsiniz. Aksi halde eski tas eski hamam ListView Report tipinde, OnClik olaylarında hücre üzerine checkbox, edit, combobox ilüzyonu vs. için kolları sıvamak kalıyor.



Teşekkürler.

[Ertugrul]

VCL ile gelen bir property editor componenti vardı fakat değer tipi teditten başka componente değiştirilemiyor sanıyorum.

Şu sayfayı inceleyin, özellikle aşağıdaki kodlar ilginizi çekecektir:

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
var
  Count, Loop: Integer;
  List: PPropList;
begin
  Count := GetPropList(TypeInfo(TForm1), tkAny, nil);
  GetMem(List, Count * SizeOf(PPropInfo));
  try
    GetPropList(TypeInfo(TForm1), tkAny, List);
    Listbox1.Items.BeginUpdate;
    for Loop := 0 to Pred(Count) do
      Listbox1.Items.Add(List^[Loop]^.Name);
    Listbox1.Items.EndUpdate;
  finally
    FreeMem(List, Count * SizeOf(PPropInfo))
  end;
end;

[mrmarman]

Sorumu yanlış ifade ettim sanırım. Belki de verdiğim resimli örnek bunu böyle sağladı bilemiyorum. Benim yapmak istediğim pencerenin bir benzerini kendi özel paramaetrelerim için kullanmak üzere oluşturmaktı. Verdiğiniz örnek ile Delphi'nin property'lerini çağırıyor.



Ben aslında kendi hazırladığım programımda proje oluşturan kullanıcının, bu açtığı projedeki değerleri değiştirirken kullanacak. Ben TreeView ile başladım ama çok dallı budaklı olması yerine aşağıya listeler açılır halde olmasını tercih ediyorum. Onun için Delphi'deki örneği vermiştim.

[Ertugrul]

Yanlış anlamışım kusura bakmayın. Delphi ile gelen TValueListEditor işinizi görecektir. Aşağıdaki kod ile bir alan için combobox türünden değer girdirebilirsiniz:

Kod: Tümünü seç

 ItemProp := TItemProp.Create(valuselisteditor);
 ItemProp.EditStyle := esPickList;
 ItemProp.ReadOnly := false; // choose editable or not.
 valuselisteditor.ItemProps['Value'] := ItemProp;

[Lost Soul]

bi de collapse expand olsaydı

[mrmarman]

Vakit ayırıp cevap yazdığınız için müteşekkirim. TValueListEditor içeriğine alt başlık açamadığımdan sıradan bir TStringGrid'den farklı olamıyor. Bu da TreeView'i şimdilik en cazip çözüm kılıyor. Biraz daha araştırıcam sonra da TListView veya TStringList'i manüpile ederek bir çözüm üretmeye çalışıcam. Aklınıza başka bir çözüm gelirse paylaşın lütfen.

[emin_as]

http://www.delphi-gems.com/index.php?op ... &Itemid=38
Virtual treeview işini görebilir, ücretsiz açık kaynak kodlu bir component.

[mrmarman]

ismindeki "TreeView" ifadesi geçtiğinden dolayı gözardı etmiştim. Önerini dikkate alıcam ve inceliycem. Teşekkürler.