Вверх ↑
Этот топик читают: Гость
Ответов: 37
Рейтинг: 0
#196: 2017-10-24 06:26:59 ЛС | профиль | цитата
Большое спасибо, nesco. Я, собственно, в своих "выводах" пытался описать тот же эффект. Но основывался на наблюдениях за серым квадратиком с зелеными точками, ведь глядя на Матрицу, я все еще вижу падающие зеленые буквы, и не вижу ни блондинки, ни брюнетки.

Нео с опасением смотрит на экраны.
--Это?..
Сайфер:
-- Матрица? Да.
-- И ты это читаешь?
-- Приходится. Символы передаются для конструктора. Но раскодировать всю матрицу не хватает мощности. Со временем привыкаешь. Я вообще не замечаю цифр. Я вижу блондинку, брюнетку, рыженькую... Кстати... Ты... выпить хочешь?
--Да...
карма: 0

0
Ответов: 47
Рейтинг: 0
#197: 2017-10-24 09:13:35 ЛС | профиль | цитата

Add(Label,9874131,161,42)
{
Left=20
Top=15
Caption="1"
}
Add(Label,1711647,322,42)
{
Left=105
Top=15
Caption="2"
}
Add(Edit,8820511,161,196)
{
Left=20
Top=80
link(Str,13576154:Text,[])
}
Add(Edit,3219123,322,189)
{
Left=110
Top=80
link(Str,5020150:Text,[])
}
Add(Button,14084475,70,126)
{
Left=20
Top=45
Width=135
link(onClick,2099159:doEvent1,[])
}
Add(Clipboard,13576154,161,98)
{
Point(PutText)
link(PutText,9874131:Caption,[])
}
Add(Clipboard,5020150,322,140)
{
Point(PutText)
link(PutText,1711647:Caption,[])
}
Add(Hub,2099159,112,126)
{
OutCount=3
link(onEvent1,13576154:doPutText,[(138,132)(138,104)])
link(onEvent2,8820511:doText,[(144,139)(144,202)])
link(onEvent3,4648770:doBeep,[])
}
Add(hcBeep,4648770,203,140)
{
Freq=0
Duration=1500
link(onBeep,1549871:doEvent1,[])
}
Add(Hub,1549871,266,140)
{
link(onEvent1,5020150:doPutText,[])
link(onEvent2,3219123:doText,[(284,153)(284,195)])
}

Почему так происходит? При наличии в программе двух элементов Буфер обмена Windows один из них работает некоректно

Пауза между занесением в буфер необходима, знаю что без нее все работает

Ну или что использовать для паузы между командами, какой элемент?

Редактировалось 6 раз(а), последний 2017-10-24 09:48:42
карма: 0

0
Ответов: 8886
Рейтинг: 823
#198: 2017-10-24 10:44:53 ЛС | профиль | цитата
SaturN26, вы неудачно выбрали элемент для паузы
Схемы надо оформлять не только тегами "Скролл", но и тегом "Код", -- при открытии они автоматом копируются, что удобно для ваших коллег:


Add(Label,9874131,329,77)
{
Left=20
Top=15
Caption="1"
}
Add(Label,1711647,490,77)
{
Left=105
Top=15
Caption="2"
}
Add(Edit,8820511,329,231)
{
Left=20
Top=80
link(Str,13576154:Text,[])
}
Add(Edit,3219123,490,224)
{
Left=110
Top=80
link(Str,5020150:Text,[])
}
Add(Button,14084475,238,161)
{
Left=20
Top=45
Width=135
link(onClick,2099159:doEvent1,[])
}
Add(Clipboard,13576154,329,133)
{
Point(PutText)
link(PutText,9874131:Caption,[])
}
Add(Clipboard,5020150,490,175)
{
Point(PutText)
link(PutText,1711647:Caption,[])
}
Add(Hub,2099159,280,161)
{
OutCount=3
link(onEvent1,13576154:doPutText,[(306,167)(306,139)])
link(onEvent2,8820511:doText,[(312,174)(312,237)])
link(onEvent3,719391:doTimer,[])
}
Add(Hub,1549871,434,175)
{
link(onEvent1,5020150:doPutText,[])
link(onEvent2,3219123:doText,[(452,188)(452,230)])
}
Add(Timer,719391,357,175)
{
Enable=1
AutoStop=1
link(onTimer,1549871:doEvent1,[])
}

карма: 19

0
Ответов: 47
Рейтинг: 0
#199: 2017-10-24 10:51:43 ЛС | профиль | цитата
Спасибо Леонид, пойду экспериментировать.
карма: 0

0
Ответов: 47
Рейтинг: 0
#200: 2017-10-31 10:33:01 ЛС | профиль | цитата
Как временно заблокировать клавиатуру с мышкой, пока выполняется макрос
карма: 0

0
Ответов: 4621
Рейтинг: 746
#201: 2017-10-31 13:14:33 ЛС | профиль | цитата
В этом компоненте есть - /topic/54830
карма: 26

0
Ответов: 37
Рейтинг: 0
#202: 2017-11-23 10:44:31 ЛС | профиль | цитата
Думаю, что ответ на мой вопрос -- "нет", но всё же: возможно ли в компоненте HilightMemo сделать подсвечиваемым многострочный паскалевский комментарий {...}, как это реализовано в редакторе InlineCode, в среде HiAsm?

Add(MainForm,5503280,70,56)
{
Width=623
Height=702
}
Add(HilightMemo,6048016,140,56)
{
Width=615
Height=668
Align=5
Font=[Courier New,8,0,0,1]
Strings=#15:unit HiAsmUnit;|0:|9:interface|0:|23:uses kol, Share, Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|0:|5: end;|0:|14:implementation|0:|4:end.|19:{Это многострочный |12:комментарий}|
HilightStrings=#7:,=Red=B|7::=Red=B|7:;=Red=B|7:@=Red=B|10:[=Maroon=B|10:]=Maroon=B|7:^=Red=B|7:-=Red=B|7:+=Red=B|7:<=Red=B|7:>=Red=B|11://*=Green=C|10:0=Maroon=B|10:1=Maroon=B|10:2=Maroon=B|10:3=Maroon=B|10:4=Maroon=B|10:5=Maroon=B|10:6=Maroon=B|10:7=Maroon=B|10:8=Maroon=B|10:9=Maroon=B|15:absolute=Blue=B|15:abstract=Blue=B|12:alias=Blue=B|14:{and }=Black=B|15:{array }=Blue=B|13:{as }=Black=B|13:{asm }=Blue=B|16:assembler=Blue=B|13:{at }=Black=B|16:automated=Blue=B|13:begin=Black=B|14:boolean=Blue=B|15:{case }=Black=B|12:cdecl=Blue=B|16:character=Blue=B|12:class=Blue=B|13:const=Black=B|18:constructor=Blue=B|14:cppdecl=Blue=B|14:default=Blue=B|17:destructor=Blue=B|13:dispid=Blue=B|20:dispinterface=Blue=B|14:dispose=Blue=B|14:{div }=Black=B|13:{do }=Black=B|13:double=Blue=B|14:downto=Black=B|14:dynamic=Blue=B|12:else=Black=B|9:end=Red=B|13:except=Blue=B|13:{exit }=Red=B|13:export=Blue=B|14:exports=Blue=B|15:external=Blue=B|14:false=Maroon=B|13:{far }=Blue=B|12:far16=Blue=B|14:{file }=Blue=B|19:finalization=Blue=B|14:finally=Blue=B|14:{for }=Black=B|14:forward=Blue=B|16:function=Black=B|10:goto=Red=B|13:{if }=Black=B|21:implementation=Blue=B|13:{in }=Black=B|15:{index }=Blue=B|16:inherited=Blue=B|21:initialization=Blue=B|13:inline=Blue=B|14:integer=Blue=B|16:interface=Blue=B|13:{is }=Black=B|12:label=Blue=B|14:library=Blue=B|15:{local }=Blue=B|14:{mod }=Black=B|14:{name }=Blue=B|11:near=Blue=B|13:{new }=Blue=B|12:{nil }=Red=B|16:nodefault=Blue=B|19:nostackframe=Blue=B|14:{not }=Black=B|13:{null }=Red=B|16:{object }=Blue=B|13:{of }=Black=B|17:oldfpccall=Blue=B|12:{on }=Blue=B|15:operator=Blue=B|13:{or }=Black=B|13:{out }=Blue=B|15:override=Blue=B|15:owerload=Blue=B|13:packed=Blue=B|13:pascal=Blue=B|14:private=Blue=B|17:procedure=Black=B|14:program=Blue=B|15:property=Blue=B|16:protected=Blue=B|13:public=Blue=B|16:published=Blue=B|12:raise=Blue=B|14:{read }=Blue=B|13:readln=Blue=B|14:{real }=Blue=B|13:record=Blue=B|15:register=Blue=B|18:reintroduce=Blue=B|13:repeat=Blue=B|15:requires=Blue=B|21:resourcestring=Blue=B|15:safecall=Blue=B|14:{self }=Blue=B|13:{set }=Blue=B|10:shl=Blue=B|10:shr=Blue=B|16:softfloat=Blue=B|14:stdcall=Blue=B|13:stored=Blue=B|13:string=Blue=B|15:{then }=Black=B|16:threadvar=Blue=B|13:{to }=Black=B|13:true=Maroon=B|13:{try }=Blue=B|14:{type }=Blue=B|17:unassigned=Blue=B|14:{unit }=Blue=B|12:until=Blue=B|11:uses=Blue=B|14:{var }=Black=B|14:varargs=Blue=B|14:variant=Blue=B|14:virtual=Blue=B|13:while=Black=B|14:{with }=Blue=B|12:write=Blue=B|14:writeln=Blue=B|14:{xor }=Black=B|
HilightFont=[Courier New,8,0,0,1]
}
Add(InlineCode,10095970,140,119)
{
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|0:|5: end;|0:|14:implementation|0:|4:end.|20:{"Это многострочный |12:комментарий}|0:|
}

карма: 0

0
Ответов: 2059
Рейтинг: 131
#203: 2017-11-23 12:20:39 ЛС | профиль | цитата
Fangir, рассмотри такой вариант http://forum.hiasm.com/topic/63260/6

Редактировалось 1 раз(а), последний 2017-11-23 12:22:11
карма: 6

0
Ответов: 37
Рейтинг: 0
#204: 2017-11-23 12:25:35 ЛС | профиль | цитата
Да! Спасибо, уже рассматриваю. Где-то на форуме видел Вашу реплику, про без-dll-вскую версию Scintilla. Но компонент пока не нашел. Спасибо.

--- Добавлено в 2017-11-23 12:27:12

Перешел по ссылке и увидел . Спасибо. Скачиваю.

Редактировалось 1 раз(а), последний 2017-11-23 12:27:12
карма: 0

0
Ответов: 47
Рейтинг: 0
#205: 2018-02-12 09:48:40 ЛС | профиль | цитата
Использую функцию для окна поплавок. Как сделать что бы окно было поверх только определенных окон (конкретно только одного) а не всех?
карма: 0

0
Ответов: 2059
Рейтинг: 131
#206: 2018-02-12 19:41:35 ЛС | профиль | цитата
Вот такой вопрос:
Нужна консоль, кто нибудь занимался? (Чтоб велосипед не изобретать).
Такое известно:

Add(MainForm,2953706,21,105)
{
Width=570
Height=217
}
Add(InlineCode,9268460,308,84)
{
WorkPoints=#6:doWork|
EventPoints=#6:onTrue|0:|
DataPoints=#6:Param1|6:Param2|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Windows,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|8: |10: public|21: Param1: THI_Event;|22: Param2: THI_Event; |19: onTrue: THI_Event;|3: |49: Procedure doWork(var _Data:TData; Index:Word); |0:|5: end;|0:|2: |15: implementation|0:|3: |29:Procedure THiAsmClass.doWork;|0:|0:|0:|3:var|12: s: string;|5:begin|15: AllocConsole;|5: try|23: SetConsoleCP(1251);|29: SetConsoleOutputCP(1251);|51: Write('Введите любое слово и нажмите ENTER: ');|14: Readln(s);|28: writeln('Вы ввели ',s );|40: Write('Нажмите ENTER для выхода: ');|11: readln;|9: finally|16: FreeConsole;|6: end;|1: |4:end;|0:|0:|4:end.|
}
Add(Button,575765,224,84)
{
Left=20
Top=30
link(onClick,9268460:doWork,[])
}
Да, все получаю и в ответ туда вешаю, а что нибудь поизящней, как в Half-Life 2, или подобного нет?
Через вот такое:
Add(Edit,10062559,252,77)
{
Left=250
Top=75
}

не греет.
Анимация - излишне, и экран не обязательно чёрный, или прозрачный, и буковки не обязательно зелёные.

Редактировалось 9 раз(а), последний 2018-02-13 01:23:35
карма: 6

0
Ответов: 47
Рейтинг: 0
#207: 2018-02-28 11:54:56 ЛС | профиль | цитата
Здравствуйте! Может кто знает как сделать просмоторщик DXF файлов или типа конвертера в bmp.
карма: 0

0
Ответов: 1821
Рейтинг: 168
#208: 2018-02-28 16:20:38 ЛС | профиль | цитата
SaturN26, посмотрите здесь, возможно, пригодится

Редактировалось 1 раз(а), последний 2018-02-28 16:21:18
карма: 5

0
Ответов: 37
Рейтинг: 0
#209: 2020-11-23 12:17:20 ЛС | профиль | цитата
Здравствуйте. Помогите, пожалуйста, разобраться с фильтром стандартного диалога сохранения файла. Фильтр устанавливается при первом обращении из контекстного меню. Но при последующих обращениях значения не меняются (до перезапуска программы). Собственно вот схема:

Add(MainForm,2953706,154,133)
{
Width=155
Height=36
Cursor=8
Caption="ScreenCapt"
BorderStyle=0
DragForm=0
Point(Handle)
link(onCreate,5194352:doWork1,[(198,153)(198,183)(137,183)])
}
Add(ScreenShort,8460492,287,308)
{
UseRegion=1
Point(Region)
link(onCapture,15878913:doPutBitmap,[])
link(Region,15603908:Result,[])
}
Add(ChildForm,6692338,259,126)
{
link(onEvent1,15014201:doEvent1,[(375,132)(375,366)(73,366)(73,265)])
link(onEvent2,8126837:doEvent,[])
}
BEGIN_SDK
Add(EditMulti,15431706,21,21)
{
EventCount=2
WorkCount=2
VarCount=5
link(Var1,3420978:Handle,[(27,165)(62,165)])
link(Var2,3420978:Left,[(34,165)(69,165)])
link(Var3,3420978:Top,[(41,165)(76,165)])
link(Var4,3420978:Width,[(48,165)(83,165)])
link(Var5,3420978:Height,[(55,165)(90,165)])
link(doWork1,3420978:doVisible,[(39,27)(39,104)])
link(doWork2,3420978:doAlphaBlendValue,[(39,34)(39,111)])
}
Add(MainForm,3420978,56,70)
{
Left=35
Top=105
Color=65280
Cursor=8
Hint="Двойной Щелчок скриншот в буфер обмена, Щелчок Правой Сохранение буфера в файл"
AlphaBlendValue=127
BorderStyle=7
DragForm=0
Point(Handle)
Point(Left)
Point(Top)
Point(Width)
Point(Height)
Point(doVisible)
Point(onDblClick)
Point(onMouseDown)
Point(doAlphaBlendValue)
link(onDblClick,15431706:onEvent1,[(208,97)(208,27)])
link(onMouseDown,15431706:onEvent2,[(208,104)(208,34)])
}
END_SDK
Add(RGN_Rect,15603908,294,259)
{
Point2AsOffset=0
link(Point1,11092645:Point,[(300,247)(272,247)])
link(Point2,7833549:Point,[])
}
Add(PointXY,11092645,266,203)
{
link(X,6692338:Var2,[])
link(Y,6692338:Var3,[])
}
Add(PointXY,7833549,301,203)
{
link(X,6692338:Var4,[(307,181)(286,181)])
link(Y,6692338:Var5,[(314,181)(293,181)])
}
Add(Hub,15014201,84,259)
{
OutCount=3
link(onEvent1,15603908:doCreateRect,[])
link(onEvent2,12545335:doClear,[(119,272)(119,293)])
link(onEvent3,1094139:doClear,[(112,279)(112,335)])
}
Add(Hub,10614647,189,280)
{
link(onEvent1,6222304:doWork2,[])
link(onEvent2,8460492:doCapture,[(280,293)(280,314)])
}
Add(Memory,12545335,133,280)
{
Default=Integer(0)
link(onData,10614647:doEvent1,[])
}
Add(Memory,1094139,133,322)
{
Default=Integer(1)
link(onData,6222304:doWork3,[(235,328)])
}
Add(HubEx,6222304,231,280)
{
link(onEvent,6692338:doWork1,[(245,286)(245,132)])
}
Add(Clipboard,15878913,329,301)
{
}
Add(WinTools,8424064,154,203)
{
link(Handle,2953706:Handle,[])
}
Add(CheckBox,15176512,84,210)
{
Left=5
Cursor=2
Hint="Поверх Всех Окон"
Checked=0
Caption="PopUp"
link(onCheck,5194352:doWork2,[])
}
Add(HubEx,5194352,133,210)
{
link(onEvent,8424064:doPopup,[])
}
Add(Label,11800485,84,133)
{
Left=70
Width=20
Height=20
Color=65280
Font=[MS Sans Serif,12,1,0,1]
Cursor=2
Caption="—"
AutoSize=1
Alignment=2
link(onClick,2953706:doMinimize,[(135,139)(135,153)])
}
Add(Label,13305857,84,173)
{
Left=100
Width=20
Height=20
Color=255
Font=[MS Sans Serif,12,1,0,1]
Cursor=2
Caption="X"
AutoSize=1
Alignment=2
link(onClick,2953706:doClose,[(135,179)(135,160)])
}
Add(IndexToChanel,8126837,385,133)
{
link(onEvent2,9965293:doPopupHere,[])
}
Add(PopupMenu,9965293,427,140)
{
Menu=#3:BMP|4:JPEG|3:GIF|4:TIFF|3:PNG|
TranspIcon=1
link(onClick,2684341:doEvent1,[])
}
Add(Img_GDIFileProcessor,15211575,749,126)
{
Point(doSaveformat)
link(SBitmap,9177576:Var,[])
}
Add(SDialog,3434106,644,175)
{
Filter="Точечный Рисунок BMP|*.bmp|Изображение в формате JPG|*.jpeg|Изображение в формате GIF|*.gif|Изображение в формате TIFF|*.tiff|Изображение в формате PNG|*.png|All|*.*"
Title="Сохранить Буфер в Файл"
Point(doFilter)
Point(doFileName)
Point(FileName)
Point(StartDir)
link(onExecute,15211575:doSaveTo,[(734,181)(734,139)])
}
Add(Time,13872396,532,266)
{
Format="Y_M_D_h_m_s"
}
Add(StrCat,109821,525,308)
{
Str1="ScreenSchot_"
link(onStrCat,3434106:doFileName,[(622,314)(622,195)])
link(Str2,13872396:FormatTime,[])
}
Add(LineBreak,2385616,336,343)
{
Type=1
Color=16711935
link(Data,15878913:Bitmap,[])
Primary=[9177576,420,-245]
}
Add(StrList,11916909,525,175)
{
Strings=#26:Точечный Рисунок BMP|*.bmp|32:Изображение в формате JPG|*.jpeg|31:Изображение в формате GIF|*.gif|33:Изображение в формате TIFF|*.tiff|31:Изображение в формате PNG|*.png|
Point(doGetString)
Point(onGetString)
link(onGetString,16003179:doEvent1,[])
}
Add(Hub,2684341,476,140)
{
OutCount=4
link(onEvent1,15211575:doSaveformat,[])
link(onEvent2,11916909:doGetString,[(508,153)(508,209)])
link(onEvent3,109821:doStrCat,[(503,160)(503,314)])
link(onEvent4,3434106:doExecute,[(573,167)(573,181)])
}
Add(TrackBar,72674,154,91)
{
Left=1
Top=20
Width=127
Height=10
Cursor=14
Hint="Прозрачность Области Захвата"
HintPosition=0
Max=255
TickCount=5
Position=127
link(onPosition,6692338:doWork2,[(221,97)(221,139)])
}
Add(Hub,16003179,574,182)
{
link(onEvent1,3434106:doFilter,[])
link(onEvent2,10109852:doMessage,[(615,195)(615,223)])
}
Add(Message,10109852,644,217)
{
}
Add(InfoTip,7846847,420,42)
{
Info=#27:Фильтр в Диалоге Сохранения|28:При каждом обращении из меню|15:должен меняться|42:Но он меняется только при первом обращении|
Font=[MS Sans Serif,8,0,255,1]
Width=295
Height=214
}


Редактировалось 2 раз(а), последний 2020-11-23 12:29:26
карма: 0

0
Ответов: 8886
Рейтинг: 823
#210: 2020-11-23 13:15:42 ЛС | профиль | цитата
Fangir, перед сохранением надо преобразовать в нужный формат используя точку
*.ini писал(а):
doConvert=Конвертирует файл одного из форматов - BMP, JPEG, GIF, TIFF, PNG, ICON, EMF, WMF, в файл формата, указанного в Saveformat ARG(FileName, FileNameNew)

карма: 19

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)