babaev-an/lasarus_compotents
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Стартовый пул

Browse Source
This commit is contained in:
Александр Бабаев
2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
ATSynEdit/test_syntax_files/html-js.htm Normal file
View File

@@ -0,0 +1,7 @@
<a href="#"><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1</a>
<script type="text/javascript">//<![CDATA[
$(document).ready(function () { if (typeof jQuery != "undefined" && typeof jQuery.fn.beesearchbar != "undefined") { $("#SearchBox").beesearchbar({items: [],id: 'SearchBox',name: 'SearchBox',viewField: 'Id',sourceType: 'ajax',width: '',minWordLength: 3,placeholder: '',hasClearButton: false,hasSearchButton: true,css: '',change: 'onSearchChange',open: '',beforeopen: '',close: '',oninit: 'onInitSearchHeader',keyup: 'onSearchEnter',onsearch: 'onSearch',onupdated: '',onclear: '',source: {url: '/searchsuggestion',labelField: 'Title',valueField: 'Id',actionField: 'action',}}); }});
//]]></script>
<a href="#"><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2</a>

65
ATSynEdit/test_syntax_files/html.htm Normal file
View File

@@ -0,0 +1,65 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" />
<meta name="author" content="" />
<meta name="keywords" content="Synwrite, Source, Code, Text, Editor, Notepad" />
<meta name="description" content="SynWrite Free Source Code And Text Editor" />
<meta name="robots" content="all" />
<title>SynWrite - Home</title>
<link rel="SHORTCUT ICON" href="favicon.ico">
<style type="text/css" media="all">
BODY {
background-color:#446bb3;
font-family: Arial, Helvetica, sans-serif;
font-weight:bold;
text-align: center;
}
a img {border: none; }
table tbody tr td a {
display: block;
text-decoration:none;
}
.rounded {
padding-top: 8px;
padding-bottom: 15px;
margin: 0 auto 20px auto;
background: #eeeeee;
border-radius: 15px;
-moz-border-radius: 15px;
-webkit-border-radius: 15px;
color: #eeeeee;
}
</style>
</head>
<body>
<p>&nbsp;</p>
<table border="0" height="100" width="800" class="rounded">
<tr>
<td>
<a href="http://www.uvviewsoft.com/synwrite/"><img src="./logo.gif" width="48" height="48" alt="SynWrite homepage" /></a>
</td>
<td>
<a href="https://sourceforge.net/projects/synwrite/"><img src="./sf.png" width="48" height="48" alt="Sourceforge project" /></a>
</td>
<td>
<a href="http://synwrite.sourceforge.net/forums/"><img src="./forum.png" width="70" height="70" alt="Forums" /></a>
</td>
</tr>
<tr>
<td><a href="http://www.uvviewsoft.com/synwrite/">SynWrite home</a></td>
<td><a href="https://sourceforge.net/projects/synwrite/">SynWrite project at Sourceforge</a></td>
<td><a href="http://synwrite.sourceforge.net/forums/">SynWrite support forums</a></td>
</tr>
</table>
</div>
</body>

28686
ATSynEdit/test_syntax_files/test-bigg.pas Normal file
View File

File diff suppressed because it is too large Load Diff

11
ATSynEdit/test_syntax_files/test-grammar.cs Normal file
View File

@@ -0,0 +1,11 @@
static void RegisterFunction(Type reg1; Type2 reg2)
{
CategoryRegistration(registerType);
}
[ComUnregisterFunction()]
[ComVisible(false)]
static void UnregisterFunction(Type reg1; Type[] regs; Type2 reg2)
{
CategoryUnregistration(registerType);
}

24
ATSynEdit/test_syntax_files/test-range-bound.pas Normal file
View File

@@ -0,0 +1,24 @@
unit aa;
implementation
procedure aa1;
begin
dd
end;
procedure aa2;
begin
begin
aa
end;
end;
procedure aa3;
begin
begin
aa
end;
end;
end.

29
ATSynEdit/test_syntax_files/test-unfold.cpp Normal file
View File

@@ -0,0 +1,29 @@
//test
{
d1
{
d2a
}
{
d2b
{
d3a
}
{
d3b
{
d4a
}
{
d4b
{
d5a
}
{
d5b
}
}
}
}
}

19
ATSynEdit/test_syntax_files/test-unfold.pas Normal file
View File

@@ -0,0 +1,19 @@
unit Test;
interface
procedure aa;
implementation
procedure aa;
begin
if some then
begin
begin
Test;
end;
end;
end;
end.

41
ATSynEdit/test_syntax_files/test.au3 Normal file
View File

@@ -0,0 +1,41 @@
dim $t[3][2] = [["test;1;2;3", 123], _
[';', Asc(';')], _ ; This comment
["", 0]] ; comment
#region Begin region
; #endregion
If @error Then
If @error = 2 Then $iMinIndex = $i
Else
Exit
EndIf
#endregion End region
#comments-start test
If SetIcon ($btnIcon, $sModulesPath & "\" & GUICtrlRead ($cmbSFXModule) & ",0") Then _
$bIsDefaultIcon = True
#cs test
test
#ce
#comments-end test
#include
#include-once
#NoTrayIcon
#RequireAdmin
Func Palitra_()
/*$zzz = 0 */
While $zzz <= 2
//$xxx = 0
While $xxx <= 5
$yyy = 0
While $yyy <= 5
$PalitraColor = "0x"&$ColorArray[$zzz]&$ColorArray[$xxx]&$ColorArray[$yyy]
GUICtrlCreateLabel( "", ($zzz)*$PalitraSize*6+$xxx*$PalitraSize+264, $yyy*$PalitraSize+368, $PalitraSize ,$PalitraSize)
GUICtrlSetBkColor ( -1, $PalitraColor)
WEnd
$xxx = $xxx + 1
WEnd
$zzz = $zzz +1
Wend
EndFunc

82
ATSynEdit/test_syntax_files/test.cs Normal file
View File

@@ -0,0 +1,82 @@
using System;
using System.Collections.Generic;
namespace Burray
{
public class HotWaterGuidedSchedulingScreen : CommonScreen
{
//Test
#region Public Interface
public void SetFirstScreen()
{
currentScreenIndex = ScreensEnum.HVAC_GS1;
backStack.Clear();
}
public List<DayOfWeek> SelectedDaysOfWeek
{
set
{
if (value == null)
{
selectedDaysOfWeek.Clear();
}
else
{
if (value.Count >
PublicMethods.GetEnumLength<DayOfWeek>())
{
throw new ArgumentException("Week too long");
}
foreach (DayOfWeek dow in value)
{
if (PublicMethods.IsValidEnumField<DayOfWeek>(dow)
== false)
{
throw new ArgumentException("Invalid day: " +
(int)dow);
}
}
selectedDaysOfWeek = value;
}
}
}
#endregion Public Interface
#region Private Data-Structure
private static enum ScreensEnum
{
HVAC_GS1 = 0,
HVAC_GS2,
HVAC_GS3,
HVAC_GS4,
HVAC_GS5,
HVAC_GS6,
HVAC_GS7,
HVAC_GS8,
HVAC_GS9,
}
/// <summary>
/// Data-Structure class that stores all info from each screen.
/// </summary>
private class ScreenData
{
public bool HasButtons;
public string TopLabel;
public string ControlTitle;
public DateTime ControlDateTime;
public bool status;
}
public static void hello() {
}
}
}

9
ATSynEdit/test_syntax_files/test.css Normal file
View File

@@ -0,0 +1,9 @@
BODY {background: #FFFFFF}
A:link {color: #80FF00; background-image: url(img.gif); }
A:visited {
color: #FF00FF; font-size: 1.2em
}
h1, h2, h3 {
font-size: 24pt; font-family: 'arial', 'Tahoma';
}
/* comment */

10
ATSynEdit/test_syntax_files/test.inf Normal file
View File

@@ -0,0 +1,10 @@
[info]
title=Color Picker
desc=Shows dialog to insert any color value
type=py-plugin
subdir=syn_color_picker
[ini]
section=Commands
id=Color Picker
params=run;

43
ATSynEdit/test_syntax_files/test.pas Normal file
View File

@@ -0,0 +1,43 @@
unit Test;
interface
const
cColorCodes: array[0..1] of TColorCode = (
(sName: 'AliceBlue'; sVal: '#00'),
(sName: 'AntiqueWhite'; sVal: '#00'),
);
asm
MOV AX, 1234H
MOV Number, AX
end;
type
TForm1 = class(TForm)
procedure Button1Click(Sender: TObject);
end;
implementation
{Syntax highlighting}
procedure TForm1.Button1Click(Sender: TObject);
var
Number: integer;
FloatNumber: double;
begin
Number := 123; // View integer number style
Caption := 'This Number is ' + IntToStr(Number); // View string style
Inc(Number, $1FA7); // View HEX style
{Assembler style}
asm
MOV AX, 1234H
MOV Number, AX
end;
end;
begin
if A then
begin
Do_;
end;
end.

30
ATSynEdit/test_syntax_files/test.php Normal file
View File

@@ -0,0 +1,30 @@
<?php
if (!isset($db)) {
class my_DB extends DB {
function connect($phptype = 'mysql') {
$dsn = "mysql://" . DB_USER . ":" . DB_PASSWORD . "@" . DB_SERVER . "/" . DB_DATABASE;
$op = array(
'debug' => 2,
'portability' => DB_PORTABILITY_ALL,
);
//PEAR::setErrorHandling(PEAR_ERROR_TRIGGER);
$db = & parent::connect($dsn, $op);
if (parent::isError($db)) {
die($db->getMessage());
}
return $db;
}
}
$db = &my_DB::connect();
$db->query("SET NAMES cp1251");
}
$array = explode(",", $part_id);

32
ATSynEdit/test_syntax_files/test.py Normal file
View File

@@ -0,0 +1,32 @@
"""doc
string
end"""
import os
fn_tool = os.path.join(os.path.dirname(__file__), 'app.exe')
def get_exec(fn, code):
try:
subprocess.check_call([fn, str(code)])
if false:
test
if false:
test
return 0
except subprocess.CalledProcessError as e:
return e.returncode
class Command:
def run(self):
nstart, nlen, text = do_get_word_caret(color_chars)
try:
code = HTMLColorToPILColor(text)
except:
code = 0
code = get_exec(fn_tool, code)
if code>=0 and code!=0xFFFFFFFF:
text = PILColorToHTMLColor(code)
msg_status('Inserted color code: '+text)

12
ATSynEdit/test_syntax_files/test.tcl Normal file
View File

@@ -0,0 +1,12 @@
#!/usr/bin/env tclsh
# Example code
set example {1 2 3}
e.g. {set'add example 4} -> {1 2 3 4}
e.g. {set'add example 4} -> {1 2 3 4}
book open "name \"substr\""
proc set'remove {_set args} {
upvar 1 $_set set
foreach el $args {
set pos [lsearch -exact $set $el]
}
}

11
ATSynEdit/test_syntax_files/test2.css Normal file
View File

@@ -0,0 +1,11 @@
/* Test */
p.new:after, p.new::after, ddddd {
content: "Test";
color: #333;
background-color: #fc0;
font-size: 90%;
padding: 2px;
}
:test {
name:aaa
}