Показаны сообщения с ярлыком VCL. Показать все сообщения
Показаны сообщения с ярлыком VCL. Показать все сообщения
суббота, 29 июня 2013 г.

О "тормозах" в FireMonkey

›
Зачем создавать TMatrix (тем более, что она обычно - Identity) или TPosition в КАЖДОМ объекте? Или я отстал от жизни? Я вот с VGScene про...
пятница, 31 мая 2013 г.

О VCL

›
Под влиянием "новомодных" тенденций слышу иногда "ах VCL это уже не модно, ах он должен вымереть как динозавры". Если...
пятница, 17 мая 2013 г.

Чудесный ужас (или - все допускают ошибки)...

›
Нет. Я конечно очень уважаю "Остап Ибрагимыча" (разработчиков Borland'а). И это не пустые слова. Мне до их уровня - ещё расти...
суббота, 27 апреля 2013 г.

А ещё есть модуль с DockTree в котором поправлены утечки и проезды по памяти

›
Живёт тут -  https://www.box.com/s/p97j0zo8y3zw8puruo2k Или тут -  https://sourceforge.net/p/rumtmarc/code-0/HEAD/tree/trunk/l3DockTree.pa...

Почему я вдруг говорю о правках в VCL?

›
Сразу скажу, что далеко не все правки мои лично. И более того - многие люди, которые их делали - работают уже в иных организациях, нежели ч...
2 комментария:

Ещё правки VCL (23)

›
function TCustomEdit.GetSelStart: Integer; {V} // - не работает на NT 4.0 begin   //SendMessage(Handle, EM_GETSEL, Longint(@Result), 0);...

Ещё правки VCL (22)

›
procedure TCustomMaskEdit.CMEnter(var Message: TCMEnter); begin   if IsMasked and not (csDesigning in ComponentState) then   begin    ...

Ещё правки VCL (21)

›
procedure TCustomMaskEdit.WMSetFocus(var Message: TWMSetFocus); begin   inherited;   // во избежание проблем с позиционированием курсор...

Ещё правки VCL (20)

›
function TransparentStretchBlt(DstDC: HDC; DstX, DstY, DstW, DstH: Integer;   SrcDC: HDC; SrcX, SrcY, SrcW, SrcH: Integer; MaskDC: HDC; M...

Ещё правки VCL (19)

›
function TApplication.IsMDIMsg(var Msg: TMsg): Boolean; begin   Result := False;   if (MainForm <> nil) and (MainForm.FormStyle =...

Ещё правки VCL (18)

›
procedure TApplication.ModalStarted; begin   Restore; {V} //поднятие модального при свернутом окне все раскорячивает   Inc(FModalLevel)...

Ещё правки VCL (17)

›
unction GetTopMostWindows(Handle: HWND; Info: Pointer): BOOL; stdcall;  {V}  // Винда в некоторых случаях (замечено на переключении при...

Ещё правки VCL (16)

›
procedure TApplication.ControlDestroyed(Control: TControl); begin   if FMainForm = Control then FMainForm := nil;   if FMouseControl = ...

Ещё правки VCL (15)

›
function TCustomForm.CloseQuery: Boolean;  {V} var   I: Integer; begin   Result := True;   if Assigned(FOnCloseQuery) then FOnCloseQu...

Ещё правки VCL (14)

›
procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand);  function IsMDIMaximized: Boolean;   var     I: Integer;   begin    ...

Ещё правки VCL (13)

›
procedure TCustomForm.WMSize(var Message: TWMSize); {V}  function IsMDIMaximized: Boolean;   var     I: Integer;   begin    with Appl...

Ещё правки VCL (12)

›
procedure TCustomForm.Activate; var  ActChild : TCustomForm; {V} begin   {V}   if (FormStyle = fsMDIForm) and (FActiveControl <...

Ещё правки VCL (11)

›
procedure TCustomForm.WndProc(var Message: TMessage); var   FocusHandle: HWND;   SaveIndex: Integer;   MenuItem: TMenuItem;   Canvas:...

Ещё правки VCL (10)

›
procedure TCustomFrame.AddActionList(ActionList: TCustomActionList); var   Form: TCustomForm; begin   Form := GetParentForm(Self);   ...
3 комментария:

Ещё правки в VCL (9)

›
procedure TScrollingWinControl.WMSize(var Message: TWMSize); var   NewState: TWindowState; ////////////////////////////////////////////...