Статьи по программированию
примеры программного кода
Delphi, Kylix, C, C++, SQL, Visual Basic, Bash, Assembler, 1С
Qt, KOL, MFC, Rx Library, Windows, Linux, Mac OS
Разработка приложений (33)
-->Сохранение и восстановление размера и положения окна
Опубликовано codeLocker в 16.08.2008 в 08:37.
ОС: Windows Язык: Delphi/Kylix Раздел: Разработка приложений • Интерфейс
procedure TMainForm.SaveIniFile;
var I: TIniFile;
Form: String;
begin
I := TIniFile.Create(ExtractFilePath(ParamStr(0))+'MY_INI_FILE.ini');
try
Form := 'MainForm';
with mainForm do begin
if WindowState = wsNormal then begin
I.WriteInteger(Form, 'Left', Left);
I.WriteInteger(Form, 'Top', Top);
I.WriteInteger(Form, 'Width', Width);
I.WriteInteger(Form, 'Height', Height);
end;
if WindowState = wsMaximized then I.WriteString(Form,'State','MAXIMIZED')
var I: TIniFile;
Form: String;
begin
I := TIniFile.Create(ExtractFilePath(ParamStr(0))+'MY_INI_FILE.ini');
try
Form := 'MainForm';
with mainForm do begin
if WindowState = wsNormal then begin
I.WriteInteger(Form, 'Left', Left);
I.WriteInteger(Form, 'Top', Top);
I.WriteInteger(Form, 'Width', Width);
I.WriteInteger(Form, 'Height', Height);
end;
if WindowState = wsMaximized then I.WriteString(Form,'State','MAXIMIZED')
Написание экстра-маленьких Win32 приложений на С++ от 1 КБ используя лишь API, на примере программы Windows Hider
Опубликовано codeLocker в 08.08.2008 в 11:50.
ОС: Windows Язык: C++ Раздел: Разработка приложений
Введение
-->Как перетаскивать компоненты в Run-Time?
Опубликовано codeLocker в 31.07.2008 в 14:19.
ОС: Windows Язык: Delphi/Kylix • VCL • Drag and Drop, Docking Раздел: Разработка приложений • Интерфейс
Возьмите форму, бросьте на нее панель, на onMouseDown панели прицепите код:
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Panel1.Perform(WM_SYSCOMMAND, $F012, 0);
end;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Panel1.Perform(WM_SYSCOMMAND, $F012, 0);
end;
Теперь в run-time панель можно таскать как в дизайне... -->
Как перетаскивать (Drag and Drop) выделенный текст между компонентами Memo?
Опубликовано codeLocker в 31.07.2008 в 14:18.
ОС: Windows Язык: Delphi/Kylix • VCL • Drag and Drop, Docking Раздел: Разработка приложений • Интерфейс
Данный способ позволяет не погружаясь глубоко в создание компонент осуществить операцию "drag and drop" выделенного текста.
Создайте новый компонент (TMyMemo), наследовав его от TMemo. И объявите его следующим образом:
type
TMyMemo = class(TMemo)
private
FLastSelStart : Integer;
FLastSelLength : Integer;
procedure WMLButtonDown(var Message: TWMLButtonDown);
TMyMemo = class(TMemo)
private
FLastSelStart : Integer;
FLastSelLength : Integer;
procedure WMLButtonDown(var Message: TWMLButtonDown);
Перестроить вкладки TPageControl с помощью Drag and Drop
Опубликовано codeLocker в 31.07.2008 в 14:17.
ОС: Windows Язык: Delphi/Kylix • VCL • Drag and Drop, Docking Раздел: Разработка приложений • Интерфейс
// In the PageControl's OnMouseDown event handler:
procedure TForm1.PageControl1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PageControl1.BeginDrag(False);
end;
// In the PageControl's OnDragDrop event handler:
procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer);
const
TCM_GETITEMRECT = $130A;
var
i: Integer;
r: TRect;
begin
if not (Sender is TPageControl) then Exit;
with PageControl1 do
begin
procedure TForm1.PageControl1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
PageControl1.BeginDrag(False);
end;
// In the PageControl's OnDragDrop event handler:
procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X, Y: Integer);
const
TCM_GETITEMRECT = $130A;
var
i: Integer;
r: TRect;
begin
if not (Sender is TPageControl) then Exit;
with PageControl1 do
begin
Спонсоры проекта:
Навигация
Сейчас на сайте
Сейчас на сайте 0 пользователей и 2 гостя.
Статистика
Всего материалов: 1387