list - Поиск - Библиотека программиста

Поиск

Чистая правда о заработке в INTERNET

Дата: 23.01.2025 Модуль: Категория: Продвижение интернет-проектов

Разместил: Алексей Смотрим и оставляем комментарий »

Расширения PHP для работы с mp3

Дата: 23.01.2025 Модуль: Категория: PHP

Разместил: admin Смотрим и оставляем комментарий »

Средства для работы с конфиг-файлами Web-приложений

Дата: 23.01.2025 Модуль: Категория: PHP

Разместил: admin Смотрим и оставляем комментарий »

Обработка ошибок функций в c++

Дата: 23.01.2025 Модуль: Категория: С++, Visual C++

Разместил: admin Смотрим и оставляем комментарий »

С++, как обнаружить утечку памяти

Дата: 23.01.2025 Модуль: Категория: С++, Visual C++

Разместил: admin Смотрим и оставляем комментарий »

Все, что нужно знать о ListBox

Дата: 23.01.2025 Модуль: Категория: С++, Visual C++

Над каким элементом находится курсор мыши ?

Навигация в ListBox при множественном выборе

Как сделать так, чтобы при наведении на элемент, длина которого больше длины самого ListBox, появлялся Hint ?

Как узнать количество строк(записей) ?

Прокрутка ListBox на одну строку вниз

Удаление выбранных элементов в TListBox

Над каким элементом находится курсор мыши ?

Код

// поместите на форму Form1 компонент ListBox1 и напишите
// следующий обработчик события OnMouseMove:
void __fastcall TForm1::ListBox1MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
if(ListBox1->ItemAtPos(TPoint(X, Y), true) != -1)
Form1->Caption = ListBox1->Items->Strings[ListBox1->ItemAtPos(TPoint(X, Y), true)];
}

Навигация в ListBox при множественном выборе

Код

// разместите на форме ListBox1, установите у него
// свойство MultiSelect в true, добавьте в ListBox1
// несколько элементов, разместите также на форме
// кнопку Button1, в обработчике события OnClick
// которой напишите следующий код, который будет
// выводить сообщение для каждого элемента ListBox,
// выбранного пользователем:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for(int i = 0; i < ListBox1->Items->Count; i++)
if(ListBox1->Selected[i])
ShowMessage(ListBox1->Items->Strings[i]);
}

Как сделать так, чтобы при наведении на элемент, длина которого больше длины самого ListBox, появлялся Hint ?

Код

// Где нибудь на показывании формы :
Application->HintPause = 0;
Application->HintShortPause = 0;
Application->HintHidePause = 10000000000;
Application->OnShowHint = TIn4Form->DoShowHint;

void __fastcall TIn4Form::DoShowHint(System::AnsiString &HintStr, bool
&CanShow, THintInfo &HintInfo)
{
CanShow = true;
if (HintInfo.HintControl == ListBox1 )
{
if( Mouse->Capture )
{
CanShow = false;
return;
}
HintInfo.ReshowTimeout = 100;
/*HintInfo.HintColor = clAqua;// Changes only for this hint*/
TPoint pnt;
SIZE strsize;
int numstr = ListBox1->ItemAtPos(HintInfo.CursorPos,true);
if(numstr<0)
{
CanShow = false;
Application->HideHint ();
return;
}
HintStr = ListBox1->Items->Strings[numstr];
strsize = ListBox1->Canvas->TextExtent(HintStr);
if(strsize.cx<=ListBox1->ClientWidth)
{
CanShow = false;
Application->HideHint ();
return;
}
pnt.x = -1;
pnt.y =
int(HintInfo.CursorPos.y/ListBox3->ItemHeight)*ListBox1->ItemHeight - 3;
pnt = ListBox3->ClientToScreen(pnt);
HintInfo.HintPos.x = pnt.x;
HintInfo.HintPos.y = pnt.y;
HintInfo.HintMaxWidth = Screen->Width-pnt.x;
/*HintInfo.HideTimeout = 100;*/
}
}// Не забудьте поставить ShowHint у интересующего ListBox-а

Как узнать количество строк(записей) ?

Код

int i = ListBox1->Items->Count;

Прокрутка ListBox на одну строку вниз

Код

// Чтобы прокрутить содержимое списка (TListBox) на одну
// строку вниз, напишите следующий код:
SendMessage(ListBox1->Handle, WM_VSCROLL, SB_LINEDOWN, 0);

Удаление выбранных элементов в TListBox

Код

// Напишите следующий код:
for(int i = ListBox1->Items->Count-1; i >= 0; i--)
if(ListBox1->Selected[i])
ListBox1->Items->Delete(i);

Разместил: admin Смотрим и оставляем комментарий »

Поочередно показываем рисунки

Дата: 23.01.2025 Модуль: Категория: Delphi и TurboPascal

У нас ест форма, на ней Image1 и Timer1, и на диске в одной папке содержатся рисунки. Попытаемся поочередно показывать эти рисунки в image1,

Код

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Timer1: TTimer;
foto: TListBox;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1; i:word;

implementation

uses ShellAPI, ShlObj;// Нужны для работы с диалогом выбора
{$R *.dfm}

procedure FillBMPFileList(Folder: string; sl: TStrings);// процедура добавления файлов в список
var Rec : TSearchRec;
begin
sl.Clear;
if SysUtils.FindFirst(Folder + '*.bmp', faAnyFile, Rec) = 0 then
try
repeat
sl.Add(Folder+Rec.Name);
until SysUtils.FindNext(Rec) <> 0;
finally
SysUtils.FindClose(Rec);
end;
end;

function BrowseDialog(const Title: string; const Flag: integer): string;// вывод диалога выбора файлов
var
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
Result:='';
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
with BrowseInfo do begin
hwndOwner := form1.Handle;
pszDisplayName := @DisplayName;
lpszTitle := PChar(Title);
ulFlags := Flag;
end;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, TempPath);
Result := IncludeTrailingBackslash(TempPath);
GlobalFreePtr(lpItemID);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);// запуск ункции вывода файлов
var fs : string;
begin
fs := BrowseDialog('Выберите папку с BMP файлами', BIF_RETURNONLYFSDIRS);
if fs = '' then Exit;
FillBMPFileList(fs, foto.Items);
timer1.Enabled:=true
end;

procedure TForm1.Timer1Timer(Sender: TObject);// вывод картинок на image
begin
if i= foto.Count-1 then exit;
image1.Picture.LoadFromFile(foto.Items.strings[i]);
inc(i);
end;

end

Разместил: admin Смотрим и оставляем комментарий »