...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 21:19

Цитата(Quadr0 @ 11.6.2005, 14:31)

Это вообше кому-нибудь интересно?

Ты сделай, а мы оценим. Лишнее в любом случае не будет

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 21:19

Цитата(Quadr0 @ 11.6.2005, 16:31)

Не пойму только вот как поиск по ключевым словам реализовать можно бы было...

На форуме столько гуру, обратись чуть что к ним (можешь даже в личку). Они всегда помогут! Начать можешь с Вита

Всем - кто недоволен chm форматом - пожалуйста можете делать, попыток таких не счесть и было и будет.. Последняя была от Алекса и вполне даже удачная... Но это будет ваш проект а не мой... Другими словами - без меня... Я же буду продолжать то что я делаю. На то есть много причин.

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 21:22

Цитата(Vit @ 11.6.2005, 18:05)

без меня

Vit, неужели, если Quadr0 у тебя что-либо спросит, ты ему не ответишь? Не верю!!!
Добавлено @ 18:12

Цитата(Quadr0 @ 11.6.2005, 18:09)

Можно ознакомиться?

Спроси у него. Думаю, что прегред нет

Если спросят - отвечу... Я говорю не об этом, а о том что я этим проектом заниматься не буду. Ивообще кончаем флеймить на эту тему здесь. Есть раздел на форуме:

http://forum.vingrad.ru/index.php?showforum=62

со всем этим - туда! Здесь обсуждение ведётся DRKB а не чего-то там ещё

В разделе "Работа с файловой системой" дубляж тем "Как проверить находится ли файл на локальном диске?" и "Проверяем находится ли файл на локальном диске"

В разделе "Работа с визуальными компонентами->DBGrid" дубляж тем "Как удалить вертикальную полосу прокрутки (скроллбар) из DBGrid?" и "Как удалить вертикальную полосу прокрутки (скроллбар) из DBGrid?"

А если зделать как в DelphiWord програму. Тогда и приятней пользоватса и качать весь архив не нужно

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 22:33

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 22:33

Как заставить системное меню выпасть в указанном месте?

Код

{   How to popup the windows system menu?   Maybe you can use Keybd_event to eumlate ALT+SPACE   Maybe you can use a TPopupmenu.   But they always have some problem.   The method below is a perfect solution!   BTW: if your form has borderstyle = bsNone, Please do it like this:   Set forms style = bsSingle; and use the code below to set form boder:   SetWindowLong(Handle, GWL_STYLE,GetWindowLong(Handle, GWL_STYLE)   and (not WS_CAPTION) or WS_DLGFRAME or WS_OVERLAPPED); }    procedure TForm1.Button1Click(Sender: TObject);  const    { Undocument message ID }    WM_POPUPSYSTEMMENU = $313;  begin    SendMessage(Handle, WM_POPUPSYSTEMMENU, 0,      MakeLong(Mouse.CursorPos.X, Mouse.CursorPos.Y));   end;

Источник:http://www.swissdelphicenter.ch
Добавлено @ 01:17
Как "быструю подсказку" (Hints) сделать многострочной?
Необходимо создать соответствующую компоненту которая показывает "быструю подсказку" (Hints) с более чем одной
строкой. Компонента наследуется от TComponent и называется TMHint. Hint-текст можно задавать следующим образом:
"Строка 1@Строка 2@Строка 3". Символ '@' используется как разделитель строк. Если Вам нравится другой символ -
измените свойство Separator. Свойство Active указывает на активность (TRUE) или неактивность (FALSE)
"многострочности"

Код

unit MHint;   interface   uses   SysUtils, WinTypes, WinProcs, Messages,   Classes, Graphics, Controls, Forms, Dialogs;   type   TMHint = class(TComponent)   private     ScreenSize: Integer;     FActive: Boolean;     FSeparator: Char;     FOnShowHint: TShowHintEvent;   protected     procedure SetActive(Value: Boolean);     procedure SetSeparator(Value: char);     procedure NewHintInfo(var HintStr: string;       var CanShow: Boolean;       var HintInfo: THintInfo);   public     constructor Create(AOwner: TComponent); override;   published     property Active: Boolean       read FActive write SetActive;     property Separator: Char       read FSeparator write SetSeparator;   end;   procedure Register;   implementation   constructor TMHint.Create(AOwner: TComponent);   begin   inherited Create(AOwner);   FActive := True;   FSeparator := '@';   Application.OnShowHint := NewHintInfo;   ScreenSize := GetSystemMetrics(SM_CYSCREEN); end;   procedure TMHint.SetActive(Value: Boolean);   begin   FActive := Value; end;   procedure TMHint.SetSeparator(Value: Char);   begin   FSeparator := Value; end;   procedure TMHint.NewHintInfo(var HintStr: string;   var CanShow: Boolean;   var HintInfo: THintInfo);   var   I: Byte;   begin   if FActive then     begin       I := Pos(FSeparator, HintStr);       while I > 0 do         begin           HintStr[I] := #13;           I := Pos(FSeparator, HintStr);         end;       if HintInfo.HintPos.Y+10 > ScreenSize then         HintInfo.HintPos.Y := ScreenSize-11;     end; end;   procedure Register;   begin   RegisterComponents('MyComponents', [TMHint]); end;   end.

Источник:Кажись Delphi World

Отмена вставки нового узла в TreeView по нажатию кнопки Esc

Код

unit BetterTreeView;   interface   uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ComCtrls, CommCtrl;   type   TTVNewEditCancelEvent = procedure( Sender: TObject;     Node: TTreeNode; var Delete: Boolean) of object;   TBetterTreeView = class(TTreeView)   protected     FIsEditingNew: Boolean;     FOnEditCancel: TTVChangedEvent;       FOnNewEditCancel: TTVNewEditCancelEvent;     procedure Edit(const Item: TTVItem); override;   public     function NewChildAndEdit(Node: TTreeNode; const S: String)       : TTreeNode;   published     property IsEditingNew: Boolean read FIsEditingNew;     property OnEditCancel: TTVChangedEvent       read FOnEditCancel write FOnEditCancel;     property OnNewEditCancel: TTVNewEditCancelEvent       read FOnNewEditCancel write FOnNewEditCancel;   end;   implementation   procedure TBetterTreeView.Edit(const Item: TTVItem); var   Node: TTreeNode;   Action: Boolean; begin   with Item do begin     { Get the node }     if (state and TVIF_PARAM) <> 0 then       Node := Pointer(lParam)     else       Node := Items.GetNode(hItem);       if pszText = nil then begin       if FIsEditingNew then begin         Action := True;         if Assigned(FOnNewEditCancel) then           FOnNewEditCancel(Self, Node, Action);         if Action then             Node.Destroy       end       else         if Assigned(FOnEditCancel) then           FOnEditCancel(Self, Node);     end     else       fFinherited;   end;   FIsEditingNew := False; end;   function TBetterTreeView.NewChildAndEdit   (Node: TTreeNode; const S: String): TTreeNode; begin   SetFocus;   Result := Items.AddChild(Node, S);   FIsEditingNew := True;   Node.Expand(False);   Result.EditText;   SetFocus; end;   end.

Источник:Том Сван "Секреты..."