Вверх ↑
Этот топик читают: Гость
Ответов: 5103
Рейтинг: 578
#16: 2022-06-19 12:26:49 ЛС | профиль | цитата
Понял у меня опция была включена в настройках hiasm по оптимизации схемы
sla8a, попробую

envoy_sky,
у меня метрика системы 125%
Посему иконки соответственно увеличины
При инициализации (при запуске приложения) это можно поправить, но после уже нет, даже с перессозданием кнопки

карма: 5
0
Ответов: 160
Рейтинг: 4
#17: 2022-06-19 16:44:28 ЛС | профиль | цитата
Подправил демо схему от andrestudio, теперь работает!
Add(MainForm,2953706,35,49)
{
Width=669
Height=531
Caption="EditEx test v1.1"
}
Add(EditEx,11613979,105,49)
{
Width=651
Align=2
Caption=" Open file"
HelpData="Open file from edit *"
AddBtn=0
BtnIcon=1
IconIdx=3
Text=""
Point(OnClickBtn)
link(OnClickBtn,16530815:doExecute,[])
}
Add(ODialog,16530815,161,63)
{
link(onExecute,11613979:doText2,[(203,69)(203,38)(93,38)(93,62)])
}
Add(Browse,6485791,161,196)
{
link(onBrowse,11008349:doText2,[(205,202)(205,175)(92,175)(92,195)])
}
Add(EditEx,15020701,105,119)
{
Top=24
Width=651
Align=2
Caption=" Save file"
HelpData="Save file from edit *"
AddBtn=0
BtnIcon=2
IconIdx=0
Text=""
Point(OnClickBtn)
link(OnClickBtn,11406189:doExecute,[])
}
Add(SDialog,11406189,161,133)
{
link(onExecute,15020701:doText2,[(205,139)(205,108)(94,108)(94,132)])
}
Add(EditEx,11008349,105,182)
{
Top=48
Width=651
Align=2
Caption=" Select folder"
HelpData="Select folder from edit files *"
AddBtn=0
BtnIcon=3
IconIdx=0
Text=""
Point(OnClickBtn)
link(OnClickBtn,6485791:doBrowse,[])
}
Add(EditEx,15282237,231,49)
{
Top=414
Width=651
Align=4
Caption=" Open file"
HelpData="Open file from edit *"
AddBtn=0
BtnIcon=1
IconIdx=3
Text=""
Alignment=1
Point(OnClickBtn)
link(OnClickBtn,8209799:doExecute,[])
}
Add(ODialog,8209799,287,63)
{
link(onExecute,15282237:doText2,[(329,69)(329,38)(219,38)(219,62)])
}
Add(Browse,5401036,287,196)
{
link(onBrowse,7430596:doText2,[(331,202)(331,175)(218,175)(218,195)])
}
Add(EditEx,10555466,231,119)
{
Top=438
Width=651
Align=4
Caption=" Save file"
HelpData="Save file from edit *"
AddBtn=0
BtnIcon=2
IconIdx=0
Text=""
Alignment=1
Point(OnClickBtn)
link(OnClickBtn,5871219:doExecute,[])
}
Add(SDialog,5871219,287,133)
{
link(onExecute,10555466:doText2,[(331,139)(331,108)(220,108)(220,132)])
}
Add(EditEx,7430596,231,182)
{
Top=462
Width=651
Align=4
Caption=" Select folder"
HelpData="Select folder from edit files *"
AddBtn=0
BtnIcon=3
IconIdx=0
Text=""
Alignment=1
Point(OnClickBtn)
link(OnClickBtn,5401036:doBrowse,[])
}
Add(EditEx,7105579,231,294)
{
Left=25
Top=140
Width=390
Caption="Icons from shell"
HelpData="Select icon from shell32.dll"
AddBtn=0
BtnIcon=4
IconIdx=1
ValidIdx=0
Text=""
Point(doSelectIconFromIndex)
Point(OnClickBtn)
link(OnClickBtn,11187712:doWork2,[])
}
Add(CounterEx,16206969,105,266)
{
Max=1000
Default=-1
Point(doPrev)
link(onNext,2036762:doEvent1,[])
}
Add(Button,2869935,42,308)
{
Left=25
Top=305
Width=40
Height=40
Caption="<"
link(onClick,16206969:doPrev,[(92,314)(92,279)])
}
Add(EditEx,8440707,231,252)
{
Left=25
Top=190
Width=390
Caption="Icons from Imageres"
HelpData="Select from ImagesRes.dll"
AddBtn=0
BtnIcon=5
IconIdx=3
ValidIdx=1
Text=""
Point(doSelectIconFromIndex)
Point(OnClickBtn)
link(OnClickBtn,11187712:doWork1,[(284,272)])
}
Add(Button,14389369,42,266)
{
Left=75
Top=305
Width=40
Height=40
Caption=">"
link(onClick,16206969:doNext,[])
}
Add(Hub,2036762,161,266)
{
OutCount=3
link(onEvent1,8440707:doSelectIconFromIndex,[])
link(onEvent2,7105579:doSelectIconFromIndex,[(212,279)(212,314)])
link(onEvent3,9965400:doString,[(198,286)(198,384)])
}
Add(Label,8928804,301,378)
{
Left=130
Top=320
}
Add(FormatStr,9965400,231,378)
{
Mask="Index - %1"
link(onFString,8928804:doText,[])
}
Add(PopupMenu,9384048,301,301)
{
Menu=#4:Open|4:Save|1:-|4:Exit|
}
Add(HubEx,11187712,280,308)
{
link(onEvent,9384048:doPopup,[])
}
Add(EditEx,2108714,231,336)
{
Left=270
Top=315
Width=145
Height=20
Caption="Edit text"
HelpData="test help ->"
AddBtn=0
ValidIdx=0
Text=""
Point(OnClickBtn)
Point(doValidInput)
link(OnClickBtn,11187712:doWork3,[(284,356)])
}
Add(StyleXP,14164755,35,105)
{
}
Add(EditEx,16078175,300,252)
{
Left=25
Top=240
Width=390
Caption="Icons from Imageres"
HelpData="Select from ImagesRes.dll"
AddBtn=0
BtnIcon=5
IconIdx=3
ValidIdx=2
Text=""
Point(doSelectIconFromIndex)
Point(OnClickBtn)
}
Add(Button,7591411,42,350)
{
Left=220
Top=310
Width=30
Height=30
Caption="Idx"
link(onClick,10583483:doNext,[])
}
Add(CounterEx,10583483,105,350)
{
Min=-1
Max=2
link(onNext,2108714:doValidInput,[])
}
Add(EditEx,11015908,44,435)
{
Left=470
Top=145
Width=150
Height=20
Caption="Ф:"
CapPosition=0
HelpData="Фамилия *"
ValidIdx=0
Text=""
}
Add(EditEx,5417156,92,435)
{
Left=470
Top=170
Width=150
Height=20
Caption="И:"
CapPosition=0
HelpData="Имя *"
ValidIdx=0
Text=""
}
Add(EditEx,6927337,142,435)
{
Left=470
Top=195
Width=150
Height=20
Caption="О:"
CapPosition=0
HelpData="Отчество *"
ValidIdx=0
Text=""
}
Add(EditEx,7402617,191,435)
{
Left=470
Top=220
Width=150
Height=20
Caption="Тел:"
CapPosition=0
HelpData="Телефон"
Text=""
}


Редактировалось 2 раз(а), последний 2022-06-19 16:45:35
карма: 0
HiAsm Studio
0
Ответов: 458
Рейтинг: 159
#18: 2022-06-19 17:26:19 ЛС | профиль | цитата
Картинки индексов DLL
ImageRes.jpg
Shell32.jpg

Редактировалось 2 раз(а), последний 2022-06-19 18:03:38
карма: 4

0
Ответов: 160
Рейтинг: 4
#19: 2022-06-19 18:09:53 ЛС | профиль | цитата
tig-rrr писал(а):
Картинки индексов DLL


Вот как все дружно помогаем.
Благодарю за индексы иконок.(схемой не поделитесь?)

Редактировалось 1 раз(а), последний 2022-06-19 18:15:02
карма: 0
HiAsm Studio
0
Ответов: 394
Рейтинг: 63
#20: 2022-06-19 19:38:51 ЛС | профиль | цитата
tig-rrr писал(а):
Картинки индексов DLL

В Windows10 все иконки хранятся в файле C:\Windows\SystemResources\imageres.dll.mun (более 3000)
Посмотреть можно любым редактором ресурсов.
Также https://ip-calculator.ru/blog/ask/gde-raspolozheny-ikonki-prilozhenij-windows-10/
карма: 9

0
Ответов: 5103
Рейтинг: 578
#21: 2022-06-19 21:06:24 ЛС | профиль | цитата
envoy_sky писал(а):
Вот как все дружно помогаем.
Благодарю за индексы иконок.(схемой не поделитесь?)


кто то не так давно обещал к ImageBar(у) линеечек напилить, не дождались
карма: 5
0
Ответов: 160
Рейтинг: 4
#22: 2022-06-19 21:24:28 ЛС | профиль | цитата
andrestudio писал(а):
кто то не так давно обещал к ImageBar(у) линеечек напилить

https://forum.hiasm.com/post/311776
Позже ещё нарежу.
Дома мышка без смены DPI, ей сложно прицеливаться в пиксель

Редактировалось 1 раз(а), последний 2022-06-19 21:45:12
карма: 0
HiAsm Studio
1
Голосовали:andrestudio
Ответов: 5103
Рейтинг: 578
#23: 2022-06-19 22:08:07 ЛС | профиль | цитата
Во, уже что то. Пока не смотрел но спасибо.

Блин не получается в редакторе форм получить размер шрифта, только имя получаю.
Привязки не получается к Run-Time
Кто знает как в desing-time получить все свойства шрифта
карма: 5
0
Ответов: 458
Рейтинг: 159
#24: 2022-06-19 22:18:47 ЛС | профиль | цитата
envoy_sky писал(а):
(схемой не поделитесь?)

Нет схемы.jpg
карма: 4

0
Ответов: 5103
Рейтинг: 578
#25: 2022-06-20 01:21:39 ЛС | профиль | цитата
Ну вроде что то получилось
В desing-time меняется только имя и размер шрифта
dll в папку draw кому нужно
компонент в прищепке



Редактировалось 1 раз(а), последний 2022-06-20 01:21:54
карма: 5
0
Ответов: 5103
Рейтинг: 578
#26: 2022-06-20 06:18:06 ЛС | профиль | цитата
envoy_sky, такая схемка пойдёт
Add(MainForm,1060781,84,133)
{
Width=721
Height=373
Caption="ImgList"
}
Add(StringTable,740573,245,63)
{
Left=190
Top=15
Width=465
Height=290
Flat=1
Point(PHandle)
}
Add(InlineCode,3320836,259,140)
{
WorkPoints=#9:doGetIcon|
DataPoints=#8:ListView|8:FileName|
Code=#26:{ Author -=andrestudio=- }|15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Windows,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|34: ListView,FileName: THI_Event;|51: procedure doGetIcon(var dt: TData; idx: word);|0:|5: end;|1: |63: function ExtractIconEx(lpszFile: PChar; nIconIndex: Integer;|70: var phiconLarge, phiconSmall: HICON; nIcons: UINT): UINT; stdcall;|50: external 'shell32.dll' name 'ExtractIconExA';|0:|14:implementation|0:|32:procedure THiAsmClass.doGetIcon;|3:var|13: i: integer;|15: LV: PControl;|23: Icon32,Icon16: HICON;|13: fn: string;|4: |5:begin|33: LV := ReadControl(ListView,'');|24: LV.LVStyle := lvsIcon;|32: fn := ToStringEvent(FileName);|11: LV.Clear;|26: LV.ImageListNormal.Free;|42: LV.ImageListNormal := NewImageList(nil);|36: LV.ImageListNormal.ImgWidth := 32;|52: LV.ImageListNormal.BkColor := Color2RGB(clWindow);|38: LV.LVBkColor := Color2RGB(clWindow);|42: LV.LVTextBkColor := Color2RGB(clWindow);|84: SendMessage(LV.Handle, LVM_SETIMAGELIST, LVSIL_NORMAL, LV.ImageListNormal.Handle);|17: LV.BeginUpdate;|6: try|9: i:=0;|70: while Integer(ExtractIconEx(PAnsiChar(fn),i,Icon32,Icon16,1))>0 do|10: begin|43: LV.LVItemAdd('Index - '+Int2Str(i));|41: LV.ImageListNormal.AddIcon(Icon32);|34: LV.LVItemImageIndex[i] := i;|13: inc(i);|9: end;|9: except|22: _debug('Error');|7: end;|16: LV.EndUpdate;|20: LV.Invalidate; |4:end;|0:|4:end.|
link(ListView,740573:PHandle,[])
link(FileName,11900013:String,[(272,128)(237,128)(237,184)(202,184)])
}
Add(ListBox,11900013,175,133)
{
Left=20
Top=15
Width=130
Height=290
Strings=#11:shell32.dll|12:imageres.dll|10:ddores.dll|12:netshell.dll|19:Networkexplorer.dll|12:setupapi.dll|10:Wmploc.dll|12:wpdshext.dll|12:compstui.dll|11:ieframe.dll|12:dmdskres.dll|11:dsuiext.dll|12:wiashext.dll|10:comres.dll|
Point(String)
link(onClick,3320836:doGetIcon,[])
}




добавил ресурсы по наводке от Gunta

Редактировалось 3 раз(а), последний 2022-06-20 07:03:07
карма: 5
3
Голосовали:tig-rrr, makcum15, ric
Ответов: 160
Рейтинг: 4
#27: 2022-06-20 11:45:46 ЛС | профиль | цитата
andrestudio писал(а):
такая схемка пойдёт

Пойдёт, спасибо большое.
карма: 0
HiAsm Studio
0
Ответов: 458
Рейтинг: 159
#28: 2022-06-20 12:25:38 ЛС | профиль | цитата
andrestudio, в EditEx4.zip ругается при компиляции
Type_.jpg
карма: 4

0
Ответов: 160
Рейтинг: 4
#29: 2022-06-20 14:54:46 ЛС | профиль | цитата
tig-rrr писал(а):
ругается при компиляции

https://forum.hiasm.com/getfile/39514
Исправил, но автору видней, как надо точно.

Редактировалось 4 раз(а), последний 2022-06-20 15:08:39
карма: 0
HiAsm Studio
0
Ответов: 218
Рейтинг: 14
#30: 2022-06-21 08:35:42 ЛС | профиль | цитата
В редакторе форм поле не отображается, так должно быть?


карма: 3

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