opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 01:56:36 +08:00
Code Issues Packages Projects Releases Wiki Activity

Replace TMemos by TSynMemos in SQL help window and add URI openers. Enables linked URIs in text.

Browse Source
This commit is contained in:
Ansgar Becker
2008-11-25 20:11:50 +00:00
parent d515c89055
commit 2d123ad52a
2 changed files with 61 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
source/sqlhelp.dfm
View File

@ -126,7 +126,7 @@ object frmSQLhelp: TfrmSQLhelp
Align = alTop
Caption = 'Description:'
end
object memoDescription: TMemo
object memoDescription: TSynMemo
AlignWithMargins = True
Left = 0
Top = 44
@ -136,13 +136,27 @@ object frmSQLhelp: TfrmSQLhelp
Margins.Top = 5
Margins.Right = 0
Margins.Bottom = 0
SingleLineMode = False
Align = alClient
Lines.Strings = (
'memoDescription')
ReadOnly = True
ScrollBars = ssBoth
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
TabOrder = 0
OnKeyDown = memosKeyDown
Gutter.Font.Charset = DEFAULT_CHARSET
Gutter.Font.Color = clWindowText
Gutter.Font.Height = -11
Gutter.Font.Name = 'Courier New'
Gutter.Font.Style = []
Gutter.Visible = False
Gutter.Width = 0
Highlighter = URIHighlighter
Options = [eoAutoIndent, eoDragDropEditing, eoEnhanceEndKey, eoGroupUndo, eoHideShowScrollbars, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces]
ReadOnly = True
RightEdge = 0
WordWrap = True
end
end
object pnlRightBottom: TPanel
@ -178,7 +192,7 @@ object frmSQLhelp: TfrmSQLhelp
Caption = 'Search online'
OnClick = ButtonOnlinehelpClick
end
object MemoExample: TMemo
object MemoExample: TSynMemo
AlignWithMargins = True
Left = 0
Top = 23
@ -188,14 +202,28 @@ object frmSQLhelp: TfrmSQLhelp
Margins.Top = 5
Margins.Right = 0
Margins.Bottom = 0
SingleLineMode = False
Align = alTop
Anchors = [akLeft, akTop, akRight, akBottom]
Lines.Strings = (
'MemoExample')
ReadOnly = True
ScrollBars = ssBoth
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
TabOrder = 0
OnKeyDown = memosKeyDown
Gutter.Font.Charset = DEFAULT_CHARSET
Gutter.Font.Color = clWindowText
Gutter.Font.Height = -11
Gutter.Font.Name = 'Courier New'
Gutter.Font.Style = []
Gutter.Visible = False
Gutter.Width = 0
Highlighter = URIHighlighter
Options = [eoAutoIndent, eoDragDropEditing, eoEnhanceEndKey, eoGroupUndo, eoHideShowScrollbars, eoShowScrollHint, eoSmartTabDelete, eoSmartTabs, eoTabsToSpaces]
ReadOnly = True
RightEdge = 0
WordWrap = True
end
object ButtonClose: TButton
Left = 316
@ -212,4 +240,20 @@ object frmSQLhelp: TfrmSQLhelp
end
end
end
object URIOpenerDescription: TSynURIOpener
Editor = memoDescription
URIHighlighter = URIHighlighter
Left = 448
Top = 8
end
object URIHighlighter: TSynURISyn
Left = 416
Top = 8
end
object URIOpenerExample: TSynURIOpener
Editor = MemoExample
URIHighlighter = URIHighlighter
Left = 480
Top = 8
end
end

10
source/sqlhelp.pas
View File

@ -5,7 +5,8 @@ interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, ShellApi, Buttons, Registry,
childwin, PngSpeedButton;
childwin, PngSpeedButton, SynMemo, SynEditHighlighter, SynHighlighterURI,
SynURIOpener, SynEdit;
type
TfrmSQLhelp = class(TForm)
@ -18,13 +19,16 @@ type
pnlRightTop: TPanel;
lblKeyword: TLabel;
lblDescription: TLabel;
memoDescription: TMemo;
memoDescription: TSynMemo;
Splitter2: TSplitter;
pnlRightBottom: TPanel;
lblExample: TLabel;
MemoExample: TMemo;
MemoExample: TSynMemo;
ButtonClose: TButton;
btnSearchOnline: TPngSpeedButton;
URIOpenerDescription: TSynURIOpener;
URIHighlighter: TSynURISyn;
URIOpenerExample: TSynURIOpener;
procedure FormCreate(Sender: TObject);
procedure treeTopicsExpanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);