Clomosy | Forum : Color Palette https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 01 Aug 2026 07:41:52 +0000 Thu, 07 May 2026 17:46:07 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1482 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Color Palette : Merhaba Kaan,var MainForm: TCLForm;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1482&PID=3398#3398 Yazar: Emr.Erkmn
Konu: 1482
Gönderim Zamanı: 07 Mayıs 2026 Saat 17:46

Merhaba Kaan,
var
  MainForm: TCLForm;
  TargetPnl, PickerContainer: TclProPanel;
  ColorWebBrowser: TclProWebBrowser;
  CheckTimer, SetupTimer: TclTimer;
  LHtml, BaseColor: String;
  LblTitle: TclProLabel;

void OnCheckTimer;
var
  CurrentUrl, HexColor: String;
{
  CurrentUrl = ColorWebBrowser.URL;
  
  if (Copy(CurrentUrl, 1, 6) == 'color:')
  {
      HexColor = Copy(CurrentUrl, 7, 7);
      
      TargetPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(HexColor);
      TargetPnl.SetclProSettings(TargetPnl.clProSettings);
      
      PickerContainer.clProSettings.BorderColor = clAlphaColor.clHexToColor(HexColor);
      PickerContainer.SetclProSettings(PickerContainer.clProSettings);
      
      ColorWebBrowser.LoadHTML(LHtml);
  }
}

void OnSetupTimer;
{
  SetupTimer.Enabled = False;
  ColorWebBrowser.LoadHTML(LHtml);
  CheckTimer.Enabled = True;
}

{
  MainForm = TCLForm.Create(Self);
  MainForm.SetFormColor('#F1F5F9', '', clGNone);
  BaseColor = '#3B82F6';

  TargetPnl = MainForm.AddNewProPanel(MainForm, 'TargetPnl');
  TargetPnl.Align = alClient;
  TargetPnl.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  TargetPnl.SetclProSettings(TargetPnl.clProSettings);

  PickerContainer = MainForm.AddNewProPanel(MainForm, 'PickerContainer');
  PickerContainer.Align = alNone;
  PickerContainer.Width = 150;
  PickerContainer.Height = 100;
  PickerContainer.Left = MainForm.clWidth - 170;
  PickerContainer.Top = 20;
  PickerContainer.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');
  PickerContainer.clProSettings.RoundHeight = 15;
  PickerContainer.clProSettings.RoundWidth = 15;
  PickerContainer.clProSettings.BorderWidth = 3;
  PickerContainer.clProSettings.BorderColor = clAlphaColor.clHexToColor(BaseColor);
  PickerContainer.SetclProSettings(PickerContainer.clProSettings);

  LblTitle = MainForm.AddNewProLabel(PickerContainer, 'LblTitle', 'Renk Seçici');
  LblTitle.Align = alTop;
  LblTitle.Height = 30;
  LblTitle.Margins.Top = 5;
  LblTitle.clProSettings.TextSettings.Font.Style = [fsBold];
  LblTitle.clProSettings.FontSize = 12;
  LblTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#475569');
  LblTitle.SetclProSettings(LblTitle.clProSettings);

  ColorWebBrowser = MainForm.AddNewProWebBrowser(PickerContainer, 'ColorWebBrowser');
  ColorWebBrowser.Align = alBottom;
  ColorWebBrowser.Height = 45;
  ColorWebBrowser.Margins.Bottom = 10;
  ColorWebBrowser.Margins.Left = 10;
  ColorWebBrowser.Margins.Right = 10;
  
  LHtml = '<html><body style="margin:0; padding:0; overflow:hidden; background:transparent;">' +
          '<div style="width:100%; height:100%; background:#f1f5f9; color:#334155; font-family:sans-serif; font-weight:bold; font-size:14px; border:1px solid #cbd5e1; border-radius:8px; display:flex; justify-content:center; align-items:center; position:relative;">' +
          'Seçiniz <input type="color" id="cp" value="'+BaseColor+'" style="position:absolute; top:0; left:0; width:100%; height:100%; opacity:0; cursor:pointer;">' +
          '</div><script>document.getElementById("cp").onchange=(e)=>{window.location.href="color:"+e.target.value;};</script></body></html>';
  
  SetupTimer = MainForm.AddNewTimer(MainForm, 'SetupTimer', 500); 
  MainForm.AddNewEvent(SetupTimer, tbeOnTimer, 'OnSetupTimer');
  SetupTimer.Enabled = True;
  
  CheckTimer = MainForm.AddNewTimer(MainForm, 'CheckTimer', 200); 
  MainForm.AddNewEvent(CheckTimer, tbeOnTimer, 'OnCheckTimer');
  CheckTimer.Enabled = False;
  
  MainForm.Run;
}

bu kodu inceler misin

https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">]]> Thu, 07 May 2026 17:46:07 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1482&PID=3398#3398 <![CDATA[Color Palette : Clomosy&#039;de Bu şekilde uygulama...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1482&PID=3394#3394 Yazar: kaanl0
Konu: 1482
Gönderim Zamanı: 07 Mayıs 2026 Saat 10:54


Clomosy'de Bu şekilde uygulama içinde ekleyebileceğimiz bir Color Palette var mı ?











< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous">]]> Thu, 07 May 2026 10:54:26 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1482&PID=3394#3394