Clomosy | Forum : Syntax Hatası

Clomosy | Forum : Syntax Hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 18:13:20 +0000 Mon, 02 Sep 2024 17:30:53 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=923 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Syntax Hatası : Attığınız linkten tekrar exe indirip...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=923&PID=1781#1781 Yazar: NadireNurSaglam
Konu: 923
Gönderim Zamanı: 02 Eylül 2024 Saat 17:30

Attığınız linkten tekrar exe indirip çalıştırdım. Ama yine de aynı hatayı almaya devam ediyorum.]]> Mon, 02 Sep 2024 17:30:53 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=923&PID=1781#1781 <![CDATA[Syntax Hatası : Merhaba Nadirehttps://www.docs...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=923&PID=1780#1780 Yazar: Developer
Konu: 923
Gönderim Zamanı: 02 Eylül 2024 Saat 17:13

Merhaba Nadire

https://www.docs.clomosy.com/index.php/Main_Page adresin yeni exe indirip deneme imkanınız var mı? Ben herhangi bir hata alamadım.

]]> Mon, 02 Sep 2024 17:13:19 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=923&PID=1780#1780 <![CDATA[Syntax Hatası : var myForm:TclForm; Group_ID,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=923&PID=1779#1779 Yazar: NadireNurSaglam
Konu: 923
Gönderim Zamanı: 02 Eylül 2024 Saat 15:42

var

myForm:TclForm;

Group_ID,

Group_GUID,

OwnerGroup_GUID,

Group_Name,

Group_NameEx,

Group_Description,

Group_DescriptionEx,

Group_Image,

Group_ImageSmall:TclProLabel;

mainListView:TClListView;

mainLvw:TClProListView;

mainLvwDp:TClProListViewDesignerPanel;

NavPnl:TCLPanel;

addBtn,reloadBtn:TClProButton;

uDataEntry:TCLUnit;

mainTitleLyt:TClLayout;

mainTitleLbl:TclProLabel;

searchEdt:TclSearchEdit;

function GetIDFromGUID(AGuid:string):string;

var

clQuery :TclJSONQuery;

begin

Try

clQuery := Clomosy.DBCloudQueryWith(ftGroups,AGuid,'1=1');

Result :=clQuery.FieldByName('Group_ID').AsString;

//ShowMessage(clQuery.GetJSONString);

finally

clQuery.Free;

End;

procedure onItemClick;

begin

//Group_ID.Hint := mainLvw.clSelectedItemData(clRecord_GUID);

Group_ID.Hint := GetIDFromGUID(mainLvw.clSelectedItemData(clCaption));

Group_GUID.Hint := mainLvw.clSelectedItemData(clCaption);

OwnerGroup_GUID.Hint:= mainLvw.clSelectedItemData(clText);

Group_Name.Hint:= mainLvw.clSelectedItemData(clText1);

Group_NameEx.Hint:= mainLvw.clSelectedItemData(clText2);

Group_Description.Hint := mainLvw.clSelectedItemData(clText3);

Group_DescriptionEx.Hint := mainLvw.clSelectedItemData(cltext4);

Group_Image.Hint := mainLvw.clSelectedItemData(cltext5);

Group_ImageSmall.Hint := mainLvw.clSelectedItemData(cltext6);

uDataEntry := TCLUnit.Create;

uDataEntry.UnitName:='uDataEntry';

uDataEntry.CallerForm := MyForm;

uDataEntry.Run;

End;

Procedure OnloadListView;

var

clQuery :TclJSONQuery;

begin

Try

clQuery := Clomosy.DBCloudQueryWith(ftGroups,'','ISNULL(OwnerGroup_ID,-1)=-1');

ShowMessage(clQuery.GetJSONString);

mainLvw.clLoadProListViewDataFromDataset(clQuery);

finally

clQuery.Free;

End;

procedure addBtnOnClick;

begin

Group_ID.Hint := '';

Group_GUID.Hint := '';

OwnerGroup_GUID.Hint:= '';

Group_Name.Hint:= '';

Group_NameEx.Hint:= '';

Group_Description.Hint := '';

Group_DescriptionEx.Hint := '';

Group_Image.Hint := '';

Group_ImageSmall.Hint := '';

uDataEntry := TCLUnit.Create;

uDataEntry.UnitName:='uDataEntry';

uDataEntry.CallerForm := MyForm;

uDataEntry.Run;

end;

procedure ReloadBtnOnClick;

begin

OnloadListView;

end;

procedure SetLayout;

begin

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

mainTitleLyt.Align := alMostTop;

mainTitleLyt.Width := 100;

mainTitleLyt.Height := 50;

mainTitleLbl := MyForm.AddNewProLabel(mainTitleLyt,'mainTitleLbl','Diller');

/* clComponent.SetupComponent(mainTitleLbl,'{"Align" : "Center",

"Width" :350,

"Height":30,

"TextColor":"#000000",

"TextSize":25,

"TextVerticalAlign":"center",

"TextHorizontalAlign":"center",

"TextBold":"yes"}');*/

mainTitleLbl.Align:= alCenter;

mainTitleLbl.Width:= 350;

mainTitleLbl.Height:= 30;

mainTitleLbl.clProSettings.FontColor:= clAlphaColor.clHextoColor('#000000');

mainTitleLbl.clProSettings.FontSize:=25;

mainTitleLbl.clProSettings.FontVertAlign:=palCenter;

mainTitleLbl.clProSettings.FontHorzAlign :=palCenter;

mainTitleLbl.clProSettings.TextSettings.Font.Style:=[fsBold];

mainTitleLbl.SetclProSettings(mainTitleLbl.clProSettings);

mainLvw := MyForm.AddNewProListView(MyForm,'mainLvw');

mainLvw.Properties.ItemSpace := 10;

// clComponent.SetupComponent(mainLvw,'{"Align":"Client","ItemColumnCount" : 1,"ItemHeight" : 120,"MarginLeft":15,"MarginRight":15}');

mainLvw.Align:=alClient;

mainLvw.clProSettings.ColCount:=1; //çalıma durumu kontrol edilecek

mainLvw.clProSettings.ItemHeight:= 120;

mainLvw.Margins.Left:=15;

mainLvw.Margins.Right:=15;

mainLvw.SetclProSettings(mainLvw.clProSettings);

mainLvw.ListType := 'vertical';

MyForm.AddNewEvent(mainLvw,tbeOnItemClick,'onItemClick');

mainLvwDp := MyForm.AddNewProListViewDesignerPanel(mainLvw,'mainLvwDp');

// clComponent.SetupComponent(mainLvwDp,'{"Height":120,"BackgroundColor":"#ffffff","Align":"Top"}');

mainLvwDp.Height:=120;

mainLvwDp.clProSettings.BackgroundColor := clAlphaColor.clHextoColor('#ffffff');

mainLvwDp.Align:=alTop;

mainLvwDp.SetclProSettings(mainLvwDp.clProSettings);

mainLvwDp.Visible:=False;

searchEdt:=MyForm.AddNewproSearchEdit(MyForm,'searchEdt','Search Something...');

searchEdt.Align:=alTop;

searchEdt.Margins.Top:=15;

searchEdt.Margins.left:=15;

searchEdt.Margins.Right:=15;

searchEdt.Margins.Bottom:=10;

searchEdt.Height:=40;

searchEdt.TargetListView := mainLvw;

searchEdt.BindItemFieldName := 'Group_Name';

Group_GUID := MyForm.AddNewProLabel(mainLvwDp,'Group_GUID','Group GUID');

// clComponent.SetupComponent(Group_GUID,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"horizontal"}');

Group_GUID.Align:= alTop;

Group_GUID.Margins.Bottom:=1;

Group_GUID.Margins.left:= 5;

Group_GUID.clProSettings.TextSettings.Font.Style:=[fsBold];

Group_GUID.clProSettings.FontSize:= 16;

Group_GUID.clProSettings.FontVertAlign:= palLeading;

Group_GUID.clProSettings.FontHorzAlign:= palLeading;

Group_GUID.SetclProSettings(Group_GUID.clProSettings);

//"AutoSize":"Horizontal" kısmı yok

mainLvwDp.AddPanelObject(Group_GUID,clCaption);

OwnerGroup_GUID := MyForm.AddNewProLabel(mainLvwDp,'OwnerGroup_GUID','Owner Group GUID');

// clComponent.SetupComponent(OwnerGroup_GUID,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"Right","TextVerticalAlign":"left","AutoSize":"horizontal"}');

OwnerGroup_GUID.Align:= alTop;

OwnerGroup_GUID.Margins.Bottom:=1;

OwnerGroup_GUID.Margins.left:=5;

OwnerGroup_GUID.clProSettings.TextSettings.Font.Style:= [fsBold];

OwnerGroup_GUID.clProSettings.FontSize:=16;

OwnerGroup_GUID.clProSettings.FontHorzAlign:=palTrailing;

OwnerGroup_GUID.clProSettings.FontVertAlign:=palLeading;

//"AutoSize":"Horizontal" kısmı yok

OwnerGroup_GUID.SetclProSettings(OwnerGroup_GUID.clProSettings);

mainLvwDp.AddPanelObject(OwnerGroup_GUID,clText);

Group_Name := MyForm.AddNewProLabel(mainLvwDp,'Group_Name','Group Name');

// clComponent.SetupComponent(Group_Name,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"horizontal"}');

Group_Name.Align:= alTop;

Group_Name.Margins.Bottom := 1;

Group_Name.Margins.left:=5;

Group_Name.clProSettings.TextSettings.Font.Style:= [fsBold];

Group_Name.clProSettings.FontSize:= 16;

Group_Name.clProSettings.FontHorzAlign:=palLeading;

Group_Name.clProSettings.FontVertAlign:=palLeading;

Group_Name.SetclProSettings(Group_Name.clProSettings);

//"AutoSize":"Horizontal" kısmı yok

mainLvwDp.AddPanelObject(Group_Name,clText1);

Group_NameEx := MyForm.AddNewProLabel(mainLvwDp,'Group_NameEx','Group NameEx');

// clComponent.SetupComponent(Group_NameEx,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"horizontal"}');

Group_NameEx.Align:= alTop;

Group_NameEx.Margins.Bottom := 1;

Group_NameEx.Margins.left:=5;

Group_NameEx.clProSettings.TextSettings.Font.Style:= [fsBold];

Group_NameEx.clProSettings.FontSize:= 16;

Group_NameEx.clProSettings.FontHorzAlign:=palLeading;

Group_NameEx.clProSettings.FontVertAlign:=palLeading;

Group_NameEx.SetclProSettings(Group_NameEx.clProSettings);

//"AutoSize":"Horizontal" kısmı yok

mainLvwDp.AddPanelObject(Group_NameEx,clText2);

Group_Description := MyForm.AddNewProLabel(mainLvwDp,'Group_Description','');

// clComponent.SetupComponent(Group_Description,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"vertical"}');

Group_Description.Align:= alTop;

Group_Description.Margins.Bottom := 1;

Group_Description.Margins.left:=5;

Group_Description.clProSettings.TextSettings.Font.Style:= [fsBold];

Group_Description.clProSettings.FontSize:= 16;

Group_Description.clProSettings.FontHorzAlign:=palLeading;

Group_Description.clProSettings.FontVertAlign:=palLeading;

Group_Description.SetclProSettings(Group_Description.clProSettings);

//"AutoSize":"Vertical" kısmı yok

Group_Description.Visible := False;

mainLvwDp.AddPanelObject(Group_Description,clText3);

Group_DescriptionEx := MyForm.AddNewProLabel(mainLvwDp,'Group_DescriptionEx','');

// clComponent.SetupComponent(Group_DescriptionEx,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"vertical"}');

Group_DescriptionEx.Align:= alTop;

Group_DescriptionEx.Margins.Bottom := 1;

Group_DescriptionEx.Margins.left:=5;

Group_DescriptionEx.clProSettings.TextSettings.Font.Style:= [fsBold];

Group_DescriptionEx.clProSettings.FontSize:= 16;

Group_DescriptionEx.clProSettings.FontHorzAlign:=palLeading;

Group_DescriptionEx.clProSettings.FontVertAlign:=palLeading;

Group_DescriptionEx.SetclProSettings(Group_DescriptionEx.clProSettings);

//"AutoSize":"Vertical" kısmı yok

Group_DescriptionEx.Visible := False;

mainLvwDp.AddPanelObject(Group_DescriptionEx,clText4);

Group_Image := MyForm.AddNewProLabel(mainLvwDp,'Group_Image','');

// clComponent.SetupComponent(Group_Image,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"vertical"}');

Group_Image.Align:= alTop;

Group_Image.Margins.Bottom := 1;

Group_Image.Margins.left:=5;

Group_Image.clProSettings.TextSettings.Font.Style:= [fsBold];

Group_Image.clProSettings.FontSize:= 16;

Group_Image.clProSettings.FontHorzAlign:=palLeading;

Group_Image.clProSettings.FontVertAlign:=palLeading;

Group_Image.SetclProSettings(Group_Image.clProSettings);

//"AutoSize":"Vertical" kısmı yok

Group_Image.Visible := False;

mainLvwDp.AddPanelObject(Group_Image,clText5);

Group_ImageSmall := MyForm.AddNewProLabel(mainLvwDp,'Group_ImageSmall','');

// clComponent.SetupComponent(Group_ImageSmall,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"vertical"}');

Group_ImageSmall.Align:= alTop;

Group_ImageSmall.Margins.Bottom := 1;

Group_ImageSmall.Margins.left:=5;

Group_ImageSmall.clProSettings.TextSettings.Font.Style:= [fsBold];

Group_ImageSmall.clProSettings.FontSize:= 16;

Group_ImageSmall.clProSettings.FontHorzAlign:=palLeading;

Group_ImageSmall.clProSettings.FontVertAlign:=palLeading;

Group_ImageSmall.SetclProSettings(Group_ImageSmall.clProSettings);

//"AutoSize":"Vertical" kısmı yok

Group_ImageSmall.Visible := False;

mainLvwDp.AddPanelObject(Group_ImageSmall,clText6);

NavPnl:=myForm.AddNewPanel(myForm,'NavPnl');

NavPnl.Align:=alMostBottom;

NavPnl.Height := 100;

NavPnl.StyleLookup:='pushpanel';

Group_ID := MyForm.AddNewProLabel(NavPnl,'Group_ID','');

// clComponent.SetupComponent(Group_ID,'{"Align":"Top","MarginBottom":1,"MarginLeft":5,"TextBold":"yes","TextSize":16,"TextHorizontalAlign":"left","TextVerticalAlign":"left","AutoSize":"vertical"}');

Group_ID.Align:= alTop;

Group_ID.Margins.Bottom := 1;

Group_ID.Margins.left:=5;

Group_ID.clProSettings.TextSettings.Font.Style:= [fsBold];

Group_ID.clProSettings.FontSize:= 16;

Group_ID.clProSettings.FontHorzAlign:=palLeading;

Group_ID.clProSettings.FontVertAlign:=palLeading;

Group_ID.SetclProSettings(Group_ID.clProSettings);

//"AutoSize":"Vertical" kısmı yok

Group_ID.Visible := False;

addBtn := MyForm.AddNewProButton(NavPnl,'addBtn','');

// clComponent.SetupComponent(addBtn,'{"Align" : "MostRight","MarginRight":20,"MarginLeft":10,"Width" :70, "Height":70}');

addBtn.Align:=alMostRight;

addBtn.margins.Right:=20;

addBtn.margins.left:=10;

addBtn.Width:= 70;

addBtn.Height:= 70;

MyForm.SetImage(addBtn,'https://clomosy.com/learn/add_black.png');

MyForm.AddNewEvent(addBtn,tbeOnClick,'addBtnOnClick');

reloadBtn := MyForm.AddNewProButton(NavPnl,'reloadBtn','');

// clComponent.SetupComponent(reloadBtn,'{"Align" : "Right","MarginLeft":10,"Width" :100, "Height":100}');

reloadBtn.Align:=alRight;

reloadBtn.margins.left:=10;

reloadBtn.Width:= 100;

reloadBtn.Height:= 100;

MyForm.SetImage(reloadBtn,'https://clomosy.com/educa/refresh.png');

MyForm.AddNewEvent(reloadBtn,tbeOnClick,'OnloadListView');

end;

begin

myForm := TclForm.Create(Self);

SetLayout;

OnloadListView;

myForm.Run;

end;

]]> Mon, 02 Sep 2024 15:42:56 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=923&PID=1779#1779 <![CDATA[Syntax Hatası : Merhaba NadireBütün kodunu paylaşır...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=923&PID=1778#1778 Yazar: Developer
Konu: 923
Gönderim Zamanı: 02 Eylül 2024 Saat 15:27

Merhaba Nadire

Bütün kodunu paylaşır mısın?

]]> Mon, 02 Sep 2024 15:27:46 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=923&PID=1778#1778 <![CDATA[Syntax Hatası : clQuery := Clomosy.DBCloudQuer...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=923&PID=1777#1777 Yazar: NadireNurSaglam
Konu: 923
Gönderim Zamanı: 02 Eylül 2024 Saat 14:32

clQuery := Clomosy.DBCloudQueryWith(ftGroups,'','ISNULL(OwnerGroup_ID,-1)=-1');

ShowMessage(clQuery.GetJSONString);

mainLvw.clLoadProListViewDataFromDataset(clQuery);

mainLvw.clLoadProListViewDataFromDataset(clQuery); Bu satırda aşağıdaki hatayı alıyorum:

--------------------------------------------------------------------
TclForm
Syntax error.
Source position: 67,5
Clomosy Build : 20240709.111531
--------------------------------------------------------------------
LastUnitName:uBasicForm

]]> Mon, 02 Sep 2024 14:32:39 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=923&PID=1777#1777