[ronin]

Quote:

Проблема с бетой скорее всего была из-за того, что не были обновлены используемые скины. Скины версии 6 и 7 не полностью совместимы.

если вы про скин менеджер, то я обновлял скины, но всё равно проблемы со скинированием панелей присутствовали

немного оффтопа:

на бете проблема такая, у формы стоит цвет Silver, у всех панелей на форме стоит ParentColor=true, соответственно они тоже д.б. “серебристыми”, но некоторые панели рисуются BtnFace цветом, хоть убей, причём не все, часть красится как положено часть нет. пытался CustomColor поставить и указать цвет, всё равно не помогло. тоже самое и с табшитами

[ronin]

у меня вопрос – а в стабильную версию можно внести эти изменения, а то бету ставил, там некорректно рисуется цвет панелей, табшитов и т.д. и т.п. + выдаёт такую ошибку при закрытии программы

24.09.2010 10:51:39 Exception EOSError occured in SysUtils.RaiseLastOSError at 0 in file

Message: System Error. Code: 1400.

Недопустимый дескриптор окна

Call stack:

[0041CD90] SysUtils.RaiseLastOSError

[0041CD19] SysUtils.RaiseLastOSError

в стабильной такого нет

а этот кривой скроллинг смущает, собираюсь устанавливать программу потенциальным покупателям и чёто не знаю как им объяснить этот глюк 🙂

[ronin]

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

большая просьба исправить

[ronin]

DateToStr(sDateEdit1.Date) я уже понял что тупанул, там форматирование , только я не понял зачем лишние преобразования StrToDateFmt('dd.mm.yyyy',sDateEdit1.Text), если можно просто sDateEdit1.Date

[ronin]

В версии 6.50 sDBLookupComboBox и sDBComboBox ведут себя странно, не закрываются при потере фокуса, хотя раньше закрывались, теперь приходится либо нажимать ESC что бы закрыть выпадающий список, либо вручную обрабатывать закрытие списков, плюс ко всему прокрутка мышкой так и не работает. В 6.48 таких проблем нету, только в поцедуре прокрутки всё таки приходится комментировать проверку, иначе прокрутка не пашет.

[ronin]

а я обычно использую функцию DateToStr()

[ronin]

отлично, в версии 6.50 ошибка устранена

[ronin]

Нашёл причину данной проблемы. Оказалось во всём виноват VNC Viewer, я смотрел как работает пользователь через данную программу и при подсоединении к удалённому ПК пользователя появлялся такой дефект, т.е. происходила обрезка краёв формы, которую потом ничем было не убрать пока не закроешь и заново не откроешь программу. А так, если локально открывать программу то форма не обрезается.

Не знаю, считается это багом или нет

in reply to: Не устанавливается AlphaDB #40852

[ronin]

QUOTE (TopCore @ Oct 24 2009, 11:03 AM)

Я соглашаюсь и устанавливаю AlphaDB, после чего вылазит ошибочка:
Как устранить эту неприятность?

аналогичная ерунда, просто пока закомментировал эту проверку и всё скомпилировалось нормально

[ronin]

Попробовал на создать новое приложение и сделать печать, ошибок нет, значит ошмбка вылетает только в готовом проекте.

Демку сделать не смогу ибо используются базы данных, вот более полный лог последних двух ошибок (а версии 6.47)

22.10.2009 21:17:36 Exception EVariantTypeCastError occured in Finalization at 0 in file
Message: Could not convert variant of type (String) into type (Double)
Call stack:
[00413F77] SysUtils.Finalization
[004143B6] VarUtils.BackupVarBoolFromStr
[00416C1E] Variants.@VarToSmallInt
[006F75B4] frxClass.TfrxReport.InheritFromTemplate (Line 8283, “frxClass.pas”)
[006F7106] frxClass.TfrxReport.SetParentReport (Line 8157, “frxClass.pas”)
[006B559D] frxGraphicUtils.TfrxDrawText.DrawText (Line 1472, “frxGraphicUtils.pas”)
[006B7423] frxrcClass.frxrcClass (Line 95, “frxrcClass.pas”)
[006B4EB6] frxGraphicUtils.CalcRotatedCoords (Line 1337, “frxGraphicUtils.pas”)
[006B47A3] frxGraphicUtils.TfrxDrawText.DrawTextLine (Line 1156, “frxGraphicUtils.pas”)
[006B489F] frxGraphicUtils.TfrxDrawText.DrawTextLine (Line 1174, “frxGraphicUtils.pas”)
[006B2807] frxGraphicUtils.IncArray (Line 288, “frxGraphicUtils.pas”)
[006B284E] frxGraphicUtils.CreateRotatedFont (Line 297, “frxGraphicUtils.pas”)
[006B2575] frxGraphicUtils.BreakRussianWord (Line 250, “frxGraphicUtils.pas”)
[0070013C] frxDesgnCtrls.
[00700484] frxDesgnCtrls.
[0042DF70] Classes.TComponent.SetDesigning
[00481D6F] Forms.TApplication.IsMDIMsg
[00457C04] Dialogs.CreateMessageDialog
[00457B7A] Dialogs.CreateMessageDialog
[00457C51] Dialogs.CreateMessageDialog
[004820A1] Forms.TApplication.Initialize
[0042DF70] Classes.TComponent.SetDesigning
[0046418F] Controls.TWinControl.PaintHandler
[00460AB8] Controls.TControl.DoCanAutoSize
[00463B2B] Controls.TWinControl.SetParentWindow
[005C6B9C] acSBUtils.TacComboListWnd.acWndProc
[005C6B3F] acSBUtils.TacComboListWnd.acWndProc
[005CF6C2] acSBUtils.TacTabControlWnd.DrawSkinTabs
[0042DF70] Classes.TComponent.SetDesigning
[005C6A80] acSBUtils.TacComboListWnd.acWndProc
[005CF6C2] acSBUtils.TacTabControlWnd.DrawSkinTabs
[005EB9D9] sSkinManager.
[005CF888] acSBUtils.TacTabControlWnd.SkinTabRect
[00615FFC] JclMath.
[00614F41] JclResources.
[006152A1] JclResources.
[0061274E] sSkinProvider.TacGraphItem.DoHook
[0042DF70] Classes.TComponent.SetDesigning
[0047CA23] Forms.TCustomForm.CreateWnd
[00403D9C] System.@Pow10
[005C0156] acSBUtils.Ac_NCDrawVScrollbar

22.10.2009 21:17:36 Exception EVariantTypeCastError occured in Finalization at 0 in file
Message: Could not convert variant of type (String) into type (Double)
Call stack:
[00413F77] SysUtils.Finalization
[004143B6] VarUtils.BackupVarBoolFromStr
[00416C1E] Variants.@VarToSmallInt
[006F75B4] frxClass.TfrxReport.InheritFromTemplate (Line 8283, “frxClass.pas”)
[006F7106] frxClass.TfrxReport.SetParentReport (Line 8157, “frxClass.pas”)
[006B559D] frxGraphicUtils.TfrxDrawText.DrawText (Line 1472, “frxGraphicUtils.pas”)
[006B7423] frxrcClass.frxrcClass (Line 95, “frxrcClass.pas”)
[006B4EB6] frxGraphicUtils.CalcRotatedCoords (Line 1337, “frxGraphicUtils.pas”)
[006B47A3] frxGraphicUtils.TfrxDrawText.DrawTextLine (Line 1156, “frxGraphicUtils.pas”)
[006B489F] frxGraphicUtils.TfrxDrawText.DrawTextLine (Line 1174, “frxGraphicUtils.pas”)
[006B2807] frxGraphicUtils.IncArray (Line 288, “frxGraphicUtils.pas”)
[006B284E] frxGraphicUtils.CreateRotatedFont (Line 297, “frxGraphicUtils.pas”)
[006B2575] frxGraphicUtils.BreakRussianWord (Line 250, “frxGraphicUtils.pas”)
[0070013C] frxDesgnCtrls.
[00700484] frxDesgnCtrls.
[0042DF70] Classes.TComponent.SetDesigning
[00481D6F] Forms.TApplication.IsMDIMsg
[00457C04] Dialogs.CreateMessageDialog
[00457B7A] Dialogs.CreateMessageDialog
[00457C51] Dialogs.CreateMessageDialog
[004820A1] Forms.TApplication.Initialize
[0042DF70] Classes.TComponent.SetDesigning
[0046418F] Controls.TWinControl.PaintHandler
[00460AB8] Controls.TControl.DoCanAutoSize
[00463B2B] Controls.TWinControl.SetParentWindow
[005C6B9C] acSBUtils.TacComboListWnd.acWndProc
[005C6B3F] acSBUtils.TacComboListWnd.acWndProc
[005CF6C2] acSBUtils.TacTabControlWnd.DrawSkinTabs
[0042DF70] Classes.TComponent.SetDesigning
[005C6A80] acSBUtils.TacComboListWnd.acWndProc
[005CF6C2] acSBUtils.TacTabControlWnd.DrawSkinTabs
[005EB9D9] sSkinManager.
[005CF888] acSBUtils.TacTabControlWnd.SkinTabRect
[00615FFC] JclMath.
[00614F41] JclResources.
[006152A1] JclResources.
[0061274E] sSkinProvider.TacGraphItem.DoHook
[0042DF70] Classes.TComponent.SetDesigning
[0047CA23] Forms.TCustomForm.CreateWnd
[00403D9C] System.@Pow10
[005C0156] acSBUtils.Ac_NCDrawVScrollbar

при углублённой трассировке нашёл место где программа вылетает в ошибку

procedure TfrxReport.ShowPreparedReport;

var
WndExStyles: Integer;
begin
FPreviewForm := nil;
if FPreview <> nil then
begin
FPreview.FReport := Self;
FPreview.FPreviewPages := FPreviewPages;
FPreview.Init;
end
else
begin
FPreviewForm := TfrxPreviewForm.Create(Application);
with TfrxPreviewForm(FPreviewForm) do
begin
Preview.FReport := Self;
Preview.FPreviewPages := FPreviewPages;
FPreview := Preview;
Init;
if Assigned(FOnPreview) then
FOnPreview(Self);
if PreviewOptions.Maximized then
Position := poDesigned;
if FPreviewOptions.Modal then
begin
ShowModal;
Free;
FPreviewForm := nil;
end
else
begin
if not FPreviewOptions.MDIChild then
begin
WndExStyles := GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, WndExStyles or WS_EX_APPWINDOW);
end;
FreeOnClose := True;
Show;
end;
end;
end;

end;

место генерации ошибки выделено жирным, в свойства PreviewOptions компонента отчёта ShowModal стоит true, т.е. окно предпросмотра отчёта открывается в модальном режиме, пробовал поставить в false всё равно ошибка вылетает

вот ещё новая ошибка добавилась

22.10.2009 21:22:43 Exception EAccessViolation occured in TWinControl.ScrollBy at 0 in file
Message: Access violation at address 0046604B in module 'jevel.exe'. Read of address 00000180
Call stack:
[0046604B] Controls.TWinControl.ScrollBy

на последней версии

блин ума не приложу чё за дела

[ronin]

QUOTE

При попытке пролистать выпадающий список нажатием на стрелочки (по другому и не выйдет, скрол на этом компоненте не работает)

добавил в sDBComboBox.pas и sDBLookupComboBox.pas следующие конструкции:

CODE

…

public

…

procedure CMMouseWheel(var Message: TMessage); message WM_MOUSEWHEEL;

…

uses

{ TsDBComboBox }

procedure TsDBComboBox.CMMouseWheel(var Message: TMessage);
begin
  with Message do begin
    case Msg of
      WM_MOUSEWHEEL:  begin
                        Msg := WM_KEYDOWN;
                        lParam := 0;
                        if SmallInt(HiWord(wParam)) > 0 then  wParam := VK_UP
                        else wParam := VK_DOWN;
                        Self.MainWndProc(Message);
                    end;
    end;
  end;
end;

перекомпилировал пакеты, теперь во всех подобных контролах есть скроллинг мышкой

[ronin]

а у меня вот так вот выглядит

[ronin]

а я давно забил на этот косяк, вручную рассчитываю область рабочего стола и устанавливаю размер главной формы <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” /> такой косяк кстати давно уже тянется, я и не думал что это из за альфы <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” />

[ronin]

Та же самая ерунда началась с версии 6.х, пришлось самому обеспечивать прокрутку на колесо мышки для DBComboBox'ов, глюк до сих пор остался.

[Author]

Posts