EditEx - HiAsm

Форумы Делаем компонентыEditEx ← Ctrl123Ctrl →

Этот топик читают: Гость

Ответов: 5227

Рейтинг: 588

#16: 2022-06-19 12:26:49 ЛС | профиль | цитата

Понял у меня опция была включена в настройках hiasm по оптимизации схемы
sla8a, попробую

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

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 284

Рейтинг: 23

#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

карма: 2

Установочные пакеты HiAsm + Новые иконки Hight Assembler

Ответов: 490

Рейтинг: 162

#18: 2022-06-19 17:26:19 ЛС | профиль | цитата

Картинки индексов DLL

ImageRes.jpg

Shell32.jpg

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

карма: 4

Ответов: 284

Рейтинг: 23

#19: 2022-06-19 18:09:53 ЛС | профиль | цитата

tig-rrr писал(а):

Картинки индексов DLL

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

Редактировалось 1 раз(а), последний 2022-06-19 18:15:02

карма: 2

Установочные пакеты HiAsm + Новые иконки Hight Assembler

Ответов: 698

Рейтинг: 143

#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/

карма: 15

Ответов: 5227

Рейтинг: 588

#21: 2022-06-19 21:06:24 ЛС | профиль | цитата

envoy_sky писал(а):

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

кто то не так давно обещал к ImageBar(у) линеечек напилить, не дождались

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 284

Рейтинг: 23

#22: 2022-06-19 21:24:28 ЛС | профиль | цитата

andrestudio писал(а):

кто то не так давно обещал к ImageBar(у) линеечек напилить

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

Редактировалось 1 раз(а), последний 2022-06-19 21:45:12

карма: 2

Установочные пакеты HiAsm + Новые иконки Hight Assembler

Голосовали:

andrestudio

Ответов: 5227

Рейтинг: 588

#23: 2022-06-19 22:08:07 ЛС | профиль | цитата

Во, уже что то. Пока не смотрел но спасибо.

Блин не получается в редакторе форм получить размер шрифта, только имя получаю.
Привязки не получается к Run-Time
Кто знает как в desing-time получить все свойства шрифта

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 490

Рейтинг: 162

#24: 2022-06-19 22:18:47 ЛС | профиль | цитата

envoy_sky писал(а):

(схемой не поделитесь?)

Нет схемы.jpg

карма: 4

Ответов: 5227

Рейтинг: 588

#25: 2022-06-20 01:21:39 ЛС | профиль | цитата

Ну вроде что то получилось
В desing-time меняется только имя и размер шрифта
dll в папку draw кому нужно
компонент в прищепке

Редактировалось 1 раз(а), последний 2022-06-20 01:21:54

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 5227

Рейтинг: 588

#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,[])
}