diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-01 15:19:22 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-01 15:19:22 +0200 |
| commit | 3499aa25e8eb4ae2c458806abd9655566e418585 (patch) | |
| tree | 94fc65d187cf3d81339fa592079d115705f3cedf | |
| parent | 5cfe5c8b1cd279a52b6a2fa82c528b3a710ac263 (diff) | |
| download | fpGUI-3499aa25e8eb4ae2c458806abd9655566e418585.tar.xz | |
docview: minor code formatting
| -rw-r--r-- | docview/components/richtext/RichTextLayoutUnit.pas | 3 | ||||
| -rw-r--r-- | docview/src/SettingsUnit.pas | 23 |
2 files changed, 5 insertions, 21 deletions
diff --git a/docview/components/richtext/RichTextLayoutUnit.pas b/docview/components/richtext/RichTextLayoutUnit.pas index 1f6745a4..bbf60643 100644 --- a/docview/components/richtext/RichTextLayoutUnit.pas +++ b/docview/components/richtext/RichTextLayoutUnit.pas @@ -10,7 +10,8 @@ Interface Uses Classes, CanvasFontManager, - RichTextDocumentUnit, RichTextStyleUnit, + RichTextDocumentUnit, + RichTextStyleUnit, fpg_imagelist; Type diff --git a/docview/src/SettingsUnit.pas b/docview/src/SettingsUnit.pas index 5c441059..3c9a8efc 100644 --- a/docview/src/SettingsUnit.pas +++ b/docview/src/SettingsUnit.pas @@ -36,20 +36,6 @@ Const //clLightCyan = $c0ffff; //clLightGreen = $e0ffe0; - VGADefaultColors: array[ 0 .. NumColorSettings - 1 ] of TfpgColor - = ( clBoxColor, - clText1, - clText1, - clBoxColor, - clText1, - clBoxColor, - clText1, - clBoxColor, - clText1, - clBoxColor, - clGreen, - clYellow ); - DefaultColors: array[ 0 .. NumColorSettings - 1 ] of TfpgColor = ( clLightCyan, clBlack, @@ -113,7 +99,7 @@ Type // global procs procedure LoadSettings; procedure SaveSettings; -procedure writeSettingsDetailsTo(aStrings : TStrings); +procedure WriteSettingsDetailsTo(aStrings : TStrings); procedure AddToMRUList( const Title: string; Filenames: TStrings ); var @@ -186,10 +172,7 @@ begin // Colours for ColorIndex := 0 to High( Colors ) do begin - //if GetScreenColorDepth > 8 then - DefaultColor := DefaultColors[ ColorIndex ]; - //else - // DefaultColor := VGADefaultColors[ ColorIndex ]; + DefaultColor := DefaultColors[ ColorIndex ]; Colors[ ColorIndex ] := ReadInteger( ColoursSection, 'Color' + IntToStr( ColorIndex ), DefaultColor ); @@ -465,7 +448,7 @@ begin end; end; -procedure writeSettingsDetailsTo(aStrings : TStrings); +procedure WriteSettingsDetailsTo(aStrings : TStrings); Begin aStrings.Add(''); aStrings.Add('---- Settings ----'); |