Clomosy | Forum : TclProListView içinde panel kullanımı

var

MyForm: TclForm;

AddBtn,BackBtn,RefreshButton: TClProButton;

MainLyt,BtnLyt,TopBtnLyt,ListLyt,BodyLyt : TClLayout;

MainPanelHeight,MainPanelWidth: Integer;

MainPnl,SearchPanel:TclProPanel;

TitleLabel,MAIN_TEXT,SIDE_TEXT_TOP,SUB_TEXT,FOOTER_TEXT : TClProLabel;

InterviewListview : TClListView;

testListview : TClProListView;

ProImage : TClProImage;

testDesignerPanel : TClProListViewDesignerPanel;

proSearchEdt1 : TClProSearchEdit;

procedure AddDataToListview2;

Var

ListQuery : TClSqlQuery;

begin

ListQuery := TClSqlQuery.Create(nil);

try

ListQuery.Connection := Clomosy.DBSQLServerConnection;

ListQuery.SQL.Text := 'Exec GetGorusmeler';

ListQuery.Open;

if ListQuery.Found then

begin

testListview.clLoadProListViewDataFromDataset(ListQuery);

end;

finally

ListQuery.Free;

end;

procedure UpdateRecord;

begin

Clomosy.GlobalVariableInteger := StrToInt(testListview.clSelectedItemData(clRecord_GUID));

Clomosy.runUnit('uUpdatePage');

end;

procedure AddPageRoute;

begin

Clomosy.runUnit('uAddPage');

end;

procedure closeButtonClick;

begin

clDoClick(TclButton(MyForm.clFindComponent('BtnGoBack')));

end;

procedure MainPanelSet;

begin

MainLyt := MyForm.AddNewLayout(MyForm,'MainLyt');

MainLyt.Align:=alContents;

MainPanelHeight :=(MainLyt.Height)*0.96;

MainPanelWidth := (MainLyt.Height)*0.96 ;

MainPnl := MyForm.AddNewProPanel(MainLyt, 'MainPnl');

clComponent.SetupComponent(MainPnl,'{"Align" : "Client",

"Height":'+IntToStr(mainPanelHeight)+',

"BackgroundColor":"#ffffff",

"BorderColor":"null",

"MarginTop" : 8,

"MarginBottom":32,

"MarginRight":10,

"MarginLeft":10,

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":1}');

end;

procedure ButtonSet;

begin

TopBtnLyt := MyForm.AddNewLayout(MainPnl,'TopBtnLyt');

TopBtnLyt.Align := alMostTop;

TopBtnLyt.Height := 56;

BackBtn := MyForm.AddNewProButton(TopBtnLyt,'BackBtn','ÇIKIŞ');

clComponent.SetupComponent(BackBtn,'{"Align" : "Left"

,"TextSize":16

,"TextBold":"yes"

,"BackgroundColor":"#e00000"

,"RoundWidht":8

,"RoundHeight":8

,"TextColor":"#ffffff"

,"MarginTop":16

,"Width" :80

,"MarginLeft":12

}');

MyForm.AddNewEvent(BackBtn,tbeOnClick,'closeButtonClick');

BtnLyt := MyForm.AddNewLayout(MainPnl,'BtnLyt');

BtnLyt.Align := alMostBottom;

BtnLyt.Height := 56;

BtnLyt.Margins.Top := 12;

AddBtn := MyForm.AddNewProButton(BtnLyt,'AddBtn','EKLE');

clComponent.SetupComponent(AddBtn,'{"Align" : "Right"

,"TextSize":16

,"TextBold":"yes"

,"BackgroundColor":"#002aff"

,"RoundWidht":8

,"RoundHeight":8

,"TextColor":"#ffffff"

,"MarginBottom":16

,"Width" :80

,"MarginRight":22

}');

MyForm.AddNewEvent(AddBtn,tbeOnClick,'AddPageRoute');

RefreshButton := MyForm.AddNewProButton(BtnLyt,'RefreshButton','YENİLE');

clComponent.SetupComponent(RefreshButton,'{"Align" : "Right"

,"TextSize":16

,"TextBold":"yes"

,"BackgroundColor":"#00b282"

,"RoundWidht":8

,"RoundHeight":8

,"TextColor":"#ffffff"

,"MarginBottom":16

,"Width" :80

,"MarginRight":22

}');

MyForm.AddNewEvent(RefreshButton,tbeOnClick,'AddDataToListview2');

end;

procedure CreateDesignerPanel;

begin

testDesignerPanel := MyForm.AddNewProListViewDesignerPanel(testListview,'testDesignerPanel');

clComponent.SetupComponent(testDesignerPanel,'{"Height":100,"Width" : 150,"BackgroundColor":"#ffffff","BorderColor":"#787878","BorderWidth":1,"RoundHeight":6,"RoundWidth":6}');

testListview.SetDesignerPanel(testDesignerPanel);

MyForm.AddNewEvent(testListview,tbeOnItemClick,'UpdateRecord');

end;

procedure CreateListView;

begin

ListLyt := MyForm.AddNewLayout(MainPnl,'ListLyt');

ListLyt.Align := alClient ;

testListview := MyForm.AddNewProListView(ListLyt,'testListview');

testListview.Properties.ItemSpace := 8;

clComponent.SetupComponent(testListview,'{"Height" : 100,"Align":"Client", "ListType":"Cart","ItemColumnCount" : 1,"ItemHeight" : 120,"ItemWidth":360,

"BorderColor":"#ffffff", "BorderWidth":2,"RoundWidth":5, "RoundHeight":5}');

testListview.ListType := 'vertical';

proSearchEdt1.TargetListView := testListview;

end;

procedure CreateProductNameAndPrice;

var

image_lyt,main_lyt,card_lyt : TClLayout;

begin

main_lyt := MyForm.AddNewLayout(testDesignerPanel,'main_lyt');

main_lyt.Align := alCenter;

MAIN_TEXT := MyForm.AddNewProLabel(main_lyt,'MAIN_TEXT','Hello World');

clComponent.SetupComponent(MAIN_TEXT,'{"Align" : "Top","TextSize":14,"TextBold":"yes","MarginTop":6,"MarginLeft":6}');

testDesignerPanel.AddPanelObject(MAIN_TEXT,clText);

FOOTER_TEXT := MyForm.AddNewProLabel(main_lyt,'FOOTER_TEXT','Hello World');

clComponent.SetupComponent(FOOTER_TEXT,'{"Align" : "Bottom","TextSize":14,"TextBold":"no","MarginTop":6,"MarginLeft":6}');

testDesignerPanel.AddPanelObject(FOOTER_TEXT,clText2);

SIDE_TEXT_TOP := MyForm.AddNewProLabel(main_lyt,'SIDE_TEXT_TOP','Hello World');

clComponent.SetupComponent(SIDE_TEXT_TOP,'{"Align" : "Bottom","TextSize":14,"TextBold":"no","MarginTop":6,"MarginLeft":6}');

testDesignerPanel.AddPanelObject(SIDE_TEXT_TOP,clText3);

SUB_TEXT := MyForm.AddNewProLabel(main_lyt,'SUB_TEXT','Hello World');

clComponent.SetupComponent(SUB_TEXT,'{"Align" : "Bottom","TextSize":14,"TextBold":"no","MarginTop":6,"MarginLeft":6}');

testDesignerPanel.AddPanelObject(SUB_TEXT,clText1);

ProImage := MyForm.AddNewProImage(main_lyt,'ProImage');

clComponent.SetupComponent(ProImage,'{"Align" : "None","ImgUrl":"https://clomosy.com/illustration/normalman.png","Width":260,"Height":100, "ImgFit":"yes"}');

testDesignerPanel.AddPanelObject(ProImage,clImage1);

end;

begin

MyForm := TclForm.Create(Self);

MyForm := TclForm.Create(nil);

TclButton(MyForm.clFindComponent('BtnFormMenu')).Visible := False;

TclButton(MyForm.clFindComponent('BtnGoBack')).Visible := False;

MainPanelSet;

ButtonSet;

BodyLyt := MyForm.AddNewLayout(MainPnl,'BodyLyt');

BodyLyt.Align := alMostTop;

BodyLyt.Height := 60;

BodyLyt.Margins.Left := 8;

BodyLyt.Margins.Right := 8;

BodyLyt.Margins.Top := 16;

BodyLyt.Margins.Bottom := 16;

SearchPanel := MyForm.AddNewProPanel(BodyLyt, 'SearchPanel');

clComponent.SetupComponent(SearchPanel,'{"Align" : "Client",

"Height":50,

"BackgroundColor":"#1100ff",

"BorderColor":"null",

"RoundHeight":10,

"RoundWidth":10,

"BorderWidth":0}');

proSearchEdt1 := MyForm.AddNewProSearchEdit(SearchPanel,'proSearchEdt1','Search...');

proSearchEdt1.Align := alClient;

proSearchEdt1.Margins.Top := 6;

proSearchEdt1.Margins.Bottom := 6;

proSearchEdt1.Margins.Left := 6;

proSearchEdt1.Margins.Right := 6;

CreateListView;

CreateDesignerPanel;

CreateProductNameAndPrice;

AddDataToListview2;

MyForm.Run;

end;