Картинка в кнопке XP

Форумы Новые компонентыКартинка в кнопке XP ← Ctrl1Ctrl →

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

Ответов: 141

Рейтинг: 11

#1: 2012-12-02 15:09:29 ЛС | профиль | цитата

Здравствуйте.
Вот есть у нас компонент картинка в кнопке, но он не в форме XP, нету ли такой же кнопки с картинкой но в стиле XP?
Очень не удобно и не красиво)
Тяжело ли сделать такой компонент?

карма: 0

Разработчик

Ответов: 26163

Рейтинг: 2127

#2: 2012-12-02 15:13:49 ЛС | профиль | цитата

CITRUS писал(а):

Тяжело ли сделать такой компонент?

Тяжело, особенно если система не позволяет этого. Если бы система позволяла это делать, то сделано было бы уже давно

карма: 22

Ответов: 141

Рейтинг: 11

#3: 2012-12-02 15:16:39 ЛС | профиль | цитата

nesco писал(а):

Во многих программах на Delphi видел такие кнопки..
У HiAsm же тоже Delphi компилятор, как то же можно =(

карма: 0

Разработчик

Ответов: 26163

Рейтинг: 2127

#4: 2012-12-02 15:25:07 ЛС | профиль | цитата

CITRUS писал(а):

Во многих программах на Delphi видел такие кнопки..

Это специальные библиотеки, у нас нет таких. К тому же, объектная библиотека на Delphi -- VСL, а у нас KOL, те совместить библиотеки будет очень и очень сложно. К тому же, такую кнопку можно попытаться сделать самому, надо только добраться до файлов стиля XP, найти там примитивы кнопки, распарсить эти картинки и отрисовать их потом у себя при помощи ImgBtn
------------ Дoбавленo в 15.25:
И второе -- пакет сделан для решения простых задач, и всякие красивости в нем делаются по желанию, тк не являются базовыми. На данный момент, у меня нет такого желания

карма: 22

Ответов: 1821

Рейтинг: 168

#5: 2012-12-02 15:27:15 ЛС | профиль | цитата

Индуская кнопка:

#sha
Add(MainForm,7602740,266,105)
{
 Name="parent"
}
Add(Button,11436880,308,105)
{
 Left=110
 Top=100
 Width=150
 Height=25
 Caption="Индуская кнопка"
}
Add(ChildForm,5447491,308,147)
{
}
BEGIN_SDK
  Add(EditMulti,15061750,21,21)
  {
  }
  Add(MainForm,6492999,35,105)
  {
   Left=35
   Top=105
   Width=16
   Height=16
   Enabled=1
   BorderStyle=0
   TransparentColor=0
   ShiftLeft=125
   ShiftTop=134
   TransparentManager="iconmgr"
   FormFastening="parent.parent"
  }
  Add(TransparentManager,15982368,35,140)
  {
   Name="iconmgr"
   TransparentMode=1
   TransparentType=1
   Picture=[ZIP4204000078DA8593CB6B135114C623BA96E042684DD2699AA4490AA2D5BF2095111457AE6B17715B57EA3F6037C28C9BBA0B8A21A2427D2CB4540DB420EA58AB4DA5B40D267D18CDA3B6A649CC74F29A7CDE3399E92349F1303FEEB9DFF9BE810BF7FA2EF98E98B4F231DC0CB3CE2113673A4C03367F7FB4C16EC1F85ACA1288F096C0AC680D4424464E47D235DE744059EFCF71B67BDF84CEA731F9F85406C7E68A30C76A30C76B5A4F1ACDACCCC3E0F6666DC179CEF6603E6409277162A9848E04D0C9A0B5E3A7BE92162D813CE4A58C91EF7AB820D8275370AEA970FD027ADEACC27AEEF63E1C4C73260117F3D827D3E80A2D0894E51E4779C7AB35F974BC8CB369E0E4DB467635B101A3A8278D666752C029E6758CFF90BB9F44F9EEB1B8D83FF30703EBD068CE36FF63E03734FA3F67611F8B89F6172BD2F965059737A161E49762192C7E4F6B506FE40D1F6528EB7899C80D6DA8B8BA05F8B7D072EE66C8435ECAF4B0AC732299BB965571BD80FF93DFED29E39C48E55CE175693855C148111891DB738BD622F679865365B8C219A9776A531C8C6D635481C65DA57106A31F2DB5D1188331199475BFCBF2BED9822CE66A0856A041DE60193BFB1D4DEFEFE46BF0450A722FCBD21D707F28084371058FCA753CAB01CFDB516DACE4B9C2BC9E8F79C1B87F9EE922E799FE1BF22F97102CAA785D47035547DF076515FE9512BC9F8A21CAEC7D037D3332C7102E2E2AF2CD640581828AF16A5D83FA1BC92A2EB099F7CBB6E065DE83DE61DF578567880C8991D39174ADE5FDFE0312CA9A71]
  }
END_SDK
Add(StyleXP,8991380,266,147)
{
}

карма: 5

Голосовали: nesco

Разработчик

Ответов: 26163

Рейтинг: 2127

#6: 2012-12-02 15:30:34 ЛС | профиль | цитата

sаmakacd писал(а):

Индуская кнопка

Оригинальное решение

карма: 22

Ответов: 1821

Рейтинг: 168

#7: 2012-12-02 15:33:16 ЛС | профиль | цитата

nesco писал(а):

Оригинальное решение

nesco, спасибо

карма: 5

Ответов: 141

Рейтинг: 11

#8: 2012-12-02 16:17:49 ЛС | профиль | цитата

sаmakacd писал(а):

Мне без разницы какая ^^
Главное что работает)
Спасибо)

карма: 0

Гость

Ответов: 17029

Рейтинг: 0

#9: 2012-12-02 16:26:24 правка | ЛС | профиль | цитата

Редактировалось 11 раз(а), последний 2025-01-08 05:48:57

карма: 0

Ответов: 141

Рейтинг: 11

#10: 2012-12-02 17:27:36 ЛС | профиль | цитата

37.45.238.11 писал(а):

Только на картинку не жми, чтоб не разочароваться

Сделать при клике такое же действие и всё)

карма: 0

Ответов: 32

Рейтинг: -2

#11: 2018-03-23 20:34:50 ЛС | профиль | цитата

Можно сделать по другому -


Add(MainForm,7602740,329,63)
{
 Name="parent"
}
Add(Message,6084914,469,63)
{
 Message="            Ошибка"
 link(onMessage,7602740:doClose,[(513,69)(513,79)(317,79)(317,90)])
}
Add(Image,7265604,119,84)
{
 Left=90
 Top=70
 Width=160
 Height=35
 ViewStyle=1
 Picture=[ZIP3609000078DA73F235E36400033320D600620928666450804840E591C1FFFFFFC9C6B8002566229B4D8E1C35CCA7D40E62F4A2AB211590E207103870E7005118D94C6A9B8F6E36ADCC87A9470F277C34B1E623ABC5671EBA5F890D7F5CFE4136175B58526A3EBA19D4369F505A20D64C906A1846091F22DCCF80A21B13536A3EA9EE87DB4145F3C9CDE7F8D5FE270A1332BF014823636ABBBF012208C6F4347FA8840FADD20F39F51731F51B3D3000C67C6E2E]
 Point(onMouseEnter)
 Point(onMouseLeave)
 link(onClick,6084914:doMessage,[(310,90)(310,69)])
 link(onMouseEnter,8285795:doData,[(198,97)(198,90)])
 link(onMouseLeave,3247244:doData,[(198,104)(198,146)])
}
Add(Image,13415797,147,154)
{
 Left=5
 Top=5
 Width=115
 Height=25
 Hint="Обычное сост"
 Picture=[ZIP3609000078DA73F235E36400033320D600620928666450804840E591C1FFFFFFC9C6B8002566229B4D8E1C35CCA7D40E62F4A2AB211590E207103870E7005118D94C6A9B8F6E36ADCC87A9470F277C34B1E623ABC5671EBA5F890D7F5CFE4136175B58526A3EBA19D4369F505A20D64C906A1846091F22DCCF80A21B13536A3EA9EE87DB4145F3C9CDE7F8D5FE270A1332BF014823636ABBBF012208C6F4347FA8840FADD20F39F51731F51B3D3000C67C6E2E]
}
Add(Image,16734575,214,13)
{
 Left=240
 Top=10
 Width=115
 Height=25
 Hint="Активное"
 Picture=[ZIP3609000078DADD966B50546518C7FF7EA9C999CC320CB3699C6E8363831F4A46D0C6A6B2A92647C40851C2B42930F00238DCBC04B272D544F09268463A898A82882C81A1A2825CDD8BC2DECF39BB2CAC2C7BBF004E1FEC39E7ACE0383AD3D73A33BF79DEF77DDEE7B7CFD973D9FD6859D873108E302284080E300573C44420FFE8F1E0C183FF3C3BD3D390BE3989487E2A1901D2FF05195B9291BA2919E5656538161781FD2BE6A33432F4C92C7FCAF829ECA33D07A3E663C3077391B9350DD7F66EC4DD5B8D50B44945DA45E4EDD2C9359E9B52286F3EB6D6D630B1FFE15C4EB1EFF22948E23E43666A0AAEFFB10F86B171689D5EE8086D004D00ADC3059DCB0F9D510B536F1D4CAA56CA7BA071F03937B42E1F3159A77578C0DE336277D237E44F45DBA922E8BD7EA887EDD0581D025A423DEC80522983B9A7062DD7BBB1F4BB0644AFAB84BAE928D48C01B2F6AB30CB1AA01F324333EC24EC1330160EF9823F05B7AA8A61F08D094EED8893A2133A8AC71BD4F87CFD39541496E374C50184E6F560A1A40D4DE5D9D89DF32B22E34EA2F9F7A31834F74333E216EBF9FE461CE0A8FFC2A438A1FFEE330560FC63D0538EF7F2186C76E456C91156D28B053FD463696A2DE2153EC4B45AF1F1DADFF06E9214AFE576A3E06015ACC64EE8AC76B156F03B611CE65094BC06992929E8253FEB13FD06CAE96D1E74CA1438D2DE8F1DCC7DC45FB1E0CB337AAC93F9F075A71B8B2B55F8A479080B3B3CC8AA6E84B2FE10CC86DB54E716FC7A7298C85FB271B5D07FCF59DE3F2EB8193B5D4B8B0351C9CD783FE1323675B991A6BE8FC43BA3587BDB8B980E27227B7DF8A2C789458D43782BF61262E99AA8145DD0515FBC5B3FE282C9CA614FC02FABDE0D8EEF9F722CF935F4FD279ED522A65A8F34FA4E7E54FAB1ABDF85238DAD88CB2EC482E216BC57A547682D8B774A65F8B4F00AFAEEC884F3E61D06F20F907FEFA6D5C2F5559C93907F1C4CC0AF278E99C790C3FD8D2CCD3812147EFC39E841533DF51AB502F336EC47C84916F3A466845C1D46F40D23EE9A07E99AB9443F45B395C5CF9B6385FE15E72530FAC7C1DA443FFF39372C1EFC22B36373AB0DDFCB7DF86B88FC97A4885D1985C5C527F061B71711978CC86BE9422D6385C1EE06435E861C7C1C1C61B16F4BACD0BF92FCDCA37E8A1CC59A6B0CE24FEAB15EEE47CBA01B8DF50D5845FD2FD97B024B14A38838AF835CD609B3C321D4093CE6CF227FFF855CEA7F0C5CC0CB519EA37E1416172A745E94687DE86139EC2F29C0A2F07064941F4296CE8F2CA50D6AAB58C3BBC55ABE4727EED9581C485D25F8B517736022BF917246BB88891820581BDDB37C4F3A252ACA8AB03C32128D4D0D30794785FD0381FD622DEF17CFE59ECD40FE18D15FB71326BA7F8CF4EE30B9787C6274FA0263C249CFFF008BDB7714E41A81D9331A58F74EEE116ABCE0E8BD64B1EA70786B34B2D3E8F92A5B868E8BE5E8BA5082AEBA3DE826F8C8CFBB035118F3B1B67862DFC3F5AEDA3D029D42A47D14E535F9284F0C47767A0AA4DF3E83F3D15350FDD593393B31068D31998B1673B56BA6A22E7E1A6A629FC585B8A9381AF306AAD6BD8DE29541C8D996818E9469506E9F0DD58E59443054DB8385A87E3817D6661241E8DF1604D5B619E8CF7E11AAEC97D097351D4CD15C984AC3A02B9C0BA63402C77236E2745E128E278408BF8D96CA6530E4BF09B6600E58C9AB60F35E11C90D02BB6B2618C92C8AB42E994D63222F184CCECBC40C187E9A0EC38EE7C1ECE4E30B6068CEEC0A0293FFFAFFE27F03CF3F1967EA80]
}
Add(DoData,8285795,217,84)
{
 link(onEventData,7290445:doWork2,[(261,90)(261,80)])
 link(Data,16734575:ImageBitmap,[(223,64)(220,64)])
}
Add(DoData,3247244,217,140)
{
 link(onEventData,7290445:doWork3,[(261,146)(261,114)(172,114)])
 link(Data,13415797:ImageBitmap,[(223,128)(188,128)(188,198)(153,198)])
}
Add(HubEx,7290445,168,74)
{
 Angle=2
 link(onEvent,7265604:doLoad,[(114,80)(114,90)])
}

Картинку как XP ставишь и все! И мучатся не надо !!!

карма: -2

cschanell

Форумы Новые компонентыКартинка в кнопке XP ← Ctrl1Ctrl →


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