घर
Top.Mail.Ru Yandeks.Metrika
मंच: "अन्य";
वर्तमान संग्रह: 2017.06.04;
डाउनलोड करें: [xml.tar.bz2];

नीचे

रेट्रो के प्रेमी। डेल्फी XE8 की उपस्थिति को डेल्फीएक्सएनयूएमएक्स के रूप में बनाएं इसी तरह की शाखाएँ खोजें


maxsvt ©   (2016-05-07 22:22) [0]

Всем привет. Статья не претендует на уникальность, тем не менее, несколько новых вещей есть. Захотелось мне однажды переделать внешний вид Delphi XE8 под свою любимую среду - Delphi7. Полез в интернет, нашел много дельных советов. Итак. Первое. Делаем отстыковку окон. View-Desktop-Classic Unlocked. Дальше - делаем отстыковку дизайнера окон. Тут все сложнее. Опция убрана из настроек дельфи. Нужно изменить ключ HKEY_CURRENT_USER\Software\Embarcadero\BDS\16.0\Form Design\Embedded Designer в False и перезапустить дельфи. Внимание! Отстыковка работает корректно только для VCL форм, для мобильной разработки и FireMonkey все работает корректно только с прикрепленными формами. Но т.к. я работаю только с VCL, то мне гораздо удобнее форму открепить. Дальше - включаем стандартную палитру компонент. Правая кнопка на главном окне - Component. Потом заходим в свойства Tools-Options-Component Toolbar и меняем расположение закладок не по алфавиту, а как в Delphi7. Дальше, убираем лишние кнопки со стандартных тулбаров, добавляем как в Delphi7. Дальше, tools-options-editor options-display-show line numbers убираем галку. tools-options-editor options-color выставляем цвета как привыкли. Теперь Object Inspector. Вот тут они кое-что поломали. Я привык окно дерева обьектов формы пристыковать внутри Object Inspector. То же самое можно сделать и в Delphi XE8. Проблема в том, что в Delphi7 эта пристыковка сохраняется, как и измененные размеры Object Inspector. А в delphi XE8 нет. После каждого перезапуска требуется вручную пристыковать окно, менять размеры. Что бесит. Плюс в самом Object Inspector нельзя убрать настройками панель со ссылкой на Bind Visually и панель, в которой отображается текущее выбранное свойство (которая 100 лет не нужна и только место занимает). Дальше идет уже жесткий хак :) На дельфи7 было написано простое приложение на 15 килобайт. Вот код
program fixoi;

uses windows;

var
 OIHandle: hWnd;
 R: TRect;
 szClass : array[Byte] of Char;

function EnumChildProc(WndCtrl: HWND; lParam: Longint): Boolean; stdcall;
begin
 Result := True;
 GetClassName(WndCtrl,szClass,SizeOf(szClass));
 if szClass = "THotCommands" then
 begin
   GetWindowRect(WndCtrl,R);
   MoveWindow(WndCtrl,R.Left,R.Top,0,0,True);
   ShowWindow(WndCtrl,sw_hide);
 end;
 if szClass = "TDescriptionPane" then
 begin
   GetWindowRect(WndCtrl,R);
   MoveWindow(WndCtrl,R.Left,R.Top,0,0,True);
   ShowWindow(WndCtrl,sw_hide);
 end;
end;

begin
 OIHandle := FindWindow(nil,pchar("Object Inspector"));
 if OIHandle > 0 then
 begin
   GetClassName(OIHandle,szClass,SizeOf(szClass));
   if szClass = "TPropertyInspector" then
   begin
     GetWindowRect(OIHandle,R);
     MoveWindow(OIHandle,R.Left,R.Top,570,800,True);
     EnumChildWindows(OIHandle,@EnumChildProc,0);
   end;
 end;
 OIHandle := FindWindow(nil,pchar("Structure"));
 if OIHandle > 0 then
 begin
   GetClassName(OIHandle,szClass,SizeOf(szClass));
   if szClass = "TStructureViewForm" then
   begin
     GetWindowRect(OIHandle,R);
     MoveWindow(OIHandle,R.Left,R.Top,250,800,True);
   end;
 end;
end.


Дальше нужно только перетащить окно Structure на окно Object Inspector и получаю что хочу. Кстати, кто подскажет, можно и это программно сделать нормально?

संपूर्ण
http://s010.radikal.ru/i311/1605/19/51ab050eedda.png



maxsvt ©   (2016-05-07 22:25) [1]

मैं लिखना भूल गया। मैं उपकरण डेल्फी xe7 में delphi8 के लिए निर्मित आवेदन जोड़ा। Xe8 डाउनलोड करने के बाद, बस इसे एक बार वहां से चलाएं।



Игорь Шевченко ©   (2016-05-07 22:41) [2]

Kulibin



Eraser ©   (2016-05-08 00:05) [3]


> maxsvt © (07.05.16 22:22)

https://delphiaball.co.uk/2016/04/19/delphi-floating-form-designer/



DayGaykin ©   (2016-05-08 00:18) [4]

शायद किसी को पता है कि लाजर में विपरीत कैसे करना है? "



maxsvt ©   (2016-05-08 02:31) [5]

Чего наоборот?



NoUser ©   (2016-05-08 21:20) [6]

> [एक्सएनयूएमएक्स]
добавить пакет anchordockingdsgn и пересобрать IDE ( Меню-Пакеты )



पन्ने: 1 पूरी शाखा

मंच: "अन्य";
वर्तमान संग्रह: 2017.06.04;
डाउनलोड करें: [xml.tar.bz2];

ऊपर









मेमोरी: 0.58 एमबी
समय: 0.012 c
2-1443166282
एंड्री के
2015-09-25 10:31
2017.06.04
कुंजी संयोजन को कैसे लॉक करें।


2-1443376275
द्रमुक
2015-09-27 20:51
2017.06.04
InsertControl और संदेश


15-1462608413
Pavia
2016-05-07 11:06
2017.06.04
परमाणु और अवशोषण


8-1189504147
mrFreeman2007
2007-09-11 13:49
2017.06.04
MediaPlayer में वॉल्यूम नियंत्रण


15-1462648926
maxsvt
2016-05-07 22:22
2017.06.04
रेट्रो के प्रेमी। डेल्फी XE8 की उपस्थिति को डेल्फीएक्सएनयूएमएक्स के रूप में बनाएं





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский