Stilet:

Вполне.
Выставь свойство Style:=lbOwnerDrawFixed
И опиши два обработчика:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
   with TListBox(Control) do begin
     if index=ItemIndex then
     Canvas.font.Color:=clred
     else
       Canvas.font.Color:=clblack;
     Canvas.FillRect(rect);
     Canvas.TextOut(rect.Left,rect.Top,items[index]);
   end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
   ListBox1.Repaint;
end;

Тема на форуме

ExtractFilePath(ParamStr(0));

Тема на форуме

Macro Assembler (MASM) — ассемблер для процессоров семейства x86. Создан компанией Microsoft для написания программ в операционной системы MS-DOS. Поддерживает разнообразие макросредств и структурированность программных идиом, включая конструкции высокого уровня для повторов, вызовов процедур и чередований. Продолжает развиваться и по сей день, последние версии включены в наборы DDK.

MASM32. Из интервью с создателем пакета MASM32 Стивеном Хатчессоном (Сидней, Австралия) – Как только с приходом Windows 95 стало необходимо создавать 32-х битные программы, я обнаружил, что инструментов для создания полезных и мощных программ сильно не хватает, и все большее распространение начали получать пакеты, облегчающие программирование для начинающих, но при этом, как правило, терялась большая часть возможностей, позволяющих писать выскокачественное программное обеспечение. Сначала я написал собственный редактор с помощью специализированного компилятора языка Бейсик, поскольку я был знаком с этим языком, и затем начал собирать информацию о создании ассемблерного пакета. Iczelion уже сделал кое-какую подготовительную работу, основываясь на том, что сделал ранее Стив Гибсон, и поскольку у меня был уже опыт в написании Windows-программ, я использовал некоторую часть из спроектированного Iczelion’ом, чтобы создать ранние версии MASM32. Главной идеей с самого начала было то, чтобы код на ассемблере было писать не труднее, чем на C, но чтобы он был более понятный и более мощный. Начиная с самых ранних версий MASM32, он разрабатывался при участии многих опытных программистов, которые хотели передать свой опыт следующему поколению программистов, и чтобы у них были подобающие инструменты, так же, как и у нас.

Тема на форуме

вот иерархия QIP2005(окно сообщений)

Тема на форуме

Memo1.SelStart := 0;
Memo1.SelLength := 0;

Тема на форуме

1. Средствами самой ОС.

1) ХР.
Пуск – Выполнить.
Введите команду winmsd.exe и нажмите ОК.
2) Vista
Пуск. Введите система в поле Начать поиск и затем щелкните пункт Сведения о системе в списке Программы.
Если в панели навигации выбран пункт Сводные сведения о системе, то сведения об операционной системе отображаются указанным ниже образом.
* Для 64-разрядной версии операционной системы. Фраза Компьютер на базе x64 отображается в пункте Тип системы в разделе Элемент.
* Для 32-разрядной версии операционной системы. Фраза Компьютер на базе x86 отображается в пункте Тип системы в разделе Элемент.

2. Самодельная программа и исходник.

Вложения

Test_Proj.rar (158.1 Кб)

Тема на форуме.

Изображения

Интересная тема на форуме. Принять участие.

Я пишу программу, и в ней у меня есть треугольник ABC на координатной плоскости (экране), его координаты известны, причем он может быть прямоугольный, остро и тупоугольный. Мне нужно в треугольнике найти координату P, лежащую на медиане BM, причем BP = 10 (или любое другое значение).
Мои мысли: почти никаких . Я вообще геометрические задачи в плоскости не решал. Помогите пожалуйста!
Заранее спасибо.

Изображения

Обычно пишу такие штуки вот так:

struct point
{
	double x, y;

	point (double xx, double yy) : x(xx), y(yy){}

	point operator + (point &a)
	{
		return point(x+a.x, y+a.y);
	}

	point operator - (point &a)
	{
		return point(x-a.x, y-a.y);
	}

	point operator * (double v)
	{
		return point(x*v,y*v);
	}

	double length()
	{
		return sqrt(x*x+y*y);
	}

	point ort()
	{
		double l = length();
		return point(x/l,y/l);
	}
};

point getPointOnMedian(point A, point B, point C)
{
	point M = (A+B)*0.5;      // ибо M - середина AB
	point BM = M-B;             // BM - это вектор
	point P = B + BM.ort()*10;
	return P;
}

Надо лишь понять, что вектор и точка – это одно и то же. Ну и что такое орт.

Тема на форуме.

Для объявления выходных параметров служит ключевое слово out:

procedure GetScreenResolution(out Width, Height: Integer);
begin
  Width := GetScreenWidth;
  Height := GetScreenHeight;
end;

Установка значений выходных параметров внутри подпрограммы приводит к установке значений переменных, переданных в качестве аргументов:

var
  W, H: Integer;
begin
  GetScreenResolution(W, H);
  ...
end;

После вызова процедуры GetScreenResolution переменные W и H будут содержать значения, которые были присвоены формальным параметрам Width и Height соответственно.
Если параметр является одновременно и входным, и выходным, то он описывается с ключевым словом var:
procedure Exchange(var A, B: Integer);

var
  C: Integer;
begin
  C := A;
  A := B;
  B := C;
end;

Изменение значений var-параметров внутри подпрограммы приводит к изменению значений переменных, переданных в качестве аргументов:

var
  X, Y: Integer;
begin
  X := 5;
  Y := 10;
  ...
  Exchange(X, Y);
  // Теперь X = 10, Y = 5
  ...
end;

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

unction NumberOfSetBits(A: Cardinal): Byte;
begin
  Result := 0;
  while A <> 0 do
  begin
    Result := Result + (A mod 2);
    A := A div 2;
  end;
end;

Параметр A в приведенной функции является входным, но при этом он используется в качестве локальной переменной для хранения промежуточных данных.
PS ну а теперь сами подумайте где это можно применить
Тема на форуме.

Вложения

icq_client.zip (109.2 Кб)

Тема на форуме.