Рубрика: Стек Технологий

Рубрики
Delphi Desktop App development Windows

Delphi «Сохранение/Загрузка значения из Регистра ОС»

  • Автор записи Автор: bo52
  • Дата записи 08.08.2023
  • Закрепленная запись
  • unit Main;
    • interface
      • uses
        • Winapi.Windows, Winapi.Messages,
        • System.SysUtils, System.Variants, System.Classes,
        • Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls,Vcl.StdCtrls;
      • type TfmUnity = class(TForm)
        • pg: TPageControl;
        • TabSheet1: TTabSheet;
        • tabOptions: TTabSheet;
        • gbField: TGroupBox;
        • editField: TEdit;
        • procedure gbFieldClick(Sender: TObject);
        • procedure FormCreate(Sender: TObject);
        • private { Private declarations }
        • public { Public declarations }
      • end;
    • var fmUnity: TfmUnity;
    • implementation
      • uses Registry, FileCtrl; //путь к файлу
      • {$R *.dfm}
      • procedure ЗаписатьВРеестр(val:string; name:string=Str1;project:string=namespace_unity);
        • var reg : tregistry;
        • begin
          • reg := tregistry.create;
          • try
            • reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey(Software\Microsoft\Windows\+project,true);
            • reg.WriteString(name, val);
          • finally
            • reg.free;
          • end;
        • end;
      • function ПрочитатьВРеестре(name:string=Str1;project:string=namespace_unity):string;
        • var reg : tregistry;
        • begin
          • reg := tregistry.create;
          • try
            • reg.RootKey := HKEY_CURRENT_USER;
            • reg.OpenKey(Software\Microsoft\Windows\+project,true);
            • Result := reg.ReadString(name);
          • finally
            • reg.free;
          • end;
        • end;
      • procedure TfmUnity.FormCreate(Sender: TObject);
        • begin
          • editField.Text:=ПрочитатьВРеестре(i+editField.tag.ToString());
        • end;
      • procedure TfmUnity.gbFieldClick(Sender: TObject);
        • var SelectedFolder: string;
        • begin
          • if (SelectDirectory(Выберите директорию,»,SelectedFolder)) then
            • begin
              • editField.Text:=SelectedFolder;
              • ЗаписатьВРеестр(SelectedFolder,i+editField.tag.ToString());
            • end;
        • end;
  • end.
Рубрики
back-end PHP Web development

Web development «WorldPress — Записи — открываем через ссылку в окно с движением»

  • Автор записи Автор: bo52
  • Дата записи 07.01.2023
  • function mypost_content_replace($content) {
    • $id = str_replace(array([post),«,$content);
    • $id = substr($id, 0,strpos($id,«));
    • return mypost_el($id);
  • }
  • function mypost_content_callback($matches) {
    • return mypost_content_replace($matches[0]);
  • }
  • function mypost_content_write($content){
    • return preg_replace_callback(/\\[post.*?\\]/i,mypost_content_callback, $content);
  • }
  • $GLOBALS[myposts]=array();
  • function mypost_load_content($content,$name,$link,$ID,$title,$id{
    • $GLOBALS[myposts][]=$ID;
    • $content = mypost_content_write($content);
    • $el=<div data-id=".$ID." id="posts'.$ID.'" class="block-mouse data2206241820 color2206241820" style="padding:2px;font-size:9pt;display:none;position:absolute;z-index:1003">; $el=$el.»\n».<div style="display:inline-block;font-weight: bold;color:red">.$title.`</div><div style=»float:right;display:inline-block»>`.$id.</div>;
      $el=$el.»\n».<div class="btns" style="none">;
    • $el=$el.»\n».<div style="display:inline-block">.$link.</div>; $el=$el.»\n».<a href="#" onclick="$('.block-mouse').css('display','none')" style="text-decoration: none;margin-right:2px;vertical-align: middle;float:right;display:inline-block;">Все</a>;
    • $el=$el.»\n».<img onclick="$('#posts.$ID.).css('display','none')" src="https://codegid.ru/img/close.png" style="margin-right:2px;cursor:pointer;float:right;display:inline block;height:18px;width:18px">;
    • $el=$el.»\n».</div>;
    • $el=$el.»\n».<div style="font-weight: bold;color:green">.$name.</div>;
    • $el=$el.»\n».<div class="res" style="overflow:scroll;height:400px;width:400px;">'.$content.'</div></div>;
    • return $el;
  • }
  • function mypost_el($id){
    • $ID=p.$id;
    • $href=https://codegid.ru/?p=.$id;
    • $my_post=get_post($id);
    • $name=$my_post->post_name;
    • $name=urldecode($name);
    • $title=$my_post->post_title;
    • $content=$my_post->post_content;
    • $link=<a title=".$name." style="text-decoration: none;margin-right:2px;vertical-align: middle;display:inline-block;" target="_blank" href="'.$href.'">.$title.</a>;
    • $post_categories = wp_get_post_categories($id); foreach($post_categories as $c ){
      • $cat = get_category($c);
      • $cat = <a style="text-decoration: none;color:green;margin-left:2px" href="'.get_category_link($cat->term_id).'">.$cat->name.</a>;
      • $link=$cat./.$link;
    • }
    • $el=<div style="margin-bottom:2px;"><a class="posts-root" onmouseover="posts_root_mouseover($(this))" data-id=".$ID." style="text-decoration: none;margin-left:2px;" href="'.$href.'">.$title.</a></div>;
    • if(array_search($ID,$GLOBALS[myposts]) == false){
      • $el=$el.»\n».mypost_load_content($content,$name,$link,$ID,$title,$id);
    • }
    • return $el;
  • }
  • Вызов через простой текст c вводом номера поста
    • function mypost_content_replace($content) {…}
      • $id = str_replace(array([post),«,$content);
      • $id = substr($id, 0,strpos($id,` `));
      • return mypost_el($id);
[post10644 описание]
Рубрики
Surface

SurfaceOutputStandardSpecular

  • Автор записи Автор: bo52
  • Дата записи 01.01.2023

[post10644 surface]

struct SurfaceOutputStandardSpecular
{
    fixed3 Albedo;      // diffuse color
    fixed3 Specular;    // specular color
    fixed3 Normal;      // tangent space normal, if written
    half3 Emission;
    half Smoothness;    // 0=rough, 1=smooth
    half Occlusion;     // occlusion (default 1)
    fixed Alpha;        // alpha for transparencies
};
Рубрики
Standard Surface

SurfaceOutputStandard

  • Автор записи Автор: bo52
  • Дата записи 01.01.2023
  • выходная структура поверхностного шейдера
    встроенный код HLSL

[post10644 surface]

struct SurfaceOutputStandard

{
    fixed3 Albedo;      // base (diffuse or specular) color
    fixed3 Normal;      // tangent space normal, if written
    half3 Emission;
    half Metallic;      // 0=non-metal, 1=metal
    half Smoothness;    // 0=rough, 1=smooth
    half Occlusion;     // occlusion (default 1)
    fixed Alpha;        // alpha for transparencies
};
Рубрики
Custom Surface

«Объект красного цвета»

  • Автор записи Автор: bo52
  • Дата записи 01.01.2023

[post10644 surfaceshader]

#pragma surface surf Standard
Shader "Custom/SH_surf"
{
    SubShader
    {
        CGPROGRAM
        #pragma surface surf Standard
        sampler2D _MainTex;

        struct Input
        {
            float3 color : RED;
        };
        void surf (Input IN, inout SurfaceOutputStandard o)
        {
            o.Albedo = IN.color;
            o.Alpha = 1;
        }
        ENDCG
    }
}