opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Cosmetic in project files:

Browse Source 
* Move const.inc and compilers.inc back to main source directory
* Move remaining few lines of code from heidicomp.pas to helpers.pas
* Remove components/compilerdetection and components/heidisql
* Remove remainders of EDBImage component, unused since Aug 08.
This commit is contained in:
Ansgar Becker
2009-10-19 22:13:04 +00:00
parent a9dd16766b
commit aaa02877a2
31 changed files with 189 additions and 363 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
source/texteditor.pas
View File

@@ -4,13 +4,14 @@ interface
uses
Windows, Classes, Graphics, Forms, Controls, helpers, StdCtrls, TntStdCtrls, VirtualTrees,
ComCtrls, ToolWin, Dialogs, SysUtils, Menus, WideStrUtils;
ComCtrls, ToolWin, Dialogs, SysUtils, Menus, WideStrUtils, RichEdit,
TntComCtrls;
{$I const.inc}
type
TfrmTextEditor = class(TForm)
memoText: TTntMemo;
memoText: TTntRichEdit;
tlbStandard: TToolBar;
btnWrap: TToolButton;
btnLoadText: TToolButton;
@@ -151,6 +152,7 @@ procedure TfrmTextEditor.SetMaxLength(len: integer);
begin
// Input: Length in number of bytes.
memoText.MaxLength := len;
SendMessage(memoText.Handle, EM_EXLIMITTEXT, 0, $1000000);
end;
procedure TfrmTextEditor.SetFont(font: TFont);