-Поиск по дневнику

Поиск сообщений в rss_forum_sources_ru

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 29.07.2007
Записей:
Комментариев:
Написано: 80




Форум на Исходниках.RU


Добавить любой RSS - источник (включая журнал LiveJournal) в свою ленту друзей вы можете на странице синдикации.

Исходная информация - http://forum.sources.ru.
Данный дневник сформирован из открытого RSS-источника по адресу http://forum.sources.ru/yandex.php, и дополняется в соответствии с дополнением данного источника. Он может не соответствовать содержимому оригинальной страницы. Трансляция создана автоматически по запросу читателей этой RSS ленты.
По всем вопросам о работе данного сервиса обращаться со страницы контактной информации.

[Обновить трансляцию]

Мерцание PopupMenu

Вторник, 15 Декабря 2020 г. 22:58 + в цитатник
estra: У меню его в принципе нет, а выставлять его для формы нет никакого смысла.
Вся проблема в методе TMenuItem.MenuChanged, внутри которого есть строка

    if Assigned(FOnChange) then FOnChange(Self, Source, Rebuild);


она вызывает метод MenuItem.SubItemChanged, который на каждый чих пересоздает меню.

    ...
    RebuildHandle;
    ...


Захотим, например, скрыть 20 пунктов в цикле, меню будет 20 раз пересоздано,
отсюда и дикое мерцание...

https://forum.sources.ru/index.php?showtopic=421015&view=findpost&p=3842886


Метки:  

Мерцание PopupMenu

Вторник, 15 Декабря 2020 г. 21:45 + в цитатник
^D^ima: Свойство DoubleBuffered стоит?

https://forum.sources.ru/index.php?showtopic=421015&view=findpost&p=3842882


Метки:  

Как понять, что идея продукта будет прибыльной?

Вторник, 15 Декабря 2020 г. 19:29 + в цитатник
НикитаТеранис:
Цитата Kirill Popov @

Первым делом нужно оценить спрос на продукт, на которым вы хотите зарабатывать

https://forum.sources.ru/index.php?showtopic=416855&view=findpost&p=3842880


Метки:  

фотография в глазах

Вторник, 15 Декабря 2020 г. 19:27 + в цитатник
НикитаТеранис: Какая же это красота!!! Как такие фото делаются?

https://forum.sources.ru/index.php?showtopic=388483&view=findpost&p=3842879


Метки:  

Выбор фотоаппарата

Вторник, 15 Декабря 2020 г. 19:26 + в цитатник
НикитаТеранис: Мне вот интересно, какие фотоаппараты лучше - Sony или Canon?

https://forum.sources.ru/index.php?showtopic=376269&view=findpost&p=3842878


Метки:  

Ресурсы для начинающего фотографа

Вторник, 15 Декабря 2020 г. 19:25 + в цитатник
НикитаТеранис: Да, фотография - это очень интересная тема

https://forum.sources.ru/index.php?showtopic=397937&view=findpost&p=3842877


Метки:  

Мерцание PopupMenu

Вторник, 15 Декабря 2020 г. 19:25 + в цитатник
estra: Это я уже делал, не помогает.

https://forum.sources.ru/index.php?showtopic=421015&view=findpost&p=3842876


Метки:  

Мерцание PopupMenu

Вторник, 15 Декабря 2020 г. 18:29 + в цитатник
Gonarh: Я не заметил мерцания

Добавлено
Как вариант, попробуйте
    procedure TForm1.Timer1Timer(Sender: TObject);
    var
    i: Integer;
    begin
    Timer1.Enabled := False;
    LockWindowUpdate(PopupMenu1.Handle);
    for i := PopupMenu1.Items.Count-1 downto 0 do
    if i mod 2 = 0 then
    PopupMenu1.Items[i].Visible := False;
    LockWindowUpdate(0);
    end;

https://forum.sources.ru/index.php?showtopic=421015&view=findpost&p=3842874


Метки:  

Мерцание PopupMenu

Вторник, 15 Декабря 2020 г. 12:42 + в цитатник
estra: Добрый день!

Возникла необходимость скрывать пункты PopupMenu в момент, когда оно раскрыто.
Но это приводит к сильному мерцанию, избавиться от которого не удается.
Как можно избавиться от мерцания PopupMenu?

    procedure TForm1.PopupMenu1Popup(Sender: TObject);
    begin
    Timer1.Enabled := True;
    end;
    procedure TForm1.Timer1Timer(Sender: TObject);
    var
    i: Integer;
    begin
    Timer1.Enabled := False;
    for i := PopupMenu1.Items.Count-1 downto 0 do
    if i mod 2 = 0 then
    PopupMenu1.Items[i].Visible := False;
    end;


DFM
Скрытый текст
    object Form1: TForm1
    Left = 0
    Top = 0
    Caption = 'Form1'
    ClientHeight = 109
    ClientWidth = 258
    Color = clBtnFace
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    OldCreateOrder = False
    PopupMenu = PopupMenu1
    PixelsPerInch = 96
    TextHeight = 13
    object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 64
    Top = 24
    end
    object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 16
    Top = 24
    object N11: TMenuItem
    Caption = '1'
    end
    object N21: TMenuItem
    Caption = '2'
    end
    object N31: TMenuItem
    Caption = '3'
    end
    object N41: TMenuItem
    Caption = '4'
    end
    object N51: TMenuItem
    Caption = '5'
    end
    object N61: TMenuItem
    Caption = '6'
    end
    object N71: TMenuItem
    Caption = '7'
    end
    object N81: TMenuItem
    Caption = '8'
    end
    object N91: TMenuItem
    Caption = '9'
    end
    object N01: TMenuItem
    Caption = '0'
    end
    object N12: TMenuItem
    Caption = '1'
    end
    object N22: TMenuItem
    Caption = '2'
    end
    object N32: TMenuItem
    Caption = '3'
    end
    object N42: TMenuItem
    Caption = '4'
    end
    object N52: TMenuItem
    Caption = '5'
    end
    object N62: TMenuItem
    Caption = '6'
    end
    object N72: TMenuItem
    Caption = '7'
    end
    object N82: TMenuItem
    Caption = '8'
    end
    object N92: TMenuItem
    Caption = '9'
    end
    object N02: TMenuItem
    Caption = '0'
    end
    object N13: TMenuItem
    Caption = '1'
    end
    object N23: TMenuItem
    Caption = '2'
    end
    object N33: TMenuItem
    Caption = '3'
    end
    object N43: TMenuItem
    Caption = '4'
    end
    object N53: TMenuItem
    Caption = '5'
    end
    object N63: TMenuItem
    Caption = '6'
    end
    object N73: TMenuItem
    Caption = '7'
    end
    object N83: TMenuItem
    Caption = '8'
    end
    object N93: TMenuItem
    Caption = '9'
    end
    object N03: TMenuItem
    Caption = '0'
    end
    object N14: TMenuItem
    Caption = '1'
    end
    object N24: TMenuItem
    Caption = '2'
    end
    object N34: TMenuItem
    Caption = '3'
    end
    object N44: TMenuItem
    Caption = '4'
    end
    object N54: TMenuItem
    Caption = '5'
    end
    object N64: TMenuItem
    Caption = '6'
    end
    object N74: TMenuItem
    Caption = '7'
    end
    object N84: TMenuItem
    Caption = '8'
    end
    object N94: TMenuItem
    Caption = '9'
    end
    object N04: TMenuItem
    Caption = '0'
    end
    object N15: TMenuItem
    Caption = '1'
    end
    object N25: TMenuItem
    Caption = '2'
    end
    object N35: TMenuItem
    Caption = '3'
    end
    object N45: TMenuItem
    Caption = '4'
    end
    object N55: TMenuItem
    Caption = '5'
    end
    object N65: TMenuItem
    Caption = '6'
    end
    object N75: TMenuItem
    Caption = '7'
    end
    object N85: TMenuItem
    Caption = '8'
    end
    object N95: TMenuItem
    Caption = '9'
    end
    object N05: TMenuItem
    Caption = '0'
    end
    object N16: TMenuItem
    Caption = '1'
    end
    object N26: TMenuItem
    Caption = '2'
    end
    object N36: TMenuItem
    Caption = '3'
    end
    object N46: TMenuItem
    Caption = '4'
    end
    object N56: TMenuItem
    Caption = '5'
    end
    object N66: TMenuItem
    Caption = '6'
    end
    object N76: TMenuItem
    Caption = '7'
    end
    object N86: TMenuItem
    Caption = '8'
    end
    object N96: TMenuItem
    Caption = '9'
    end
    object N06: TMenuItem
    Caption = '0'
    end
    end
    end

PAS
Скрытый текст
    unit Unit1;
    interface
    uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ExtCtrls;
    type
    TForm1 = class(TForm)
    Timer1: TTimer;
    PopupMenu1: TPopupMenu;
    N11: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N51: TMenuItem;
    N61: TMenuItem;
    N71: TMenuItem;
    N81: TMenuItem;
    N91: TMenuItem;
    N01: TMenuItem;
    N12: TMenuItem;
    N22: TMenuItem;
    N32: TMenuItem;
    N42: TMenuItem;
    N52: TMenuItem;
    N62: TMenuItem;
    N72: TMenuItem;
    N82: TMenuItem;
    N92: TMenuItem;
    N02: TMenuItem;
    N13: TMenuItem;
    N23: TMenuItem;
    N33: TMenuItem;
    N43: TMenuItem;
    N53: TMenuItem;
    N63: TMenuItem;
    N73: TMenuItem;
    N83: TMenuItem;
    N93: TMenuItem;
    N03: TMenuItem;
    N14: TMenuItem;
    N24: TMenuItem;
    N34: TMenuItem;
    N44: TMenuItem;
    N54: TMenuItem;
    N64: TMenuItem;
    N74: TMenuItem;
    N84: TMenuItem;
    N94: TMenuItem;
    N04: TMenuItem;
    N15: TMenuItem;
    N25: TMenuItem;
    N35: TMenuItem;
    N45: TMenuItem;
    N55: TMenuItem;
    N65: TMenuItem;
    N75: TMenuItem;
    N85: TMenuItem;
    N95: TMenuItem;
    N05: TMenuItem;
    N16: TMenuItem;
    N26: TMenuItem;
    N36: TMenuItem;
    N46: TMenuItem;
    N56: TMenuItem;
    N66: TMenuItem;
    N76: TMenuItem;
    N86: TMenuItem;
    N96: TMenuItem;
    N06: TMenuItem;
    procedure PopupMenu1Popup(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;
    var
    Form1: TForm1;
    implementation
    {$R *.dfm}
    procedure TForm1.PopupMenu1Popup(Sender: TObject);
    begin
    Timer1.Enabled := True;
    end;
    procedure TForm1.Timer1Timer(Sender: TObject);
    var
    i: Integer;
    begin
    Timer1.Enabled := False;
    for i := PopupMenu1.Items.Count-1 downto 0 do
    if i mod 2 = 0 then
    PopupMenu1.Items[i].Visible := False;
    end;
    end.

https://forum.sources.ru/index.php?showtopic=421015&view=findpost&p=3842857


Метки:  

VMware vs Oracle VM

Вторник, 15 Декабря 2020 г. 10:16 + в цитатник
korvin: VMWare.

Хотя VBox давно не смотрел, может получше стало.

https://forum.sources.ru/index.php?showtopic=421012&view=findpost&p=3842846


Метки:  

Без заголовка

Вторник, 15 Декабря 2020 г. 04:32 + в цитатник

Метки:  

VMware vs Oracle VM

Вторник, 15 Декабря 2020 г. 00:45 + в цитатник
sergioK: Ну это как бы не совсем холивар, но может кто то имеет мнение по сабжу,

https://forum.sources.ru/index.php?showtopic=421012&view=findpost&p=3842838


Метки:  

Рейтинг сообщения.

Понедельник, 14 Декабря 2020 г. 22:23 + в цитатник
Thomaswrarl: Почему-то иногда не отображается, что в теме было новое сообщение. Например, только что зашёл, не увидел ни одной пометки о новых сообщениях. Но зашедши в раздел обнаружил несколько постов, которых я не читал. Только у меня так?

https://forum.sources.ru/index.php?showtopic=312676&view=findpost&p=3842836


Метки:  

Переход из 32 бит к 64.

Понедельник, 14 Декабря 2020 г. 18:03 + в цитатник
Qraizer: Походу это некий признак ошибки. Ну, да, часто возникает навязчивое желание не делать статус операции отдельным атрибутом, а как-нибудь замешать в inside boundary уже имеющегося атрибута. Проблемы, когда это невозможно, неизбежны.

Добавлено
P.S. Не стоит никогда так проектировать логику кода. Недаром практически во всех code style standard присутствует правило, запрещающее использование одной и той же переменной для различных целей. Хранить размер и одновременно признак ошибки как раз такой случай. Ну и никогда не следует смешивать типы данных по назначению. Какие свойства сущности нужны, вот такой тип данных и используем. Размер – значит size_t. Символ-байт – значит char. Число-байт – значит signed char. Итп.
Но вообще проблема шире. У меня вот, только что глянул, есть проект на 120к кода. При переносе с 32-х бит на 64 проблема возникла только в двух аспектах, и обе были связаны с изменившимся inside boundary range для size_t. Один из-за DWORD в использовавшихся функциях и структурах Win32, второй из-за 32-битности MS Office SDK, принимающего int через VARIANT. Проблема была решена путём написанного на коленке простенького safe_cast<> в точечных местах, общим числом в пять штук. Никаких десятков предупреждений и массового рефакторинга.

https://forum.sources.ru/index.php?showtopic=420996&view=findpost&p=3842828


Метки:  

catch (std::bad_alloc& ba) в MFC приложении не работает.

Понедельник, 14 Декабря 2020 г. 15:48 + в цитатник
a_n_y_a: В консольном проекте std::bad_alloc ловится, а в диалоговом приложении MFC, нет. Изучал разные варианты.
Код консольного приложения:
    #include "stdafx.h"
    #include "MyInt.hpp"
    #include
    #include
    #include
    using namespace std;
    int main()
    {
    std::locale Loc = std::locale::global(std::locale("russian"));
    char *buf = NULL, *buf1 = NULL;
    try
    {
    buf = new char[_I64_MAX_MY - 5];
    buf1 = new char[_I64_MAX_MY - 5];
    }
    catch (std::bad_alloc)
    {
    wcout<< _T("Сработал std::bad_alloc ошибка выделения памяти для массива\n");
    }
    catch (...)
    {
    wcout << _T("std::bad_alloc не сработал\n");
    };
    int i;
    wcout << _T("Введите любое число i=");
    wcin >> i;
    if (buf != NULL) delete[]buf;
    if (buf1 != NULL) delete[]buf1;
    return 0;
    };

Константа _I64_MAX_MY и MAX_MY_INT принимает значение положительного диапазона целого, в зависимости от типа сборки, x86 или x64. Файл в прилагаемом проекте.

Код в диалоге:
    void CMyThrowCatchDlg::OnBnClickedButton1()
    {
    // TODO: Add your control notification handler code here
    char *buf = NULL, *buf1 = NULL;
    try
    {
    buf = new char[MAX_MY_INT - 5];
    buf1 = new char[MAX_MY_INT - 5];
    }
    catch (CMemoryException& mex)
    {
    CString s;
    s = _T("Сработал CMemoryException ошибка выделения памяти для массива ");
    AfxMessageBox(s);
    }
    catch (std::bad_alloc& ba)
    {
    CString s;
    s = _T("Сработал std::bad_alloc ошибка выделения памяти для массива ");
    AfxMessageBox(s);
    }
    catch (...)
    {
    CString s;
    s = _T("std::bad_alloc, CMemoryException не сработал");
    AfxMessageBox(s);
    };
    if (buf != NULL) delete[]buf;
    if (buf1 != NULL) delete[]buf1;
    };


Где грабли? Файл MyThrowCatchNew.rar - Проект диалога MFC, ThrowNew.rar - консольный проект.
MyThrowCatchNew.rar (, : 0)
ThrowNew.rar (, : 0)

https://forum.sources.ru/index.php?showtopic=421011&view=findpost&p=3842827


Метки:  

Ссылка на справочник в 1С в Lazarus

Понедельник, 14 Декабря 2020 г. 13:47 + в цитатник
faska13: Нашёл решение. Через TVarData присваивать VDispatch.

https://forum.sources.ru/index.php?showtopic=421007&view=findpost&p=3842826


Метки:  

Cyberpunk 2077

Понедельник, 14 Декабря 2020 г. 13:26 + в цитатник
B.V.:
Цитата applegame @
И никто не пишет.

Ещё как пишут! Но не здесь :) Заходи к нам в чатик: https://t.me/joinchat/GjRzmBjAw_qSuQJLP0qVBA

А здесь я могу лишь повторить, что буду ждать марта. Думаю, игра как раз к тому моменту станет играбельна.

https://forum.sources.ru/index.php?showtopic=413040&view=findpost&p=3842825


Метки:  

Конвертировать код по ссылке в среду Borland Delphi XE

Понедельник, 14 Декабря 2020 г. 11:43 + в цитатник

Метки:  

Cyberpunk 2077

Понедельник, 14 Декабря 2020 г. 10:27 + в цитатник
applegame: И никто не пишет. У меня есть, но я все ещё не играл.

https://forum.sources.ru/index.php?showtopic=413040&view=findpost&p=3842823


Метки:  

Конвертировать код по ссылке в среду Borland Delphi XE

Понедельник, 14 Декабря 2020 г. 09:56 + в цитатник
Gonarh: Сколько готов потратить?

https://forum.sources.ru/index.php?showtopic=421010&view=findpost&p=3842822


Метки:  

Поиск сообщений в rss_forum_sources_ru
Страницы: 2628 ... 2474 2473 [2472] 2471 2470 ..
.. 1 Календарь