Clomosy ile değişken kullanımı - Kodda Fİlm özellikleri göstermeme HATASI!

Sayfayı Yazdır | Pencereyi Kapat

Kodda Fİlm özellikleri göstermeme HATASI!

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Clomosy ile değişken kullanımı
Forum Tanımlaması: TRObject dili ile değişken tanımlaması ve ekranda gösterme
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1581
Tarih: 02 Temmuz 2026 Saat 13:18
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Kodda Fİlm özellikleri göstermeme HATASI!

Mesajı Yazan: Hüseyin_Sadik
Konu: Kodda Fİlm özellikleri göstermeme HATASI!
Mesaj Tarihi: 02 Temmuz 2026 Saat 09:47

var

MainForm : TclForm;

BgPanel, TopPanel, CardPanel, FilterPanel, FavoritesPanel, Top10Panel : TclProPanel;

ContentPanel, ActionButtonPanel : TclProPanel;

BtnStart, BtnNext, BtnFav, BtnFavorites, BtnTop10 : TClProButton;

BtnUS, BtnKR, BtnTR : TClProButton;

BtnAction, BtnComedy, BtnDrama, BtnHorror : TClProButton;

MovieImage : TclProImage;

LblTitle, LblInfo, LblOverview : TClProLabel;

IntroPanel : TclProPanel;

IntroTitleLabel, IntroSubLabel : TClProLabel;

Rest : TclRest;

SelectedCountry, SelectedGenre, CurrentMovieID : String;

FavoriteList : TclStringList;

movieTitle, overview, posterPath, vote, releaseDate, posterUrl : String;

randomIndex, randomPage : Integer;

URL, API_KEY, BASE_URL : String;

// ================= API =================

void ApiCompleted;

{

randomIndex = Random(20);

CurrentMovieID = Clomosy.CLParseJSON(Rest.Response,'results.'+IntToStr(randomIndex)+'.id');

movieTitle = Clomosy.CLParseJSON(Rest.Response,'results.'+IntToStr(randomIndex)+'.title');

overview = Clomosy.CLParseJSON(Rest.Response,'results.'+IntToStr(randomIndex)+'.overview');

posterPath = Clomosy.CLParseJSON(Rest.Response,'results.'+IntToStr(randomIndex)+'.poster_path');

vote = Clomosy.CLParseJSON(Rest.Response,'results.'+IntToStr(randomIndex)+'.vote_average');

releaseDate = Clomosy.CLParseJSON(Rest.Response,'results.'+IntToStr(randomIndex)+'.release_date');

if releaseDate <> ''

releaseDate = Copy(releaseDate,1,4);

LblTitle.Text = movieTitle;

LblInfo.Text = '⭐ ' + vote + ' | 📅 ' + releaseDate;

LblOverview.Text = overview;

if posterPath <> ''

{

posterUrl = ' https://image.tmdb.org/t/p/w500" rel="nofollow - https://image.tmdb.org/t/p/w500 '+posterPath;

MovieImage.clProSettings.PictureSource = posterUrl;

MovieImage.SetclProSettings(MovieImage.clProSettings);

}

Rest.Free;

Rest = Nil;

}

void GetMovie;

{

randomPage = Random(10)+1;

URL = BASE_URL + '/discover/movie?api_key='+API_KEY+'&language=tr-TR&sort_by=popularity.desc&page='+IntToStr(randomPage);

if SelectedGenre <> ''

URL = URL + '&with_genres=' + SelectedGenre;

if SelectedCountry <> ''

URL = URL + '&with_origin_country=' + SelectedCountry;

Rest = TclRest.Create;

Rest.Accept = 'application/json';

Rest.Method = rmGET;

Rest.BaseURL = URL;

Rest.OnCompleted = 'ApiCompleted';

Rest.ExecuteAsync;

}

// ================= FILTER FUNCTIONS =================

void SelectTR; { SelectedCountry = ''; SelectedGenre = ''; GetMovie; }

void SelectUS; { SelectedCountry = 'US'; GetMovie; }

void SelectAction; { SelectedGenre = '28'; GetMovie; }

void SelectComedy; { SelectedGenre = '35'; GetMovie; }

void SelectDrama; { SelectedGenre = '18'; GetMovie; }

// ================= FAVORITES =================

void AddFavorite;

var i : Integer;

var Exists : Boolean;

var Item : String;

{

Exists = False;

for (i = 0 to FavoriteList.Count - 1)

{

Item = Clomosy.StringListItemString(FavoriteList,i);

if Pos(CurrentMovieID+'|', Item) == 1

Exists = True;

}

if Exists == False

{

FavoriteList.Add(CurrentMovieID + '|' + posterPath + '|' + movieTitle);

ShowMessage('İzleme listene eklendi! 🍿');

}

else

ShowMessage('Bu film zaten listende var.');

}

void ShowFavorites;

var i : Integer;

var Item, Poster : String;

var Img : TclProImage;

var SplitList : TclStringList;

{

FavoritesPanel.Visible = True;

CardPanel.Visible = False;

FilterPanel.Visible = False;

ActionButtonPanel.Visible = False;

Top10Panel.Visible = False;

FavoritesPanel.DeleteChildren;

for (i = 0 to FavoriteList.Count - 1)

{

Item = Clomosy.StringListItemString(FavoriteList,i);

SplitList = Clomosy.StringListNew;

SplitList.StrictDelimiter = True;

SplitList.Delimiter = '|';

SplitList.DelimitedText = Item;

Poster = Clomosy.StringListItemString(SplitList,1);

Img = MainForm.AddNewProImage(FavoritesPanel,'FavImg'+IntToStr(i));

Img.Align = alTop;

Img.Height = 240;

Img.Margins.Top = 15;

Img.Margins.Left = 30;

Img.Margins.Right = 30;

Img.clProSettings.RoundHeight = 16;

Img.clProSettings.RoundWidth = 16;

Img.clProSettings.PictureAutoFit = True;

Img.clProSettings.PictureSource = ' https://image.tmdb.org/t/p/w500" rel="nofollow - https://image.tmdb.org/t/p/w500 '+Poster;

Img.SetclProSettings(Img.clProSettings);

SplitList.Free;

}

void ToggleFavorites;

{

if FavoritesPanel.Visible == True

{

FavoritesPanel.Visible = False;

CardPanel.Visible = True;

FilterPanel.Visible = True;

ActionButtonPanel.Visible = True;

}

else

ShowFavorites;

}

// ================= TOP 10 =================

void ToggleTop10;

var i : Integer;

var poster, title : String;

var FilmPanel : TclProPanel;

var Img : TclProImage;

var Lbl : TclProLabel;

{

if Top10Panel.Visible == True

{

Top10Panel.Visible = False;

CardPanel.Visible = True;

FilterPanel.Visible = True;

ActionButtonPanel.Visible = True;

}

else

{

Top10Panel.Visible = True;

CardPanel.Visible = False;

FilterPanel.Visible = False;

ActionButtonPanel.Visible = False;

FavoritesPanel.Visible = False;

Top10Panel.DeleteChildren;

Rest = TclRest.Create;

Rest.Accept = 'application/json';

Rest.Method = rmGET;

Rest.BaseURL = BASE_URL + '/discover/movie?api_key='+API_KEY+'&language=tr-TR&sort_by=popularity.desc&page=1';

Rest.Execute;

for (i = 0 to 9)

{

poster = Clomosy.CLParseJSON(Rest.Response,'results.'+IntToStr(i)+'.poster_path');

title = Clomosy.CLParseJSON(Rest.Response,'results.'+IntToStr(i)+'.title');

FilmPanel = MainForm.AddNewProPanel(Top10Panel,'FilmPanel'+IntToStr(i));

FilmPanel.Align = alLeft;

FilmPanel.Width = 120;

FilmPanel.Margins.Left = 2;

FilmPanel.Margins.Right = 2;

Img = MainForm.AddNewProImage(FilmPanel,'TopImg'+IntToStr(i));

Img.Align = alTop;

Img.Height = 160;

Img.clProSettings.PictureAutoFit = True;

Img.clProSettings.PictureSource = ' https://image.tmdb.org/t/p/w500" rel="nofollow - https://image.tmdb.org/t/p/w500 '+poster;

Img.SetclProSettings(Img.clProSettings);

Lbl = MainForm.AddNewProLabel(FilmPanel,'TopLbl'+IntToStr(i),title);

Lbl.Align = alBottom;

Lbl.Height = 40;

Lbl.clProSettings.FontColor = clAlphaColor.clWhite;

Lbl.clProSettings.FontSize = 10;

Lbl.clProSettings.WordWrap = True;

Lbl.SetclProSettings(Lbl.clProSettings);

}

Rest.Free;

Rest = Nil;

}

void StartApp;

{

IntroPanel.Visible = False;

CardPanel.Visible = True;

FilterPanel.Visible = True;

ActionButtonPanel.Visible = True;

GetMovie;

}

// ================= MAIN =================

{

API_KEY = 'bdadefeeb1178a602f57e923fef4255f';

BASE_URL = ' https://api.themoviedb.org/3" rel="nofollow - https://api.themoviedb.org/3 ';

SelectedCountry = '';

SelectedGenre = '';

FavoriteList = Clomosy.StringListNew;

MainForm = TclForm.Create(Self);

// --- ARKA PLAN ---

BgPanel = MainForm.AddNewProPanel(MainForm,'BgPanel');

BgPanel.Align = alClient;

BgPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#000000');

BgPanel.clProSettings.IsFill = True;

BgPanel.SetclProSettings(BgPanel.clProSettings);

// --- ÜST HEADER ---

TopPanel = MainForm.AddNewProPanel(BgPanel,'TopPanel');

TopPanel.Align = alTop;

TopPanel.Height = 60;

TopPanel.Margins.Left = 15;

TopPanel.Margins.Right = 15;

// Favoriler Butonu

BtnFavorites = MainForm.AddNewProButton(TopPanel,'BtnFavorites','İzleme Listem 📂');

BtnFavorites.Align = alRight;

BtnFavorites.Width = 130;

BtnFavorites.Margins.Top = 12;

BtnFavorites.Margins.Bottom = 12;

BtnFavorites.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#121212');

BtnFavorites.clProSettings.FontColor = clAlphaColor.clWhite;

BtnFavorites.clProSettings.FontSize = 11;

BtnFavorites.clProSettings.RoundHeight = 12;

BtnFavorites.clProSettings.RoundWidth = 12;

BtnFavorites.clProSettings.BorderColor = clAlphaColor.clHexToColor('#333333');

BtnFavorites.clProSettings.BorderWidth = 1;

BtnFavorites.clProSettings.IsFill = True;

BtnFavorites.clProSettings.TextSettings.Font.Style = [fsBold];

BtnFavorites.SetclProSettings(BtnFavorites.clProSettings);

MainForm.AddNewEvent(BtnFavorites,tbeOnClick,'ToggleFavorites');

// Top 10 Butonu

BtnTop10 = MainForm.AddNewProButton(TopPanel,'BtnTop10','Top 10 🔥');

BtnTop10.Align = alRight;

BtnTop10.Width = 100;

BtnTop10.Margins.Top = 12;

BtnTop10.Margins.Bottom = 12;

BtnTop10.clProSettings = BtnFavorites.clProSettings;

BtnTop10.SetclProSettings(BtnTop10.clProSettings);

MainForm.AddNewEvent(BtnTop10,tbeOnClick,'ToggleTop10');

// --- GİRİŞ PANELİ ---

IntroPanel = MainForm.AddNewProPanel(BgPanel,'IntroPanel');

IntroPanel.Align = alCenter;

IntroPanel.Width = 320;

IntroPanel.Height = 380;

IntroPanel.clProSettings.BackgroundColor = clAlphaColor.clNull;

IntroPanel.clProSettings.IsFill = True;

IntroPanel.SetclProSettings(IntroPanel.clProSettings);

IntroTitleLabel = MainForm.AddNewProLabel(IntroPanel,'IntroTitleLabel','🍿' + #13#10 + 'Ne' + #13#10 + 'İzlesem?');

IntroTitleLabel.Align = alTop;

IntroTitleLabel.Height = 160;

IntroTitleLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#E50914');

IntroTitleLabel.clProSettings.FontSize = 36;

IntroTitleLabel.clProSettings.TextSettings.Font.Style = [fsBold];

IntroTitleLabel.clProSettings.TextSettings.HorzAlign = palCenter;

IntroTitleLabel.SetclProSettings(IntroTitleLabel.clProSettings);

IntroSubLabel = MainForm.AddNewProLabel(IntroPanel,'IntroSubLabel','Kararsız mısın? Sana en uygun filmi saniyeler içinde bulalım.');

IntroSubLabel.Align = alTop;

IntroSubLabel.Height = 60;

IntroSubLabel.Margins.Top = 10;

IntroSubLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#8E8E93');

IntroSubLabel.clProSettings.FontSize = 13;

IntroSubLabel.clProSettings.WordWrap = True;

IntroSubLabel.clProSettings.TextSettings.HorzAlign = palCenter;

IntroSubLabel.SetclProSettings(IntroSubLabel.clProSettings);

BtnStart = MainForm.AddNewProButton(IntroPanel,'BtnStart','ÖNERİ GETİR ✨');

BtnStart.Align = alBottom;

BtnStart.Height = 50;

BtnStart.Margins.Bottom = 10;

BtnStart.Margins.Left = 20;

BtnStart.Margins.Right = 20;

BtnStart.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E50914');

BtnStart.clProSettings.FontColor = clAlphaColor.clWhite;

BtnStart.clProSettings.FontSize = 14;

BtnStart.clProSettings.TextSettings.Font.Style = [fsBold];

BtnStart.clProSettings.RoundHeight = 22;

BtnStart.clProSettings.RoundWidth = 22;

BtnStart.clProSettings.IsFill = True;

BtnStart.SetclProSettings(BtnStart.clProSettings);

MainForm.AddNewEvent(BtnStart,tbeOnClick,'StartApp');

// --- FİLTRE PANELİ ---

FilterPanel = MainForm.AddNewProPanel(BgPanel,'FilterPanel');

FilterPanel.Align = alTop;

FilterPanel.Height = 50;

FilterPanel.Margins.Left = 15;

FilterPanel.Margins.Right = 15;

FilterPanel.Visible = False;

// --- FAVORİLER PANELİ ---

FavoritesPanel = MainForm.AddNewProPanel(BgPanel,'FavoritesPanel');

FavoritesPanel.Align = alClient;

FavoritesPanel.Visible = False;

// --- TOP 10 PANELİ ---

Top10Panel = MainForm.AddNewProPanel(BgPanel,'Top10Panel');

Top10Panel.Align = alClient;

Top10Panel.Visible = False;

// --- ANA FİLM KARTI ---

CardPanel = MainForm.AddNewProPanel(BgPanel,'CardPanel');

CardPanel.Align = alClient;

CardPanel.Margins.Left = 20;

CardPanel.Margins.Right = 20;

CardPanel.Margins.Top = 10;

CardPanel.Margins.Bottom = 90;

CardPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#121212');

CardPanel.clProSettings.RoundHeight = 20;

CardPanel.clProSettings.RoundWidth = 20;

CardPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#222222');

CardPanel.clProSettings.BorderWidth = 1;

CardPanel.clProSettings.IsFill = True;

CardPanel.SetclProSettings(CardPanel.clProSettings);

CardPanel.Visible = False;

// --- ALT BUTONLAR ---

ActionButtonPanel = MainForm.AddNewProPanel(BgPanel,'ActionButtonPanel');

ActionButtonPanel.Align = alBottom;

ActionButtonPanel.Height = 75;

ActionButtonPanel.Margins.Left = 20;

ActionButtonPanel.Margins.Right = 20;

ActionButtonPanel.Margins.Bottom = 15;

ActionButtonPanel.Visible = False;

BtnFav = MainForm.AddNewProButton(ActionButtonPanel,'BtnFav','Listeme Ekle');

BtnFav.Align = alLeft;

BtnFav.Width = 130;

BtnFav.Height = 48;

BtnFav.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#121212');

BtnFav.clProSettings.FontColor = clAlphaColor.clWhite;

BtnFav.clProSettings.FontSize = 13;

BtnFav.clProSettings.RoundHeight = 14;

BtnFav.clProSettings.RoundWidth = 14;

BtnFav.clProSettings.BorderColor = clAlphaColor.clHexToColor('#333333');

BtnFav.clProSettings.BorderWidth = 1;

BtnFav.clProSettings.IsFill = True;

BtnFav.SetclProSettings(BtnFav.clProSettings);

MainForm.AddNewEvent(BtnFav,tbeOnClick,'AddFavorite');

BtnNext = MainForm.AddNewProButton(ActionButtonPanel,'BtnNext','BAŞKA BİR TANE 🎲');

BtnNext.Align = alRight;

BtnNext.Width = 160;

BtnNext.Height = 48;

BtnNext.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E50914');

BtnNext.clProSettings.FontColor = clAlphaColor.clWhite;

BtnNext.clProSettings.FontSize = 12;

BtnNext.clProSettings.TextSettings.Font.Style = [fsBold];

BtnNext.clProSettings.RoundHeight = 14;

BtnNext.clProSettings.RoundWidth = 14;

BtnNext.clProSettings.IsFill = True;

BtnNext.SetclProSettings(BtnNext.clProSettings);

MainForm.AddNewEvent(BtnNext,tbeOnClick,'GetMovie');

MainForm.Run;

}

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Cevaplar:

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 02 Temmuz 2026 Saat 10:00

Merhaba Hüseyin,

Asenkron çağrılarda Rest.ExecuteAsync event ataması yaparken Rest.OnCompleted = 'ApiCompleted'; şeklinde string bir metin veriyorsun. Ancak derleyicinin asenkron olay yakalama motoru, bu metodu hafızada string ismiyle dinamik ararken tetikleyemez ve API cevabı gelse dahi ApiCompleted prosedürü hiç çalışmaz. Doğru kullanım, event yapısını Atayüz'ün kendi mimarisine emanet ederek doğrudan senkron yürütme Rest.Execute yapmak veya metodu direkt bağlamaktır.

var

MainForm: TclForm;

BgPanel, TopPanel, CardPanel, FilterPanel, FavoritesPanel, Top10Panel: TclProPanel;

ActionButtonPanel: TclProPanel;

BtnStart, BtnNext, BtnFav, BtnFavorites, BtnTop10: TclProButton;

MovieImage: TclProImage;

LblTitle, LblInfo, LblOverview: TclProLabel;

IntroPanel: TclProPanel;

IntroTitleLabel, IntroSubLabel: TclProLabel;

Rest: TclRest;

SelectedCountry, SelectedGenre, CurrentMovieID: String;

FavoriteList: TclStringList;

movieTitle, overview, posterPath, vote, releaseDate, posterUrl: String;

randomIndex, randomPage: Integer;

URL, API_KEY, BASE_URL: String;

void ProcessApiResponse;

{

randomIndex = Random(20);

CurrentMovieID = Clomosy.CLParseJSON(Rest.Response, 'results.' + IntToStr(randomIndex) + '.id');

movieTitle = Clomosy.CLParseJSON(Rest.Response, 'results.' + IntToStr(randomIndex) + '.title');

overview = Clomosy.CLParseJSON(Rest.Response, 'results.' + IntToStr(randomIndex) + '.overview');

posterPath = Clomosy.CLParseJSON(Rest.Response, 'results.' + IntToStr(randomIndex) + '.poster_path');

vote = Clomosy.CLParseJSON(Rest.Response, 'results.' + IntToStr(randomIndex) + '.vote_average');

releaseDate = Clomosy.CLParseJSON(Rest.Response, 'results.' + IntToStr(randomIndex) + '.release_date');

if (releaseDate <> '')

{

releaseDate = Copy(releaseDate, 1, 4);

}

LblTitle.Text = movieTitle;

LblInfo.Text = '⭐ ' + vote + ' | 📅 ' + releaseDate;

LblOverview.Text = overview;

if (posterPath <> '')

{

posterUrl = ' https://image.tmdb.org/t/p/w500" rel="nofollow - https://image.tmdb.org/t/p/w500 ' + posterPath;

MovieImage.clProSettings.PictureSource = posterUrl;

MovieImage.SetclProSettings(MovieImage.clProSettings);

}

void GetMovie;

{

randomPage = Random(10) + 1;

URL = BASE_URL + '/discover/movie?api_key=' + API_KEY + '&language=tr-TR&sort_by=popularity.desc&page=' + IntToStr(randomPage);

if (SelectedGenre <> '')

{

URL = URL + '&with_genres=' + SelectedGenre;

}

if (SelectedCountry <> '')

{

URL = URL + '&with_origin_country=' + SelectedCountry;

}

try

Rest = TclRest.Create;

Rest.Accept = 'application/json';

Rest.Method = rmGET;

Rest.BaseURL = URL;

Rest.Execute;

if (Rest.Response <> '')

{

ProcessApiResponse;

}

Rest.Free;

except

ShowMessage('Film çekme hatası: ' + LastExceptionMessage);

}

void AddFavorite;

var

i: Integer;

Exists: Boolean;

Item: String;

{

Exists = False;

for (i = 0 to FavoriteList.Count - 1)

{

Item = Clomosy.StringListItemString(FavoriteList, i);

if (Pos(CurrentMovieID + '|', Item) == 1)

{

Exists = True;

}

if (Exists == False)

{

FavoriteList.Add(CurrentMovieID + '|' + posterPath + '|' + movieTitle);

ShowMessage('İzleme listene eklendi! 🍿');

}

else

{

ShowMessage('Bu film zaten listende var.');

}

void ShowFavorites;

var

i: Integer;

Item, Poster: String;

Img: TclProImage;

SplitList: TclStringList;

{

FavoritesPanel.Visible = True;

CardPanel.Visible = False;

FilterPanel.Visible = False;

ActionButtonPanel.Visible = False;

Top10Panel.Visible = False;

FavoritesPanel.DeleteChildren;

for (i = 0 to FavoriteList.Count - 1)

{

Item = Clomosy.StringListItemString(FavoriteList, i);

SplitList = Clomosy.StringListNew;

SplitList.StrictDelimiter = True;

SplitList.Delimiter = '|';

SplitList.DelimitedText = Item;

Poster = Clomosy.StringListItemString(SplitList, 1);

Img = MainForm.AddNewProImage(FavoritesPanel, 'FavImg' + IntToStr(i));

Img.Align = alTop;

Img.Height = 240;

Img.Margins.Top = 15;

Img.Margins.Left = 30;

Img.Margins.Right = 30;

Img.clProSettings.RoundHeight = 16;

Img.clProSettings.RoundWidth = 16;

Img.clProSettings.PictureAutoFit = True;

Img.clProSettings.PictureSource = ' https://image.tmdb.org/t/p/w500" rel="nofollow - https://image.tmdb.org/t/p/w500 ' + Poster;

Img.SetclProSettings(Img.clProSettings);

SplitList.Free;

}

void ToggleFavorites;

{

if (FavoritesPanel.Visible == True)

{

FavoritesPanel.Visible = False;

CardPanel.Visible = True;

FilterPanel.Visible = True;

ActionButtonPanel.Visible = True;

}

else

{

ShowFavorites;

}

void ToggleTop10;

var

i: Integer;

poster, title: String;

FilmPanel: TclProPanel;

Img: TclProImage;

Lbl: TclProLabel;

{

if (Top10Panel.Visible == True)

{

Top10Panel.Visible = False;

CardPanel.Visible = True;

FilterPanel.Visible = True;

ActionButtonPanel.Visible = True;

}

else

{

Top10Panel.Visible = True;

CardPanel.Visible = False;

FilterPanel.Visible = False;

ActionButtonPanel.Visible = False;

FavoritesPanel.Visible = False;

Top10Panel.DeleteChildren;

try

Rest = TclRest.Create;

Rest.Accept = 'application/json';

Rest.Method = rmGET;

Rest.BaseURL = BASE_URL + '/discover/movie?api_key=' + API_KEY + '&language=tr-TR&sort_by=popularity.desc&page=1';

Rest.Execute;

for (i = 0 to 9)

{

poster = Clomosy.CLParseJSON(Rest.Response, 'results.' + IntToStr(i) + '.poster_path');

title = Clomosy.CLParseJSON(Rest.Response, 'results.' + IntToStr(i) + '.title');

FilmPanel = MainForm.AddNewProPanel(Top10Panel, 'FilmPanel' + IntToStr(i));

FilmPanel.Align = alLeft;

FilmPanel.Width = 120;

FilmPanel.Margins.Left = 2;

FilmPanel.Margins.Right = 2;

Img = MainForm.AddNewProImage(FilmPanel, 'TopImg' + IntToStr(i));

Img.Align = alTop;

Img.Height = 160;

Img.clProSettings.PictureAutoFit = True;

Img.clProSettings.PictureSource = ' https://image.tmdb.org/t/p/w500" rel="nofollow - https://image.tmdb.org/t/p/w500 ' + poster;

Img.SetclProSettings(Img.clProSettings);

Lbl = MainForm.AddNewProLabel(FilmPanel, 'TopLbl' + IntToStr(i), title);

Lbl.Align = alBottom;

Lbl.Height = 40;

Lbl.clProSettings.FontColor = clAlphaColor.clWhite;

Lbl.clProSettings.FontSize = 10;

Lbl.clProSettings.WordWrap = True;

Lbl.SetclProSettings(Lbl.clProSettings);

}

Rest.Free;

except

ShowMessage('Top 10 listeleme hatası: ' + LastExceptionMessage);

}

void StartApp;

{

IntroPanel.Visible = False;

CardPanel.Visible = True;

FilterPanel.Visible = True;

ActionButtonPanel.Visible = True;

GetMovie;

}

{

API_KEY = 'bdadefeeb1178a602f57e923fef4255f';

BASE_URL = ' https://api.themoviedb.org/3" rel="nofollow - https://api.themoviedb.org/3 ';

SelectedCountry = '';

SelectedGenre = '';

FavoriteList = Clomosy.StringListNew;

MainForm = TclForm.Create(Self);

BgPanel = MainForm.AddNewProPanel(MainForm, 'BgPanel');

BgPanel.Align = alClient;

BgPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#000000');

BgPanel.clProSettings.IsFill = True;

BgPanel.SetclProSettings(BgPanel.clProSettings);

TopPanel = MainForm.AddNewProPanel(BgPanel, 'TopPanel');

TopPanel.Align = alTop;

TopPanel.Height = 60;

TopPanel.Margins.Left = 15;

TopPanel.Margins.Right = 15;

BtnFavorites = MainForm.AddNewProButton(TopPanel, 'BtnFavorites', 'İzleme Listem 📂');

BtnFavorites.Align = alRight; BtnFavorites.Width = 130; BtnFavorites.Margins.Top = 12; BtnFavorites.Margins.Bottom = 12;

BtnFavorites.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#121212');

BtnFavorites.clProSettings.FontColor = clAlphaColor.clWhite;

BtnFavorites.clProSettings.FontSize = 11;

BtnFavorites.clProSettings.RoundHeight = 12; BtnFavorites.clProSettings.RoundWidth = 12;

BtnFavorites.clProSettings.BorderColor = clAlphaColor.clHexToColor('#333333');

BtnFavorites.clProSettings.BorderWidth = 1;

BtnFavorites.clProSettings.IsFill = True;

BtnFavorites.clProSettings.TextSettings.Font.Style = [fsBold];

BtnFavorites.SetclProSettings(BtnFavorites.clProSettings);

MainForm.AddNewEvent(BtnFavorites, tbeOnClick, 'ToggleFavorites');

BtnTop10 = MainForm.AddNewProButton(TopPanel, 'BtnTop10', 'Top 10 🔥');

BtnTop10.Align = alRight; BtnTop10.Width = 100; BtnTop10.Margins.Top = 12; BtnTop10.Margins.Bottom = 12;

BtnTop10.clProSettings = BtnFavorites.clProSettings;

BtnTop10.SetclProSettings(BtnTop10.clProSettings);

MainForm.AddNewEvent(BtnTop10, tbeOnClick, 'ToggleTop10');

IntroPanel = MainForm.AddNewProPanel(BgPanel, 'IntroPanel');

IntroPanel.Align = alCenter; IntroPanel.Width = 320; IntroPanel.Height = 380;

IntroPanel.clProSettings.BackgroundColor = clAlphaColor.clNull;

IntroPanel.clProSettings.IsFill = True;

IntroPanel.SetclProSettings(IntroPanel.clProSettings);

IntroTitleLabel = MainForm.AddNewProLabel(IntroPanel, 'IntroTitleLabel', '🍿' + #13#10 + 'Ne' + #13#10 + 'İzlesem?');

IntroTitleLabel.Align = alTop; IntroTitleLabel.Height = 160;

IntroTitleLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#E50914');

IntroTitleLabel.clProSettings.FontSize = 36;

IntroTitleLabel.clProSettings.TextSettings.Font.Style = [fsBold];

IntroTitleLabel.clProSettings.TextSettings.HorzAlign = palCenter;

IntroTitleLabel.SetclProSettings(IntroTitleLabel.clProSettings);

IntroSubLabel = MainForm.AddNewProLabel(IntroPanel, 'IntroSubLabel', 'Kararsız mısın? Sana en uygun filmi saniyeler içinde bulalım.');

IntroSubLabel.Align = alTop; IntroSubLabel.Height = 60; IntroSubLabel.Margins.Top = 10;

IntroSubLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#8E8E93');

IntroSubLabel.clProSettings.FontSize = 13;

IntroSubLabel.clProSettings.WordWrap = True;

IntroSubLabel.clProSettings.TextSettings.HorzAlign = palCenter;

IntroSubLabel.SetclProSettings(IntroSubLabel.clProSettings);

BtnStart = MainForm.AddNewProButton(IntroPanel, 'BtnStart', 'ÖNERİ GETİR ✨');

BtnStart.Align = alBottom; BtnStart.Height = 50; BtnStart.Margins.Bottom = 10; BtnStart.Margins.Left = 20; BtnStart.Margins.Right = 20;

BtnStart.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E50914');

BtnStart.clProSettings.FontColor = clAlphaColor.clWhite;

BtnStart.clProSettings.FontSize = 14;

BtnStart.clProSettings.TextSettings.Font.Style = [fsBold];

BtnStart.clProSettings.RoundHeight = 22; BtnStart.clProSettings.RoundWidth = 22;

BtnStart.clProSettings.IsFill = True;

BtnStart.SetclProSettings(BtnStart.clProSettings);

MainForm.AddNewEvent(BtnStart, tbeOnClick, 'StartApp');

FilterPanel = MainForm.AddNewProPanel(BgPanel, 'FilterPanel');

FilterPanel.Align = alTop; FilterPanel.Height = 50; FilterPanel.Margins.Left = 15; FilterPanel.Margins.Right = 15;

FilterPanel.Visible = False;

FavoritesPanel = MainForm.AddNewProPanel(BgPanel, 'FavoritesPanel');

FavoritesPanel.Align = alClient;

FavoritesPanel.Visible = False;

Top10Panel = MainForm.AddNewProPanel(BgPanel, 'Top10Panel');

Top10Panel.Align = alClient;

Top10Panel.Visible = False;

CardPanel = MainForm.AddNewProPanel(BgPanel, 'CardPanel');

CardPanel.Align = alClient;

CardPanel.Margins.Left = 20; CardPanel.Margins.Right = 20; CardPanel.Margins.Top = 10; CardPanel.Margins.Bottom = 90;

CardPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#121212');

CardPanel.clProSettings.RoundHeight = 20; CardPanel.clProSettings.RoundWidth = 20;

CardPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#222222');

CardPanel.clProSettings.BorderWidth = 1;

CardPanel.clProSettings.IsFill = True;

CardPanel.SetclProSettings(CardPanel.clProSettings);

CardPanel.Visible = False;

// --- ARALIK KONTROLÜ: API'DEN GELEN GÖRSEL BİLEŞENLERİ ---

MovieImage = MainForm.AddNewProImage(CardPanel, 'MovieImage');

MovieImage.Align = alTop; MovieImage.Height = 250; MovieImage.Margins.Top = 10;

MovieImage.clProSettings.PictureAutoFit = True;

MovieImage.SetclProSettings(MovieImage.clProSettings);

LblTitle = MainForm.AddNewProLabel(CardPanel, 'LblTitle', '-');

LblTitle.Align = alTop; LblTitle.Height = 35; LblTitle.Margins.Left = 15; LblTitle.Margins.Top = 10;

LblTitle.clProSettings.FontColor = clAlphaColor.clWhite; LblTitle.clProSettings.FontSize = 18; LblTitle.clProSettings.TextSettings.Font.Style = [fsBold];

LblTitle.SetclProSettings(LblTitle.clProSettings);

LblInfo = MainForm.AddNewProLabel(CardPanel, 'LblInfo', '-');

LblInfo.Align = alTop; LblInfo.Height = 25; LblInfo.Margins.Left = 15;

LblInfo.clProSettings.FontColor = clAlphaColor.clHexToColor('#8E8E93'); LblInfo.clProSettings.FontSize = 12;

LblInfo.SetclProSettings(LblInfo.clProSettings);

LblOverview = MainForm.AddNewProLabel(CardPanel, 'LblOverview', '-');

LblOverview.Align = alClient; LblOverview.Margins.Left = 15; LblOverview.Margins.Right = 15; LblOverview.Margins.Top = 10;

LblOverview.clProSettings.FontColor = clAlphaColor.clHexToColor('#CBD5E1'); LblOverview.clProSettings.FontSize = 13; LblOverview.clProSettings.TextSettings.WordWrap = True;

LblOverview.SetclProSettings(LblOverview.clProSettings);

ActionButtonPanel = MainForm.AddNewProPanel(BgPanel, 'ActionButtonPanel');

ActionButtonPanel.Align = alBottom; ActionButtonPanel.Height = 75; ActionButtonPanel.Margins.Left = 20; ActionButtonPanel.Margins.Right = 20; ActionButtonPanel.Margins.Bottom = 15;

ActionButtonPanel.Visible = False;

BtnFav = MainForm.AddNewProButton(ActionButtonPanel, 'BtnFav', 'Listeme Ekle');

BtnFav.Align = alLeft; BtnFav.Width = 130; BtnFav.Height = 48;

BtnFav.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#121212');

BtnFav.clProSettings.FontColor = clAlphaColor.clWhite;

BtnFav.clProSettings.FontSize = 13;

BtnFav.clProSettings.RoundHeight = 14; BtnFav.clProSettings.RoundWidth = 14;

BtnFav.clProSettings.BorderColor = clAlphaColor.clHexToColor('#333333');

BtnFav.clProSettings.BorderWidth = 1;

BtnFav.clProSettings.IsFill = True;

BtnFav.SetclProSettings(BtnFav.clProSettings);

MainForm.AddNewEvent(BtnFav, tbeOnClick, 'AddFavorite');

BtnNext = MainForm.AddNewProButton(ActionButtonPanel, 'BtnNext', 'BAŞKA BİR TANE 🎲');

BtnNext.Align = alRight; BtnNext.Width = 160; BtnNext.Height = 48;

BtnNext.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E50914');

BtnNext.clProSettings.FontColor = clAlphaColor.clWhite;

BtnNext.clProSettings.FontSize = 12;

BtnNext.clProSettings.TextSettings.Font.Style = [fsBold];

BtnNext.clProSettings.RoundHeight = 14; BtnNext.clProSettings.RoundWidth = 14;

BtnNext.clProSettings.IsFill = True;

BtnNext.SetclProSettings(BtnNext.clProSettings);

MainForm.AddNewEvent(BtnNext, tbeOnClick, 'GetMovie');

MainForm.FormWaiting.Visible = False;

MainForm.BtnFormMenu.Visible = False;

MainForm.BtnGoBack.Visible = False;

MainForm.Run;

}