Сохранение положения компонента на форме (Сохранение параметра в Ini-файл)

@Access12 · Регистрация: 28.04.2013

Author24 — интернет-сервис помощи студентам

Не знаю верно ли назвал тему.
Доброго вечера тебе, всяк сюда входящий.
Подскажите пожалуйста с вопросом:
Имеется Form1, на нем расположена Panel1, во время запуска программы есть возможность сменить расположение данного компонента. Необходимо записать последние координаты компонента (Panel1) в Ini-файл.
Делаю так :

C++

{
   Ini->WriteInteger("Panels","Panel1",Panel1->Top);
   Ini->WriteInteger("Panels","Panel1",Panel1->Left);
   }

И читаю

C++

1 2	Panel1->Top = Ini->ReadInteger( "Panels", "Panel1", Top ); Panel1->Left = Ini->ReadInteger( "Panels", "Panel1", Left );

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

Добавлено через 21 минуту
Немного не по теме.
Знаю о том,что в теме не более 1го вопроса, но он слишком маленький, для новой темы :
Можно ли сохранять ini-файлы по типу "Сохранить как..." , так же и открывать и "Открыть файл". Если да, то пожалуйста маленький пример

@nick42 · 05.05.2015, 22:48

Поправьте меня, если ошибаюсь, но... у вас ведь два разных параметра сохраняются в одну переменную, то-есть сохраняется последний параметр. И при "восстановлении" соответственно координаты панели (левый верхний угол) приравниваются этому последнему. Вы файл ини рассматривали после записи? Что касается второго вопроса, то да, - ини-файл можно обзывать по всякому; можно добавить на форму диалоги записи-чтения и загружать этот ини-файл по результатам их работы. Примеры работы с диалогами есть даже в хэлпах платформы, не говоря уже о форуме.

@Sasha · 05.05.2015, 22:50

Сообщение от Access12

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

Пробуй

C++

#include <vcl.h>
#include "IniFiles.hpp"
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TIniFile *Ini;
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
Ini = new TIniFile(ExtractFilePath(Application->ExeName) + L"options.ini");
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
Panel1->Top = Ini->ReadInteger( "Panels", "Top", Top );
Panel1->Left = Ini->ReadInteger( "Panels", "Left", Left );
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
   Ini->WriteInteger("Panels","Top",Panel1->Top);
   Ini->WriteInteger("Panels","Left",Panel1->Left);
   delete Ini;
   Ini = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Panel1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  ReleaseCapture();
  Panel1->Perform(WM_SYSCOMMAND,0xF012,0);
}
//---------------------------------------------------------------------------

@nick42 · 05.05.2015, 23:02

Sasha, только пару замечаний (спорных, разумеется). Лично я с некоторых пор не практикую одновременно использовать конструктор формы и FormCreate - что-то одно; и в обработчике FormClose придерживаюсь правила: применять анализ (if () ... else ) на непредвиденный случай, а то иногда приходится приложение закрывать через Диспетчер задач.

@Access12 · 05.05.2015, 23:31 **[ТС]**

Сообщение от nick42

Поправьте меня, если ошибаюсь, но... у вас ведь два разных параметра сохраняются в одну переменную, то-есть сохраняется последний параметр.

Брр.. точно,а если использовать 2 файла под каждый параметр?

Сообщение от nick42

а то иногда приходится приложение закрывать через Диспетчер задач.

Не об этом ли вы говорили?Но думаю утром решу проблему

Сохранение положения компонента на форме (Сохранение параметра в Ini-файл)

@Sasha · 05.05.2015, 23:48

Я компилировал у меня ошибок небыло. Еслиб были, то не выкладывал бы

Добавлено через 31 секунду

Сообщение от Access12

Брр.. точно,а если использовать 2 файла под каждый параметр?

А какой смысл в этом?

@Access12 · 06.05.2015, 07:05 **[ТС]**

Сообщение от Sasha

Я компилировал у меня ошибок небыло. Еслиб были, то не выкладывал бы

Компилирование и у меня проходит успешно я и нажал "+1 Спасибо" за этот код , но если имеется Form1 на которой есть Button (Form2->Show()

,на Form2 , есть панель и прописан данный код, то при повторном открытии формы 2 через форм 1, без полного выхода из программы, выдают подобную картину (пост выше).
Но если из кода убрать

C++

1 2	delete Ini; Ini = NULL;

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

C++

1 2	ReleaseCapture(); Panel1->Perform(WM_SYSCOMMAND,0xF012,0); //эх,вот как можно, а я с буксировкой от Архангельский А.Я сидел

Добавлено через 17 минут
Не потеме: изменение размера Panel в таком же духе возможно?:

C++

1 2	ReleaseCapture(); Panel1->Perform(WM_SYSCOMMAND,0xF012,0);

@Sasha · 06.05.2015, 08:58

Вот ответ на решение твоих воппросов
Unit1

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <IniFiles.hpp>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TIniFile *Ini;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Ini = new TIniFile(ExtractFilePath(Application->ExeName) + L"options.ini");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
   delete Ini;
   Ini = NULL;
}
//---------------------------------------------------------------------------

Unit2

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <IniFiles.hpp>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
extern TIniFile *Ini;
bool fMove;
int viX0,viY0;
TForm2 *Form2;
 
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
Panel1->Top = Ini->ReadInteger( "Panels", "Top", Top );
Panel1->Left = Ini->ReadInteger( "Panels", "Left", Left );
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
   Ini->WriteInteger("Panels","Top",Panel1->Top);
   Ini->WriteInteger("Panels","Left",Panel1->Left);
 
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Panel1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
 
  if(Button != mbLeft) return;
 //Запомнить где
 viX0 = X;
 viY0 = Y;
 //Будем тащить
 fMove = true;
 //Переместить на передний план эту половинку
 ((TControl *)Sender)->BringToFront();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Panel1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
if(fMove)
 {
  //Установить новые границы для того на кого нажали
  ((TPanel *)Sender)->
  SetBounds(
            ((TPanel *)Sender)->Left + X - viX0,
            ((TPanel *)Sender)->Top + Y - viY0,
            ((TPanel *)Sender)->Width,
            ((TPanel *)Sender)->Height);
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormClick(TObject *Sender)
{
 SetWindowLong(Panel1->Handle,GWL_STYLE,GetWindowLong(Panel1->Handle,GWL_STYLE) & ~WS_SIZEBOX);
   Panel1->Width++;
   Panel1->Width--;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Panel1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
fMove = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Panel1DblClick(TObject *Sender)
{
SetWindowLong(Panel1->Handle,GWL_STYLE,GetWindowLong(Panel1->Handle,GWL_STYLE) | WS_SIZEBOX);
Panel1->Width++;
Panel1->Width--;
}
//---------------------------------------------------------------------------

@Access12 · 06.05.2015, 09:03 **[ТС]**

Сообщение от Sasha

Вот ответ на решение твоих воппросов

Премного благодарен

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

@nick42 Практикантроп 4840 / 2725 / 533 Регистрация: 23.09.2011 Сообщений: 5,795
	05.05.2015, 22:48	2
	Поправьте меня, если ошибаюсь, но... у вас ведь два разных параметра сохраняются в одну переменную, то-есть сохраняется последний параметр. И при "восстановлении" соответственно координаты панели (левый верхний угол) приравниваются этому последнему. Вы файл ини рассматривали после записи? Что касается второго вопроса, то да, - ини-файл можно обзывать по всякому; можно добавить на форму диалоги записи-чтения и загружать этот ини-файл по результатам их работы. Примеры работы с диалогами есть даже в хэлпах платформы, не говоря уже о форуме. 0

@nick42 Практикантроп 4840 / 2725 / 533 Регистрация: 23.09.2011 Сообщений: 5,795
	05.05.2015, 23:02	4
	Sasha, только пару замечаний (спорных, разумеется). Лично я с некоторых пор не практикую одновременно использовать конструктор формы и FormCreate - что-то одно; и в обработчике FormClose придерживаюсь правила: применять анализ (if () ... else ) на непредвиденный случай, а то иногда приходится приложение закрывать через Диспетчер задач. 0

@Access12 19 / 19 / 4 Регистрация: 28.04.2013 Сообщений: 139
	05.05.2015, 23:31 [ТС]	5
	Сообщение от nick42 Поправьте меня, если ошибаюсь, но... у вас ведь два разных параметра сохраняются в одну переменную, то-есть сохраняется последний параметр. Брр.. точно,а если использовать 2 файла под каждый параметр? Сообщение от nick42 а то иногда приходится приложение закрывать через Диспетчер задач. Не об этом ли вы говорили?Но думаю утром решу проблему 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	05.05.2015, 23:48	6
	Я компилировал у меня ошибок небыло. Еслиб были, то не выкладывал бы Добавлено через 31 секунду Сообщение от Access12 Брр.. точно,а если использовать 2 файла под каждый параметр? А какой смысл в этом? 0

@Access12 19 / 19 / 4 Регистрация: 28.04.2013 Сообщений: 139
	06.05.2015, 09:03 [ТС]	9
	Сообщение от Sasha Вот ответ на решение твоих воппросов Премного благодарен 0

Сохранение положения компонента на форме (Сохранение параметра в Ini-файл)

Решение