Ошибка окно не имеет полос прокрутки

← →
Тыва прогер

 
(2010-07-24 05:35)
[0]

Уважаемые Дельфисты помогите срочно разбраться то ли с ошибкой то ли с глюком Windows.
С каких то пор при запуске проекта начала выскакивать ошибка «000233EB. Error reading ComboBox2.Items.Strings: Окно не имеет полос прокрутки.»
Судя по  тому как пишет по русски видимо это связано и самим Windows. Узнать хотя бы на каком  ComboBox2 оно торчит. их у меня пруд пруди.

← →
Тыва прогер

 
(2010-07-24 05:56)
[1]

Нашел я все таки этот злополучный ComboBox. Перетащил его немножко изменив координаты расположения и все заработало. Правда потом он опять выскочил но я еще раз перетащил. И заработало.
Плавающий глюк, видимо скорее всего ошибка виндовс.
Или чо не знаю. У кого какие мысли?

← →
Anatoly Podgoretsky ©

 
(2010-07-24 12:48)
[2]

← →
antonn (work)

 
(2010-07-24 14:09)
[3]

название можно динамически задавать?

← →
_Юрий

 
(2010-08-01 10:58)
[4]

когда очередной раз выскочит, посмотри, что в DFM файле этой формы, благо там текст. Похоже, там что-то не так

← →
Virgo_Style ©

 
(2010-08-01 12:51)
[5]

Что-то подобное было, если мне не изменяет склероз, при каких-то операциях с хинтом невидимого компонента

← →
Тыва прогер

 
(2010-09-28 11:05)
[6]

А теперь в другом месте эта ошибка вылезла. Похоже проблема с компонентами EhLib. Но теперь даже не пишет где эта проблема. Просто тупо выскакивает и дальше не идет «Окно не имеет полос прокрутки». DFM смотрел но ничиго подозрительного не увидел.

← →
han_malign

 
(2010-09-28 13:06)
[7]

> Просто тупо выскакивает и дальше не идет «Окно не имеет
> полос прокрутки».

— был у меня такой прикол… Тупо копирую exe-шник(!) в другую папку — работает, копирую обратно — не работает… Короче — переименовал папку проекта — проблемы отпали… В чем цимус так и не понял, хотя до сих пор интересно…

инструкции

Примечание:
Эта статья была обновлено на 2023-01-24 и ранее опубликованный под WIKI_Q210794

Meaning of Window Scroll bars missing?

Window Scroll bars missing is the error name that contains the details of the error, including why it occurred, which system component or application malfunctioned to cause this error along with some other information. The numerical code in the error name contains data that can be deciphered by the manufacturer of the component or application that malfunctioned. The error using this code may occur in many different locations within the system, so even though it carries some details in its name, it is still difficult for a user to pinpoint and fix the error cause without specific technical knowledge or appropriate software.

Causes of Window Scroll bars missing?

If you have received this error on your PC, it means that there was a malfunction in your system operation. Common reasons include incorrect or failed installation or uninstallation of software that may have left invalid entries in your Windows registry, consequences of a virus or malware attack, improper system shutdown due to a power failure or another factor, someone with little technical knowledge accidentally deleting a necessary system file or registry entry, as well as a number of other causes. The immediate cause of the «Window Scroll bars missing» error is a failure to correctly run one of its normal operations by a system or application component.

More info on
Window Scroll bars missing

РЕКОМЕНДУЕМЫЕ: Нажмите здесь, чтобы исправить ошибки Windows и оптимизировать производительность системы.

I have scroll bars when the window opens? Thanx
 

Hi. When I open a new window, the scroll the window, they appear. How can I have the Windows XP.

Если я изменил размер баров внизу и справа, пропал.
Окно почтового ящика AOL 7 без прокрутки

AOL предложила использовать VGA-разрешение вместо лет и использовать его для бизнеса …. Удалите его, а затем просто переустановите AOL. Просто окно входа в систему, почему бы не использовать IE Explorer. У меня был 7 обычный 1024 x 768, который является общим для использования.

Окно необходимо максимизировать собственный доступ … TCP / IP через кабельное интернет-соединение. Кажется, что когда я открываю онлайн-почтовый ящик, окно закрывает сообщение, окно почтового ящика возвращается к исходному размеру без полос прокрутки. Даже AOL не может точно так же, как вы, используя свое окно. Я только плачу за Bring Your еще использовать AOL для электронной почты …

Second suggestion would again to view the scroll bar. The scroll bar only appears problem but one that defies resolution. What is annoying is that after viewing a message’s contents and when the mailbox window is maximized. This problem did not offer a remedy.

However, using VGA resolution mail on a computer that doesn’t have AOL installed? You can access your AOL mail from IE Explorer in in IE.

Странная ошибка со слайд-шоу стола сбрасывает полосы прокрутки окна

собирался опубликовать то же, что и вы.

Missing scroll bars in Excel 2007

Как отключить стрелки прокрутки для всех полос прокрутки? /

Кроме того, можно сделать прозрачную полосу прокрутки, но она серая на сером.

The case of the «missing scroll bars»

Полосы прокрутки

Excel 2007 And, I have lost the horizontl scroll bar and therefore I cannot get to the other worksheets in the workbook. The look of and both, horizontal & Vertical scroll bars are checked.

проблема с полосами прокрутки

Скрыть полосы прокрутки

Отключение полос прокрутки

Полосы прокрутки становятся поврежденными

Я чувствую, что это что-то в DirectX. Я обнаружил, что вертикальная прокрутка перерисована, они снова повреждены. Когда я перемещаю курсор над предыдущим, я впервые заметил его. Затем, когда появляется окно, это DirectX11.

Это не является серьезной проблемой — полосы прокрутки по-прежнему работают нормально с ползунком и стрелками, которые затем исправляют. Моя тема текущей версии была поднята раньше. Извиняюсь, если бар сильно испортился.

Почему полосы прокрутки исчезают?

Есть ли способ, которым я MS, который решил, что полосы прокрутки (например,

Полосы прокрутки в MSOFFICE95

Я попробовал мастер справки / ответа «Как отображать / скрывать полосы прокрутки?» In In all other views — Normal, Outline, Master Doc. Ответа не было. Утилита была удалена и переустановлена ​​- все равно никаких полос прокрутки.

все еще нет полос прокрутки. Я убил «Normal.dot»; Pagelayout View Я получил «Эта команда не может быть выполнена в режиме просмотра страницы».
меня снова !!!!! Друг запускает Мастер или выбирает раздел справки, используя Индекс. Полосы прокрутки исчезли из всех приложений OFFICE.

Такое поведение возникает, если вы используете ответ MS OFFICE 95 под Windows 95.

полосы прокрутки в Word

I have my MS «Word» open and then click the «open» button. help to clarify what you’re referring to. I am pretty sure that this can be set somehow to always open with the bit pedantic with this but here goes.

Can you provide a screenshot please?  That will scroll bar at the top, but try as I might I cannot find the way. Greetings to all…I may be a

проводки и полосы прокрутки

Медленные полоски прокрутки

Хорошо, поэтому полосы прокрутки на моем компьютере работают нормально, и они быстро движутся, однако, когда я использую свои полосы прокрутки в Интернете, страница движется ЧРЕЗВЫЧАЙНО медленно. Как я могу это исправить?

как НЕ иметь полосы прокрутки браузера

ненужные полосы прокрутки в IE

Вставка полос прокрутки на веб-сайте

графика). Из моего быстрого взгляда на ваш сайт и CSS, я думаю, что вы используете прокрутку страниц. проблемы с Mac в прошлом. Наш веб-сайт будет направлен как широкой общественности, так и

Таким образом, он может соответствовать абсолютному позиционированию, как сказал компания C, хотя я не могу прокомментировать его совместимость.
Кроме того, это не кадр, и, следовательно, у вас может быть более чем одна сторона «корпораций», поэтому он должен быть доступен для просмотра через несколько браузеров, Mac, ПК и т. Д. Лучший совет заключается в том, чтобы сделать его максимально простым с помощью side.?3. (Компания C) «Сайт, похоже, использует CSS для абсолютного позиционирования.

Сайт BBC прокручивается веками, и это отличный, полезный сайт. Не волнуйтесь, что у вас на сайте гуру есть какие-либо рекомендации или комментарии к этому или вышеупомянутому «совету»? Я бы сорвал полосу прокрутки и избегаю абсолютного позиционирования для compatabilities. «Сделайте любой из них и сосредоточьтесь на хорошем контенте, который легко читать.

в центральную ячейку. Это вызвало у нас

хочу, чтобы мои полосы прокрутки были более широкими

Я не хочу менять что-либо еще, потому что я пошутил, пожалуйста? Ниже приведенный ниже учебник поможет вам показать, как увеличить ширину полосы прокрутки.

Изменение цвета полос прокрутки

изменить цвет полос прокрутки?
Кто-нибудь знает, как

————————- ORIGINAL QUESTION ————————-

Greetings to all Delphi developers! In a Delphi 2006 non MDI application, I create a non-sizeable, autoscrollable, autosizeable form. This is an excerpt from the form’s unit:

uses Grid;

TGridFrm = class(TForm)
    public
        Grid : TGrid;
        constructor Create(AOwner : TComponent; Asize : TPoint);
end;

implementation

constructor TGridFrm.Create(AOwner: TComponent; Asize : TPoint);
begin
    inherited Create(aowner);
    borderstyle := bsSingle; // users are not allowed to resize the form
    windowstate := wsNormal;
    borderwidth := 0;
    autosize := True;
    autoscroll := True;
    constraints.maxwidth := screen.width - 1;
    constraints.maxheight := screen.height - 1;
    grid := TGrid.Create(asize.x, asize.y, self);
end;

Now, TGrid is a custom control with its own canvas of course. This is an excerpt from its unit:

TGrid = class (TCustomControl)
    public
        NoOfCellsX,
        NoOfCellsY,
        CellSize : integer;
        procedure SetZoom(z : integer);
        constructor Create(AWidth, AHeight : Integer; AParent : TForm = nil);
end;

implementation

constructor TGrid.Create(AWidth, AHeight : Integer; AParent : TForm = nil);
begin
    inherited Create(AParent);
    Parent := AParent;
    align := alCustom;
    left := 0;
    top := 0;
end;

procedure TGrid.SetZoom(zoom : integer);
begin
    cellsize := zoom * 10 div 100;
    width := noofcellsx * cellsize;
    height := noofcellsy * cellsize;
end;

In the form’s unit I have arranged things up (through an ApplicationEvents object) so that SetZoom is called with some zoom value, whenever the numeric +/- keys are pressed. The idea behind all this was to have my custom control snap to the upper left corner of the form (with some predefined margin/borderwidth), and have the entire form automatically adjust its size whenever I zoom in or out of the custom control, but never extending beyond the screen limits. It’s working, but only up to the point where the scrollbars must become visible: they never show up. Since this is an autoscrollable form, aren’t they supposed to show up whenever a control inside the form (Grid in this case) gets larger than the constrained form and get out of the way when it gets smaller? I even tried some refactoring by moving SetZoom to the form’s class, but to no avail. What am i missing here?

—————— COMPILABLE CODE ADDED AFTERWARDS ——————

The project file:

program MyApp;

uses
    Forms,
    Grid in 'SourceGrid.pas',
    GridForm in 'SourceGridForm.pas' {GridFrm},
    Main in 'SourceMain.pas' {MainFrm};

{$R *.res}

begin
    Application.Initialize;
    Application.CreateForm(TMainFrm, MainFrm);
    Application.Run;
end.

The Main.pas:

unit Main;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
    Forms, Dialogs, StdCtrls;

type
    TMainFrm = class(TForm)
        CreateNewFormButton: TButton;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure CreateNewFormButtonClick(Sender: TObject);
    end;

var
    MainFrm: TMainFrm;

implementation

{$R *.dfm}

uses
    GridForm;

procedure TMainFrm.CreateNewFormButtonClick(Sender: TObject);
var aform : TForm;
begin
    aform := TGridFrm.Create(self, point(15, 15));
    aform.show;
    tgridfrm(aform).grid.SetZoom(100);
end;

procedure TMainFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;
end;

end.

The GridForm.pas:

unit GridForm;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, Grid, AppEvnts;

type
    TGridFrm = class(TForm)
        ApplicationEvents1: TApplicationEvents;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
    private
        TheGrid : TGrid;
    public
        property Grid : TGrid READ TheGrid WRITE TheGrid;
        constructor Create(AOwner : TComponent; ASize : TPoint);
    end;

var
    GridFrm: TGridFrm;

implementation

{$R *.dfm}

procedure TGridFrm.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var keystate : TKeyboardState;
begin
    if not Active then begin exit; end;
    if msg.message = WM_KEYDOWN then
    begin
        getkeyboardstate(keystate);
        case msg.wparam of

            vk_Add : begin // zoom in
                grid.setzoom(grid.zoom + 10);
                handled := True;
            end;

            vk_Subtract : begin // zoom out
                grid.setzoom(grid.zoom - 10);
                handled := True;
            end;

            // other keys down here...

        end;
    end;
end;

constructor TGridFrm.Create(AOwner : TComponent; ASize : TPoint);
begin
    inherited Create(AOwner);
    borderstyle := bsSingle;
    borderwidth := 2;
    autosize := True;
    autoscroll := True;
    constraints.maxwidth := screen.width - 1;
    constraints.maxheight := screen.height - 1;
    visible := False;
    grid := TGrid.Create(asize.x, asize.y, random(800) + 500, self);
end;

procedure TGridFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin                
    Action := caFree;
end;

end.

And the Grid.pas:

unit Grid;

interface

uses
    StdCtrls, SysUtils, Controls, Forms, Graphics, Dialogs;

type
    TGrid = class (TCustomControl)
        Lbl1, Lbl2,
        GridSizeInfoLbl,
        FormSizeInfoLbl,
        WarningLbl : TLabel;

        public
            NoOfCellsX,
            NoOfCellsY,
            SquareSize, // in 1/1000ths of centimeter
            CellSize, // in pixels
            Zoom : integer;
            procedure SetZoom(z : integer);
            constructor Create(x, y, asquaresize : integer; AParent : TForm = nil);
    end;

implementation

uses
    GridForm;

constructor TGrid.Create(x, y, asquaresize : integer; AParent : TForm = nil);
begin
    inherited Create(AParent);
    parent := AParent;
    color := clTeal;
    align := alCustom;
    left := 0;
    top := 0;
    noofcellsx := x;
    noofcellsy := y;
    squaresize := asquaresize;
    Lbl1 := TLabel.Create(self);
    Lbl2 := TLabel.Create(self);
    GridSizeInfoLbl := TLabel.Create(self);
    FormSizeInfoLbl := TLabel.Create(self);
    WarningLbl := TLabel.Create(self);
    with Lbl1 do
    begin
        parent := self;
        caption := 'Size of grid: ';
        width := 55;
        height := 18;
        left := 2;
        top := 1;
    end;
    with Lbl2 do
    begin
        parent := self;
        caption := 'Size of form: ';
        width := 75;
        height := 18;
        left := 2;
        top := 19;
    end;
    with GridSizeInfoLbl do
    begin
        parent := self;
        width := 100;
        height := 18;
        left := 65;
        top := 1;
    end;
    with FormSizeInfoLbl do
    begin
        parent := self;
        width := 100;
        height := 18;
        left := 65;
        top := 19;
    end;
    with WarningLbl do
    begin
        parent := self;
        width := 150;
        height := 18;
        left := 2;
        top := 39;
    end;
end;

procedure TGrid.SetZoom(z : integer);
begin
    zoom := z;
    cellsize := (screen.pixelsperinch * squaresize * zoom) div (1000 * 254);
    width := noofcellsx * cellsize;
    height := noofcellsy * cellsize;

    GridSizeInfoLbl.caption := inttostr(Width) +
        'x' + inttostr(Height) +
        ' (zoom: ' + inttostr(zoom) +
        ', cellsize zoomed: ' + inttostr(cellsize) +
        ', squaresize: ' + inttostr(squaresize) +
        'mm, squares: ' + inttostr(noofcellsx) + 'x' + inttostr(noofcellsy) + ')';
    with tgridfrm(parent) do
    begin
        left := (screen.Width - width) div 2;
        top := (screen.Height - height) div 2;
        FormSizeInfoLbl.caption := inttostr(Width) + 'x' + inttostr(Height) +
        ' (clientarea: ' + inttostr(clientwidth) + 'x' + inttostr(clientheight) + ')';
        if self.width > clientwidth then
            if self.Height > clientheight then
                warninglbl.caption := 'Both scrollbars should appear!'
            else
                warninglbl.caption := 'Horizontal scrollbar should appear!'
        else if self.Height > clientheight then
            warninglbl.caption := 'Vertical scrollbar should appear!'
        else
            warninglbl.caption := 'No scrollbars needed';
    end;
end;

end.

Code synopsis: A click on the main form’ s button creates an autosizeable form, which in turn creates a child grid of random initial size. Numeric +/- keys make the grid larger or smaller and the form is autosized accordingly, but no scrollbars ever show up, no matter how large the grid becomes (the labels I added provide visual feedback).

————————- ORIGINAL QUESTION ————————-

Greetings to all Delphi developers! In a Delphi 2006 non MDI application, I create a non-sizeable, autoscrollable, autosizeable form. This is an excerpt from the form’s unit:

uses Grid;

TGridFrm = class(TForm)
    public
        Grid : TGrid;
        constructor Create(AOwner : TComponent; Asize : TPoint);
end;

implementation

constructor TGridFrm.Create(AOwner: TComponent; Asize : TPoint);
begin
    inherited Create(aowner);
    borderstyle := bsSingle; // users are not allowed to resize the form
    windowstate := wsNormal;
    borderwidth := 0;
    autosize := True;
    autoscroll := True;
    constraints.maxwidth := screen.width - 1;
    constraints.maxheight := screen.height - 1;
    grid := TGrid.Create(asize.x, asize.y, self);
end;

Now, TGrid is a custom control with its own canvas of course. This is an excerpt from its unit:

TGrid = class (TCustomControl)
    public
        NoOfCellsX,
        NoOfCellsY,
        CellSize : integer;
        procedure SetZoom(z : integer);
        constructor Create(AWidth, AHeight : Integer; AParent : TForm = nil);
end;

implementation

constructor TGrid.Create(AWidth, AHeight : Integer; AParent : TForm = nil);
begin
    inherited Create(AParent);
    Parent := AParent;
    align := alCustom;
    left := 0;
    top := 0;
end;

procedure TGrid.SetZoom(zoom : integer);
begin
    cellsize := zoom * 10 div 100;
    width := noofcellsx * cellsize;
    height := noofcellsy * cellsize;
end;

In the form’s unit I have arranged things up (through an ApplicationEvents object) so that SetZoom is called with some zoom value, whenever the numeric +/- keys are pressed. The idea behind all this was to have my custom control snap to the upper left corner of the form (with some predefined margin/borderwidth), and have the entire form automatically adjust its size whenever I zoom in or out of the custom control, but never extending beyond the screen limits. It’s working, but only up to the point where the scrollbars must become visible: they never show up. Since this is an autoscrollable form, aren’t they supposed to show up whenever a control inside the form (Grid in this case) gets larger than the constrained form and get out of the way when it gets smaller? I even tried some refactoring by moving SetZoom to the form’s class, but to no avail. What am i missing here?

—————— COMPILABLE CODE ADDED AFTERWARDS ——————

The project file:

program MyApp;

uses
    Forms,
    Grid in 'SourceGrid.pas',
    GridForm in 'SourceGridForm.pas' {GridFrm},
    Main in 'SourceMain.pas' {MainFrm};

{$R *.res}

begin
    Application.Initialize;
    Application.CreateForm(TMainFrm, MainFrm);
    Application.Run;
end.

The Main.pas:

unit Main;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
    Forms, Dialogs, StdCtrls;

type
    TMainFrm = class(TForm)
        CreateNewFormButton: TButton;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure CreateNewFormButtonClick(Sender: TObject);
    end;

var
    MainFrm: TMainFrm;

implementation

{$R *.dfm}

uses
    GridForm;

procedure TMainFrm.CreateNewFormButtonClick(Sender: TObject);
var aform : TForm;
begin
    aform := TGridFrm.Create(self, point(15, 15));
    aform.show;
    tgridfrm(aform).grid.SetZoom(100);
end;

procedure TMainFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;
end;

end.

The GridForm.pas:

unit GridForm;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, Grid, AppEvnts;

type
    TGridFrm = class(TForm)
        ApplicationEvents1: TApplicationEvents;
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
    private
        TheGrid : TGrid;
    public
        property Grid : TGrid READ TheGrid WRITE TheGrid;
        constructor Create(AOwner : TComponent; ASize : TPoint);
    end;

var
    GridFrm: TGridFrm;

implementation

{$R *.dfm}

procedure TGridFrm.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var keystate : TKeyboardState;
begin
    if not Active then begin exit; end;
    if msg.message = WM_KEYDOWN then
    begin
        getkeyboardstate(keystate);
        case msg.wparam of

            vk_Add : begin // zoom in
                grid.setzoom(grid.zoom + 10);
                handled := True;
            end;

            vk_Subtract : begin // zoom out
                grid.setzoom(grid.zoom - 10);
                handled := True;
            end;

            // other keys down here...

        end;
    end;
end;

constructor TGridFrm.Create(AOwner : TComponent; ASize : TPoint);
begin
    inherited Create(AOwner);
    borderstyle := bsSingle;
    borderwidth := 2;
    autosize := True;
    autoscroll := True;
    constraints.maxwidth := screen.width - 1;
    constraints.maxheight := screen.height - 1;
    visible := False;
    grid := TGrid.Create(asize.x, asize.y, random(800) + 500, self);
end;

procedure TGridFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin                
    Action := caFree;
end;

end.

And the Grid.pas:

unit Grid;

interface

uses
    StdCtrls, SysUtils, Controls, Forms, Graphics, Dialogs;

type
    TGrid = class (TCustomControl)
        Lbl1, Lbl2,
        GridSizeInfoLbl,
        FormSizeInfoLbl,
        WarningLbl : TLabel;

        public
            NoOfCellsX,
            NoOfCellsY,
            SquareSize, // in 1/1000ths of centimeter
            CellSize, // in pixels
            Zoom : integer;
            procedure SetZoom(z : integer);
            constructor Create(x, y, asquaresize : integer; AParent : TForm = nil);
    end;

implementation

uses
    GridForm;

constructor TGrid.Create(x, y, asquaresize : integer; AParent : TForm = nil);
begin
    inherited Create(AParent);
    parent := AParent;
    color := clTeal;
    align := alCustom;
    left := 0;
    top := 0;
    noofcellsx := x;
    noofcellsy := y;
    squaresize := asquaresize;
    Lbl1 := TLabel.Create(self);
    Lbl2 := TLabel.Create(self);
    GridSizeInfoLbl := TLabel.Create(self);
    FormSizeInfoLbl := TLabel.Create(self);
    WarningLbl := TLabel.Create(self);
    with Lbl1 do
    begin
        parent := self;
        caption := 'Size of grid: ';
        width := 55;
        height := 18;
        left := 2;
        top := 1;
    end;
    with Lbl2 do
    begin
        parent := self;
        caption := 'Size of form: ';
        width := 75;
        height := 18;
        left := 2;
        top := 19;
    end;
    with GridSizeInfoLbl do
    begin
        parent := self;
        width := 100;
        height := 18;
        left := 65;
        top := 1;
    end;
    with FormSizeInfoLbl do
    begin
        parent := self;
        width := 100;
        height := 18;
        left := 65;
        top := 19;
    end;
    with WarningLbl do
    begin
        parent := self;
        width := 150;
        height := 18;
        left := 2;
        top := 39;
    end;
end;

procedure TGrid.SetZoom(z : integer);
begin
    zoom := z;
    cellsize := (screen.pixelsperinch * squaresize * zoom) div (1000 * 254);
    width := noofcellsx * cellsize;
    height := noofcellsy * cellsize;

    GridSizeInfoLbl.caption := inttostr(Width) +
        'x' + inttostr(Height) +
        ' (zoom: ' + inttostr(zoom) +
        ', cellsize zoomed: ' + inttostr(cellsize) +
        ', squaresize: ' + inttostr(squaresize) +
        'mm, squares: ' + inttostr(noofcellsx) + 'x' + inttostr(noofcellsy) + ')';
    with tgridfrm(parent) do
    begin
        left := (screen.Width - width) div 2;
        top := (screen.Height - height) div 2;
        FormSizeInfoLbl.caption := inttostr(Width) + 'x' + inttostr(Height) +
        ' (clientarea: ' + inttostr(clientwidth) + 'x' + inttostr(clientheight) + ')';
        if self.width > clientwidth then
            if self.Height > clientheight then
                warninglbl.caption := 'Both scrollbars should appear!'
            else
                warninglbl.caption := 'Horizontal scrollbar should appear!'
        else if self.Height > clientheight then
            warninglbl.caption := 'Vertical scrollbar should appear!'
        else
            warninglbl.caption := 'No scrollbars needed';
    end;
end;

end.

Code synopsis: A click on the main form’ s button creates an autosizeable form, which in turn creates a child grid of random initial size. Numeric +/- keys make the grid larger or smaller and the form is autosized accordingly, but no scrollbars ever show up, no matter how large the grid becomes (the labels I added provide visual feedback).

Нравится ресурс? Помоги проекту!

[ Script execution time: 0,0818 ]   [ 16 queries used ]   [ Generated: 25.06.23, 01:09 GMT ]  

← →
Тыва прогер
 
(2010-07-24 05:35)
[0]

Уважаемые Дельфисты помогите срочно разбраться то ли с ошибкой то ли с глюком Windows.
С каких то пор при запуске проекта начала выскакивать ошибка «000233EB. Error reading ComboBox2.Items.Strings: Окно не имеет полос прокрутки.»
Судя по  тому как пишет по русски видимо это связано и самим Windows. Узнать хотя бы на каком  ComboBox2 оно торчит. их у меня пруд пруди.

← →
Тыва прогер
 
(2010-07-24 05:56)
[1]

Нашел я все таки этот злополучный ComboBox. Перетащил его немножко изменив координаты расположения и все заработало. Правда потом он опять выскочил но я еще раз перетащил. И заработало.
Плавающий глюк, видимо скорее всего ошибка виндовс.
Или чо не знаю. У кого какие мысли?

← →
Anatoly Podgoretsky ©
 
(2010-07-24 12:48)
[2]

← →
antonn (work)
 
(2010-07-24 14:09)
[3]

название можно динамически задавать?

← →
_Юрий
 
(2010-08-01 10:58)
[4]

когда очередной раз выскочит, посмотри, что в DFM файле этой формы, благо там текст. Похоже, там что-то не так

← →
Virgo_Style ©
 
(2010-08-01 12:51)
[5]

Что-то подобное было, если мне не изменяет склероз, при каких-то операциях с хинтом невидимого компонента

← →
Тыва прогер
 
(2010-09-28 11:05)
[6]

А теперь в другом месте эта ошибка вылезла. Похоже проблема с компонентами EhLib. Но теперь даже не пишет где эта проблема. Просто тупо выскакивает и дальше не идет «Окно не имеет полос прокрутки». DFM смотрел но ничиго подозрительного не увидел.

← →
han_malign
 
(2010-09-28 13:06)
[7]

> Просто тупо выскакивает и дальше не идет «Окно не имеет
> полос прокрутки».

— был у меня такой прикол… Тупо копирую exe-шник(!) в другую папку — работает, копирую обратно — не работает… Короче — переименовал папку проекта — проблемы отпали… В чем цимус так и не понял, хотя до сих пор интересно…

1) Environment

• PrimeFaces version: 6.2
• Application server + version: wildfly-10.1.0.Final
• Affected browsers: IPAD safari

2) Expected behavior

The content inside the dialog is too big to be displayed. So a vertical scrollbar should be show.

3) Actual behavior

There is no scrollbar. And when swiping on the device the content of the main page is scrolled, but the dialog stays in view. But you can not see all info in the dialog.

Simulating it on Mac with safari in responsive design mode does not give that behavior.

Also FF, chrome and Android show the correct scrollbars. so it is a ipad only problem.

4) Steps to reproduce

String url =»/prospect/detail.xhtml»;
Map<String, Object> options = new HashMap<String, Object>();
options.put(«modal», true);
options.put(«draggable», true);
options.put(«resizable», false);
options.put(«contentHeight», 500);
options.put(«contentWidth», 500);
options.put(«height», 500);
options.put(«width», 500);

	addParam("contentHeight", String.valueOf(500));
	addParam("contentWidth", String.valueOf(500));
	PrimeFaces.current().dialog().openDynamic(url, options, params);

В этом руководстве мы собирались выяснить некоторые возможные причины, которые могут привести к проблемам с полосой прокрутки в Windows, а затем я предоставлю некоторые потенциальные методы извлечения данных, с помощью которых вы можете попытаться решить новую проблему. .

Обновлено

Ускорьте свой компьютер сегодня с помощью этой простой загрузки. г.

Поскольку Windows 10 обновляется обычным образом, появилось много новых полезных функций, но в последнее время также появилось несколько связанных с этим сбоев. До тех пор, пока не возникнет определенная распространенная проблема, полоса прокрутки не прокручивается вниз и обычно остается неизменной. Это означает, что даже если вы переместите полосу прокрутки вниз с помощью мыши, выполнение этого будет перемещаться назад, пока она не будет поднята.

Например, вы открываете проводник, чтобы просмотреть прокрутку вниз, но панель поиска не ведет вниз. Он прилипает. Это может быть совершенно неподходящим и затрудняет просмотр и доступ. п в файлы или папки. Так как же обязательно исправить этот компонент? Посмотрим как.

1. Попробуйте этот подход для некоторых подписчиков, обычно 4К указывают пользователей. Просто измените размер файла проводника, коснувшись одного из углов.

2. Попробуйте использовать Perfect Mouse другим способом, и если проблема не возникнет, причиной может быть компьютерный грызун или ноутбук. Поменяйте эту мышь.

Исправление 1 – через приложение “Параметры”

Шаг 1. На рабочем столе просто нажмите кнопку «Пуск» и выберите «Настройки» в нашем контекстном меню над параметром «Питание».

Шаг 3. В следующем окне просто верните «Цвета» в левую часть окна. Прокрутите вправо и в разделе «Выбрать дополнительный цвет» снимите флажок. Это,

Как и сейчас, если вы прокрутите назад и прокрутите назад, он начнет работать.

Исправление 1. 5 – Запуск окна папки в отдельном процессе

а. Теперь щелкните в отдельном процессе на какой-то вкладке «Просмотр», а затем в некоторых окнах по всей папке.

Исправление – 3. Увеличьте масштаб в проводнике

Нажмите и удерживайте клавишу Ctrl на клавиатуре. Те, которые теперь удерживают его, прокрутите вниз с помощью самой современной мыши, он будет увеличивать или уменьшать масштаб, или значки в проводнике файлов всегда могут отображаться с разными размерами и темами. Просто инструменты в немного меньше, используя уникальный процесс выхода инструментов.

в. Теперь нажмите «Безопасность и обновления», «Последние обновления» и «Добавить обновления».

Исправьте некоторые исправления – обновите драйвер мыши с помощью диспетчера устройств

1. Нажмите клавиши Windows + R только одновременно, чтобы открыть пушку.

3. Теперь просто щелкните слева вместе с указательными устройствами, чтобы развернуть их.

4. Теперь приступайте к работе соответствующим образом и обновите драйверы мыши, которые вы, возможно, в настоящее время используете на всем своем компьютере.

Я с большим энтузиазмом отношусь к написанию полезных индивидуальных руководств по всему, что связано с ПК, поверх этого программного обеспечения Windows

Прокрутка – один из первых способов навигации по нашим ноутбукам и веб-сайтам. Если вам трудно прокручивать форму, вы можете серьезно потревожить человека и изменить свою онлайн-жизнь к чертям.

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

В нашем разделе вы найдете множество решений, позволяющих исправить эту досадную ошибку.

Сначала мы рекомендуем попробовать следующие три решения. На самом деле они довольно быстрые и простые в использовании и могут решить проблему прокрутки в Windows 10.

Windows 10 с собственной прокруткой – быстрые исправления

Проверьте болезнь с помощью мыши

Прежде всего, каждый член нашей семьи и я должны определить, связаны ли ваши проблемы с мышью или это все системные сбои. Вот несколько вещей, которые можно попробовать, прежде чем самостоятельно устранять неполадки в Windows 10:

• Отключите мышь и подключите снова через несколько минут.
• Подключите мышь к другому USB-порту.
• Убедитесь, что кабель мыши не поврежден.
• Если у вас есть беспроводная мышь, проверьте или обновите личные батареи.
• Убедитесь, что колесо прокрутки не забито грязью.
• Если управляемый застревает вместе с вашей собственной мышью, отключите его.

Эти элементы помогут вам убедиться, что ваша мышь в порядке с портами USB.

Может ли Windows 10 выполнять прокрутку самостоятельно? Воспользуйтесь одним из наших альтернативных решений.

Выйти и выйти как участвующий конкретный Windows

Люди сообщают, что выход из системы для пользователей Windows из местного сообщества и повторный вход в систему могут привести к проблемам с автопрокруткой Windows 10.

1. Откройте меню “Начало работы”.
2. Щелкните аватар вашего пользователя из фильма и выберите “Выйти”.
3. На экране входа в систему выберите свою учетную запись и оцените игру.

Изменить настройки истории

Возвращается ли Windows 10 в верхнюю часть окна, ни к файлу, ни к низу? У вас может быть реальный конфликт с фоном, кроме того, подчеркните настройки цвета.

1. Щелкните рабочий стол правой кнопкой мыши и перейдите в пустой двор, затем перейдите в раздел “Персонализация”.
2. Нажмите “Цвета” в левом меню.
3. Снимите флажок. Автоматически выбирать дополнительный цвет в поддержку моего фона.

Поскольку информация в вашем любимом слайд-шоу постоянно меняется, дизайн с автоакцентированием должен каждый раз выбирать новый цвет. Это может обновлять ваше окно всякий раз, когда ваш фоновый значок улучшается.

Устранение общих неполадок

Запустите средство устранения неполадок Windows

Средство устранения неполадок Windows – это удобная вещь, которая поставляется с каждой копией, поставляемой с Windows 10. Она может обнаруживать проблемы с числами в верхней части вашей системы, включая проблемы с аксессуарами и смартфонами.

1. Найдите панель управления и откройте точное приложение.
2. Измените режим отображения на большие позитивные значки.
3. В списке вариантов выбора выберите Устранение неполадок.
4. Щелкните по материалу и звуку.
5. В разделе “Устройство” выберите “Оборудование и устройства”.
6. Подождите, пока какой-нибудь инструмент устранения неполадок найдет и устранит практически любую проблему.

Как создать нового локального пользователя

Иногда новый пользователь вашего ПК может решить множество проблем. Нет необходимости переходить от новых файлов и настроек, просто создайте этого пользователя и посмотрите, часто ли решается проблема.

1. Откройте приложение “Настройки”. Вы определенно сделаете это быстро, нажав клавиши Windows и, как следствие, I на клавиатуре в указанное время.
2. Перейдите в Учетные записи.
3. Откройте меню “Семья и другие” на повернутой.
4. Нажмите кнопку «Добавить других на какой часто компьютер».
5. Нажмите кнопку «Я не контролирую информацию о членстве этого человека».
6. Нажмите «Добавить всех пользователей без объяснения причин».
7. Введите имя пользователя и дополнительно нажмите “Далее”. Ваш веб-сайт может по желанию ввести любой пароль, но он необходим во всех пакетах.

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

Ничего не восстанавливать в айпорте

Если это работает по-другому, вы также можете попробовать вернуться к единой точке восстановления системы, в которой не было обнаружено проблем с прокруткой. Чтобы узнать все о восстановлении вашей замечательной программы Windows 10, вы можете посмотреть это видео на сайте MDTechVideos.

Мы надеемся, что эта статья помогла клиентам устранить ошибки прокрутки в Windows 10.

Если вы ищете компанию, занимающуюся разработкой программного обеспечения, которой мы можем доверять с честностью и / или реалистичностью ведения бизнеса, SoftwareKeep – это то, что вам нужно. Мы являемся сертифицированным партнером Microsoft и аккредитованной BBB компанией, которая стремится предоставлять нашим клиентам надежный и полезный опыт благодаря необходимому им программному обеспечению. Мы будем рядом с вами до, во время и после продажи.

Ускорьте свой компьютер сегодня с помощью этой простой загрузки. г.

Solving The Problem With The Scrollbar In Windows Problem
Lösen Des Problems Mit Der Bildlaufleiste In Windows-Problem
Risolvere Il Problema Con La Barra Di Scorrimento Nel Problema Di Windows
Het Probleem Met De Schuifbalk In Windows Oplossen
Resolvendo O Problema Com A Barra De Rolagem No Problema Do Windows
Résoudre Le Problème Avec La Barre De Défilement Dans Le Problème Windows
Löser Problemet Med Rullningslisten I Windows -problem
Windows 문제의 스크롤 막대 문제 해결
Rozwiązywanie Problemu Z Paskiem Przewijania W Systemie Windows
Resolviendo El Problema Con La Barra De Desplazamiento En El Problema De Windows
г.