diff options
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/PlatWin.cxx | 1358 | ||||
| -rw-r--r-- | win32/ScintRes.rc | 80 | ||||
| -rw-r--r-- | win32/makefile_vc | 6 |
3 files changed, 723 insertions, 721 deletions
diff --git a/win32/PlatWin.cxx b/win32/PlatWin.cxx index a6ef37f79..f5a4f98e2 100644 --- a/win32/PlatWin.cxx +++ b/win32/PlatWin.cxx @@ -1,679 +1,679 @@ -// Scintilla source code edit control
-// PlatWin.cxx - implementation of platform facilities on Windows
-// Copyright 1998-2000 by Neil Hodgson <neilh@scintilla.org>
-// The License.txt file describes the conditions under which this software may be distributed.
-
-#include <stdlib.h>
-#include <string.h>
-#include <ctype.h>
-#include <stdarg.h>
-#include <stdio.h>
-
-#include "Platform.h"
-#include "PlatformRes.h"
-
-Point Point::FromLong(long lpoint) {
- return Point(static_cast<short>(LOWORD(lpoint)), static_cast<short>(HIWORD(lpoint)));
-}
-
-static RECT RectFromPRectangle(PRectangle prc) {
- RECT rc = {prc.left, prc.top, prc.right, prc.bottom};
- return rc;
-}
-
-Colour::Colour(long lcol) {
- co = lcol;
-}
-
-Colour::Colour(unsigned int red, unsigned int green, unsigned int blue) {
- co = RGB(red, green, blue);
-}
-
-bool Colour::operator==(const Colour &other) const {
- return co == other.co;
-}
-
-long Colour::AsLong() const {
- return co;
-}
-
-unsigned int Colour::GetRed() {
- return co & 0xff;
-}
-
-unsigned int Colour::GetGreen() {
- return (co >> 8) & 0xff;
-}
-
-unsigned int Colour::GetBlue() {
- return (co >> 16) & 0xff;
-}
-
-Palette::Palette() {
- used = 0;
- allowRealization = false;
- hpal = 0;
-}
-
-Palette::~Palette() {
- Release();
-}
-
-void Palette::Release() {
- used = 0;
- if (hpal)
- ::DeleteObject(hpal);
- hpal = 0;
-}
-
-// This method either adds a colour to the list of wanted colours (want==true)
-// or retrieves the allocated colour back to the ColourPair.
-// This is one method to make it easier to keep the code for wanting and retrieving in sync.
-void Palette::WantFind(ColourPair &cp, bool want) {
- if (want) {
- for (int i=0; i < used; i++) {
- if (entries[i].desired == cp.desired)
- return;
- }
-
- if (used < numEntries) {
- entries[used].desired = cp.desired;
- entries[used].allocated = cp.desired;
- used++;
- }
- } else {
- for (int i=0; i < used; i++) {
- if (entries[i].desired == cp.desired) {
- cp.allocated = entries[i].allocated;
- return;
- }
- }
- cp.allocated = cp.desired;
- }
-}
-
-void Palette::Allocate(Window &) {
- if (hpal)
- ::DeleteObject(hpal);
- hpal = 0;
-
- if (allowRealization) {
- char *pal = new char[sizeof(LOGPALETTE) + (used-1) * sizeof(PALETTEENTRY)];
- LOGPALETTE *logpal = reinterpret_cast<LOGPALETTE *>(pal);
- logpal->palVersion = 0x300;
- logpal->palNumEntries = used;
- for (int iPal=0;iPal<used;iPal++) {
- Colour desired = entries[iPal].desired;
- logpal->palPalEntry[iPal].peRed = desired.GetRed();
- logpal->palPalEntry[iPal].peGreen = desired.GetGreen();
- logpal->palPalEntry[iPal].peBlue = desired.GetBlue();
- entries[iPal].allocated =
- PALETTERGB(desired.GetRed(), desired.GetGreen(), desired.GetBlue());
- // PC_NOCOLLAPSE means exact colours allocated even when in background this means other windows
- // are less likely to get their colours and also flashes more when switching windows
- logpal->palPalEntry[iPal].peFlags = PC_NOCOLLAPSE;
- // 0 allows approximate colours when in background, yielding moe colours to other windows
- //logpal->palPalEntry[iPal].peFlags = 0;
- }
- hpal = ::CreatePalette(logpal);
- delete []pal;
- }
-}
-
-Font::Font() {
- id = 0;
-}
-
-Font::~Font() {
-}
-
-void Font::Create(const char *faceName, int size, bool bold, bool italic) {
- Release();
-
- LOGFONT lf;
- memset(&lf, 0, sizeof(lf));
- // The negative is to allow for leading
- lf.lfHeight = -(abs(size));
- lf.lfWeight = bold ? FW_BOLD : FW_NORMAL;
- lf.lfItalic = italic ? 1 : 0;
- lf.lfCharSet = DEFAULT_CHARSET;
- strcpy(lf.lfFaceName, faceName);
-
- id = ::CreateFontIndirect(&lf);
-}
-
-void Font::Release() {
- if (id)
- ::DeleteObject(id);
- id = 0;
-}
-
-Surface::Surface() :
- hdc(0), hdcOwned(false),
- pen(0), penOld(0),
- brush(0), brushOld(0),
- font(0), fontOld(0),
- bitmap(0), bitmapOld(0),
- paletteOld(0) {
-}
-
-Surface::~Surface() {
- Release();
-}
-
-void Surface::Release() {
- if (penOld) {
- ::SelectObject(hdc, penOld);
- ::DeleteObject(pen);
- penOld = 0;
- }
- pen = 0;
- if (brushOld) {
- ::SelectObject(hdc, brushOld);
- ::DeleteObject(brush);
- brushOld = 0;
- }
- brush = 0;
- if (fontOld) {
- // Fonts are not deleted as they are owned by a Font object
- ::SelectObject(hdc, fontOld);
- fontOld = 0;
- }
- font =0;
- if (bitmapOld) {
- ::SelectObject(hdc, bitmapOld);
- ::DeleteObject(bitmap);
- bitmapOld = 0;
- }
- bitmap = 0;
- if (paletteOld) {
- // Fonts are not deleted as they are owned by a Palette object
- ::SelectPalette(hdc, paletteOld, TRUE);
- paletteOld = 0;
- }
- if (hdcOwned) {
- ::DeleteDC(hdc);
- hdc = 0;
- hdcOwned = false;
- }
-}
-
-bool Surface::Initialised() {
- return hdc;
-}
-
-void Surface::Init() {
- Release();
- hdc = ::CreateCompatibleDC(NULL);
- hdcOwned = true;
- ::SetTextAlign(hdc, TA_BASELINE);
-}
-
-void Surface::Init(HDC hdc_) {
- Release();
- hdc = hdc_;
- ::SetTextAlign(hdc, TA_BASELINE);
-}
-
-void Surface::InitPixMap(int width, int height, Surface *surface_) {
- Release();
- hdc = ::CreateCompatibleDC(surface_->hdc);
- hdcOwned = true;
- bitmap = ::CreateCompatibleBitmap(surface_->hdc, width, height);
- bitmapOld = static_cast<HBITMAP>(::SelectObject(hdc, bitmap));
- ::SetTextAlign(hdc, TA_BASELINE);
-}
-
-void Surface::PenColour(Colour fore) {
- if (pen) {
- ::SelectObject(hdc, penOld);
- ::DeleteObject(pen);
- pen = 0;
- penOld = 0;
- }
- pen = ::CreatePen(0,1,fore.AsLong());
- penOld = static_cast<HPEN>(::SelectObject(hdc, pen));
-}
-
-void Surface::BrushColor(Colour back) {
- if (brush) {
- ::SelectObject(hdc, brushOld);
- ::DeleteObject(brush);
- brush = 0;
- brushOld = 0;
- }
- // Only ever want pure, non-dithered brushes
- Colour colourNearest = ::GetNearestColor(hdc, back.AsLong());
- brush = ::CreateSolidBrush(colourNearest.AsLong());
- brushOld = static_cast<HBRUSH>(::SelectObject(hdc, brush));
-}
-
-void Surface::SetFont(Font &font_) {
- if (font_.GetID() != font) {
- if (fontOld) {
- ::SelectObject(hdc, font_.GetID());
- } else {
- fontOld = static_cast<HFONT>(::SelectObject(hdc, font_.GetID()));
- }
- font = font_.GetID();
- }
-}
-
-int Surface::LogPixelsY() {
- return ::GetDeviceCaps(hdc, LOGPIXELSY);
-}
-
-void Surface::MoveTo(int x_, int y_) {
- ::MoveToEx(hdc, x_, y_, 0);
-}
-
-void Surface::LineTo(int x_, int y_) {
- ::LineTo(hdc, x_, y_);
-}
-
-void Surface::Polygon(Point *pts, int npts, Colour fore,
- Colour back) {
- PenColour(fore);
- BrushColor(back);
- ::Polygon(hdc, reinterpret_cast<POINT *>(pts), npts);
-}
-
-void Surface::RectangleDraw(PRectangle rc, Colour fore, Colour back) {
- PenColour(fore);
- BrushColor(back);
- ::Rectangle(hdc, rc.left, rc.top, rc.right, rc.bottom);
-}
-
-void Surface::FillRectangle(PRectangle rc, Colour back) {
- // Using ExtTextOut rather than a FillRect ensures that no dithering occurs.
- // There is no need to allocate a brush either.
- RECT rcw = RectFromPRectangle(rc);
- ::SetBkColor(hdc, back.AsLong());
- ::ExtTextOut(hdc, rc.left, rc.top, ETO_OPAQUE, &rcw, "", 0, NULL);
-}
-
-void Surface::FillRectangle(PRectangle rc, Surface &surfacePattern) {
- HBRUSH br = 0;
- if (surfacePattern.bitmap)
- br = ::CreatePatternBrush(surfacePattern.bitmap);
- else // Something is wrong so display in red
- br = ::CreateSolidBrush(RGB(0xff, 0, 0));
- RECT rcw = RectFromPRectangle(rc);
- ::FillRect(hdc, &rcw, br);
- ::DeleteObject(br);
-}
-
-void Surface::RoundedRectangle(PRectangle rc, Colour fore, Colour back) {
- PenColour(fore);
- BrushColor(back);
- ::RoundRect(hdc,
- rc.left + 1, rc.top,
- rc.right - 1, rc.bottom,
- 8, 8 );
-}
-
-void Surface::Ellipse(PRectangle rc, Colour fore, Colour back) {
- PenColour(fore);
- BrushColor(back);
- ::Ellipse(hdc, rc.left, rc.top, rc.right, rc.bottom);
-}
-
-void Surface::Copy(PRectangle rc, Point from, Surface &surfaceSource) {
- ::BitBlt(hdc, rc.left, rc.top, rc.Width(), rc.Height(),
- surfaceSource.hdc, from.x, from.y, SRCCOPY);
-}
-
-void Surface::DrawText(PRectangle rc, Font &font_, int ybase, const char *s, int len, Colour fore, Colour back) {
- SetFont(font_);
- ::SetTextColor(hdc, fore.AsLong());
- ::SetBkColor(hdc, back.AsLong());
- RECT rcw = RectFromPRectangle(rc);
- ::ExtTextOut(hdc, rc.left, ybase, ETO_OPAQUE, &rcw, s, len, NULL);
-}
-
-void Surface::DrawTextClipped(PRectangle rc, Font &font_, int ybase, const char *s, int len, Colour fore, Colour back) {
- SetFont(font_);
- ::SetTextColor(hdc, fore.AsLong());
- ::SetBkColor(hdc, back.AsLong());
- RECT rcw = RectFromPRectangle(rc);
- ::ExtTextOut(hdc, rc.left, ybase, ETO_OPAQUE | ETO_CLIPPED, &rcw, s, len, NULL);
-}
-
-int Surface::WidthText(Font &font_, const char *s, int len) {
- SetFont(font_);
- SIZE sz;
- ::GetTextExtentPoint32(hdc, s, len, &sz);
- return sz.cx;
-}
-
-void Surface::MeasureWidths(Font &font_, const char *s, int len, int *positions) {
- SetFont(font_);
- SIZE sz;
- int fit = 0;
- ::GetTextExtentExPoint(hdc, s, len, 30000, &fit, positions, &sz);
-}
-
-int Surface::WidthChar(Font &font_, char ch) {
- SetFont(font_);
- SIZE sz;
- ::GetTextExtentPoint32(hdc, &ch, 1, &sz);
- return sz.cx;
-}
-
-int Surface::Ascent(Font &font_) {
- SetFont(font_);
- TEXTMETRIC tm;
- ::GetTextMetrics(hdc, &tm);
- return tm.tmAscent;
-}
-
-int Surface::Descent(Font &font_) {
- SetFont(font_);
- TEXTMETRIC tm;
- ::GetTextMetrics(hdc, &tm);
- return tm.tmDescent;
-}
-
-int Surface::InternalLeading(Font &font_) {
- SetFont(font_);
- TEXTMETRIC tm;
- ::GetTextMetrics(hdc, &tm);
- return tm.tmInternalLeading;
-}
-
-int Surface::ExternalLeading(Font &font_) {
- SetFont(font_);
- TEXTMETRIC tm;
- ::GetTextMetrics(hdc, &tm);
- return tm.tmExternalLeading;
-}
-
-int Surface::Height(Font &font_) {
- SetFont(font_);
- TEXTMETRIC tm;
- ::GetTextMetrics(hdc, &tm);
- return tm.tmHeight;
-}
-
-int Surface::AverageCharWidth(Font &font_) {
- SetFont(font_);
- TEXTMETRIC tm;
- ::GetTextMetrics(hdc, &tm);
- return tm.tmAveCharWidth;
-}
-
-int Surface::SetPalette(Palette *pal, bool inBackGround) {
- if (paletteOld) {
- ::SelectPalette(hdc,paletteOld,TRUE);
- }
- paletteOld = 0;
- int changes = 0;
- if (pal->allowRealization) {
- paletteOld = ::SelectPalette(hdc, pal->hpal, inBackGround);
- changes = ::RealizePalette(hdc);
- }
- return changes;
-}
-
-void Surface::SetClip(PRectangle rc) {
- ::IntersectClipRect(hdc, rc.left, rc.top, rc.right, rc.bottom);
-}
-
-void Surface::FlushCachedState() {
- pen = 0;
- brush = 0;
- font = 0;
-}
-
-Window::~Window() {
-}
-
-void Window::Destroy() {
- if (id)
- ::DestroyWindow(id);
- id = 0;
-}
-
-bool Window::HasFocus() {
- return ::GetFocus() == id;
-}
-
-PRectangle Window::GetPosition() {
- RECT rc;
- ::GetWindowRect(id, &rc);
- return PRectangle(rc.left, rc.top, rc.right, rc.bottom);
-}
-
-void Window::SetPosition(PRectangle rc) {
- ::SetWindowPos(id, 0, rc.left, rc.top, rc.Width(), rc.Height(), 0);
-}
-
-void Window::SetPositionRelative(PRectangle rc, Window) {
- SetPosition(rc);
-}
-
-PRectangle Window::GetClientPosition() {
- RECT rc;
- ::GetClientRect(id, &rc);
- return PRectangle(rc.left, rc.top, rc.right, rc.bottom);
-}
-
-void Window::Show(bool show) {
- if (show)
- ::ShowWindow(id, SW_SHOWNORMAL);
- else
- ::ShowWindow(id, SW_HIDE);
-}
-
-void Window::InvalidateAll() {
- ::InvalidateRect(id, NULL, FALSE);
-}
-
-void Window::InvalidateRectangle(PRectangle rc) {
- RECT rcw = RectFromPRectangle(rc);
- ::InvalidateRect(id, &rcw, FALSE);
-}
-
-void Window::SetFont(Font &font) {
- SendMessage(WM_SETFONT,
- reinterpret_cast<WPARAM>(font.GetID()), 0);
-}
-
-static HINSTANCE hinstPlatformRes = 0;
-
-void Window::SetCursor(Cursor curs) {
- switch (curs) {
- case cursorText:
- ::SetCursor(::LoadCursor(NULL,IDC_IBEAM));
- break;
- case cursorArrow:
- ::SetCursor(::LoadCursor(NULL,IDC_ARROW));
- break;
- case cursorUp:
- ::SetCursor(::LoadCursor(NULL,IDC_UPARROW));
- break;
- case cursorWait:
- ::SetCursor(::LoadCursor(NULL,IDC_WAIT));
- break;
- case cursorHoriz:
- ::SetCursor(::LoadCursor(NULL,IDC_SIZEWE));
- break;
- case cursorVert:
- ::SetCursor(::LoadCursor(NULL,IDC_SIZENS));
- break;
- case cursorReverseArrow: {
- if (!hinstPlatformRes)
- hinstPlatformRes = GetModuleHandle("Scintilla");
- if (!hinstPlatformRes)
- hinstPlatformRes = GetModuleHandle("SciLexer");
- if (!hinstPlatformRes)
- hinstPlatformRes = GetModuleHandle(NULL);
- ::SetCursor(::LoadCursor(hinstPlatformRes, MAKEINTRESOURCE(IDC_MARGIN)));
- }
- break;
- }
-}
-
-void Window::SetTitle(const char *s) {
- ::SetWindowText(id, s);
-}
-
-LRESULT Window::SendMessage(UINT msg, WPARAM wParam, LPARAM lParam) {
- return ::SendMessage(id, msg, wParam, lParam);
-}
-
-int Window::GetDlgCtrlID() {
- return ::GetDlgCtrlID(id);
-}
-
-HINSTANCE Window::GetInstance() {
- return reinterpret_cast<HINSTANCE>(
- ::GetWindowLong(id,GWL_HINSTANCE));
-}
-
-ListBox::ListBox() {
-}
-
-ListBox::~ListBox() {
-}
-
-void ListBox::Create(Window &parent, int ctrlID) {
- id = ::CreateWindowEx(
- WS_EX_CLIENTEDGE, "listbox", "",
- WS_CHILD|WS_BORDER|WS_VSCROLL|LBS_SORT|LBS_NOTIFY,
- 100,100, 150,80, parent.GetID(), reinterpret_cast<HMENU>(ctrlID),
- parent.GetInstance(), 0);
-}
-
-void ListBox::Clear() {
- SendMessage(LB_RESETCONTENT);
-}
-
-void ListBox::Append(char *s) {
- SendMessage(LB_ADDSTRING, 0, reinterpret_cast<LPARAM>(s));
-}
-
-int ListBox::Length() {
- return SendMessage(LB_GETCOUNT);
-}
-
-void ListBox::Select(int n) {
- SendMessage(LB_SETCURSEL, n);
-}
-
-int ListBox::GetSelection() {
- return SendMessage(LB_GETCURSEL);
-}
-
-int ListBox::Find(const char *prefix) {
- return SendMessage(LB_FINDSTRING, 0, reinterpret_cast<LPARAM>(prefix));
-}
-
-void ListBox::GetValue(int n, char *value, int len) {
- int lenText = SendMessage(LB_GETTEXTLEN, n);
- if ((len > 0) && (lenText > 0)){
- char *text = new char[len+1];
- if (text) {
- SendMessage(LB_GETTEXT, n, reinterpret_cast<LPARAM>(text));
- strncpy(value, text, len);
- value[len-1] = '\0';
- delete []text;
- } else {
- value[0] = '\0';
- }
- } else {
- value[0] = '\0';
- }
-}
-
-void ListBox::Sort() {
- // Windows keeps sorted so no need to sort
-}
-
-Menu::Menu() : id(0) {
-}
-
-void Menu::CreatePopUp() {
- Destroy();
- id = ::CreatePopupMenu();
-}
-
-void Menu::Destroy() {
- if (id)
- ::DestroyMenu(id);
- id = 0;
-}
-
-void Menu::Show(Point pt, Window &w) {
- ::TrackPopupMenu(id, 0, pt.x - 4, pt.y, 0, w.GetID(), NULL);
- Destroy();
-}
-
-Colour Platform::Chrome() {
- return ::GetSysColor(COLOR_3DFACE);
-}
-
-Colour Platform::ChromeHighlight() {
- return ::GetSysColor(COLOR_3DHIGHLIGHT);
-}
-
-const char *Platform::DefaultFont() {
- return "Verdana";
-}
-
-int Platform::DefaultFontSize() {
- return 8;
-}
-
-unsigned int Platform::DoubleClickTime() {
- return ::GetDoubleClickTime();
-}
-
-void Platform::DebugDisplay(const char *s) {
- ::OutputDebugString(s);
-}
-
-bool Platform::IsKeyDown(int key) {
- return ::GetKeyState(key) & 0x80000000;
-}
-
-long Platform::SendScintilla(WindowID w, unsigned int msg, unsigned long wParam, long lParam) {
- return ::SendMessage(w, msg, wParam, lParam);
-}
-
-// These are utility functions not really tied to a platform
-
-int Platform::Minimum(int a, int b) {
- if (a < b)
- return a;
- else
- return b;
-}
-
-int Platform::Maximum(int a, int b) {
- if (a > b)
- return a;
- else
- return b;
-}
-
-//#define TRACE
-
-void Platform::DebugPrintf(const char *format, ...) {
-#ifdef TRACE
- char buffer[2000];
- va_list pArguments;
- va_start(pArguments, format);
- vsprintf(buffer,format,pArguments);
- va_end(pArguments);
- Platform::DebugDisplay(buffer);
-#endif
-}
-
-int Platform::Clamp(int val, int minVal, int maxVal) {
- if (val > maxVal)
- val = maxVal;
- if (val < minVal)
- val = minVal;
- return val;
-}
+// Scintilla source code edit control +// PlatWin.cxx - implementation of platform facilities on Windows +// Copyright 1998-2000 by Neil Hodgson <neilh@scintilla.org> +// The License.txt file describes the conditions under which this software may be distributed. + +#include <stdlib.h> +#include <string.h> +#include <ctype.h> +#include <stdarg.h> +#include <stdio.h> + +#include "Platform.h" +#include "PlatformRes.h" + +Point Point::FromLong(long lpoint) { + return Point(static_cast<short>(LOWORD(lpoint)), static_cast<short>(HIWORD(lpoint))); +} + +static RECT RectFromPRectangle(PRectangle prc) { + RECT rc = {prc.left, prc.top, prc.right, prc.bottom}; + return rc; +} + +Colour::Colour(long lcol) { + co = lcol; +} + +Colour::Colour(unsigned int red, unsigned int green, unsigned int blue) { + co = RGB(red, green, blue); +} + +bool Colour::operator==(const Colour &other) const { + return co == other.co; +} + +long Colour::AsLong() const { + return co; +} + +unsigned int Colour::GetRed() { + return co & 0xff; +} + +unsigned int Colour::GetGreen() { + return (co >> 8) & 0xff; +} + +unsigned int Colour::GetBlue() { + return (co >> 16) & 0xff; +} + +Palette::Palette() { + used = 0; + allowRealization = false; + hpal = 0; +} + +Palette::~Palette() { + Release(); +} + +void Palette::Release() { + used = 0; + if (hpal) + ::DeleteObject(hpal); + hpal = 0; +} + +// This method either adds a colour to the list of wanted colours (want==true) +// or retrieves the allocated colour back to the ColourPair. +// This is one method to make it easier to keep the code for wanting and retrieving in sync. +void Palette::WantFind(ColourPair &cp, bool want) { + if (want) { + for (int i=0; i < used; i++) { + if (entries[i].desired == cp.desired) + return; + } + + if (used < numEntries) { + entries[used].desired = cp.desired; + entries[used].allocated = cp.desired; + used++; + } + } else { + for (int i=0; i < used; i++) { + if (entries[i].desired == cp.desired) { + cp.allocated = entries[i].allocated; + return; + } + } + cp.allocated = cp.desired; + } +} + +void Palette::Allocate(Window &) { + if (hpal) + ::DeleteObject(hpal); + hpal = 0; + + if (allowRealization) { + char *pal = new char[sizeof(LOGPALETTE) + (used-1) * sizeof(PALETTEENTRY)]; + LOGPALETTE *logpal = reinterpret_cast<LOGPALETTE *>(pal); + logpal->palVersion = 0x300; + logpal->palNumEntries = used; + for (int iPal=0;iPal<used;iPal++) { + Colour desired = entries[iPal].desired; + logpal->palPalEntry[iPal].peRed = desired.GetRed(); + logpal->palPalEntry[iPal].peGreen = desired.GetGreen(); + logpal->palPalEntry[iPal].peBlue = desired.GetBlue(); + entries[iPal].allocated = + PALETTERGB(desired.GetRed(), desired.GetGreen(), desired.GetBlue()); + // PC_NOCOLLAPSE means exact colours allocated even when in background this means other windows + // are less likely to get their colours and also flashes more when switching windows + logpal->palPalEntry[iPal].peFlags = PC_NOCOLLAPSE; + // 0 allows approximate colours when in background, yielding moe colours to other windows + //logpal->palPalEntry[iPal].peFlags = 0; + } + hpal = ::CreatePalette(logpal); + delete []pal; + } +} + +Font::Font() { + id = 0; +} + +Font::~Font() { +} + +void Font::Create(const char *faceName, int size, bool bold, bool italic) { + Release(); + + LOGFONT lf; + memset(&lf, 0, sizeof(lf)); + // The negative is to allow for leading + lf.lfHeight = -(abs(size)); + lf.lfWeight = bold ? FW_BOLD : FW_NORMAL; + lf.lfItalic = italic ? 1 : 0; + lf.lfCharSet = DEFAULT_CHARSET; + strcpy(lf.lfFaceName, faceName); + + id = ::CreateFontIndirect(&lf); +} + +void Font::Release() { + if (id) + ::DeleteObject(id); + id = 0; +} + +Surface::Surface() : + hdc(0), hdcOwned(false), + pen(0), penOld(0), + brush(0), brushOld(0), + font(0), fontOld(0), + bitmap(0), bitmapOld(0), + paletteOld(0) { +} + +Surface::~Surface() { + Release(); +} + +void Surface::Release() { + if (penOld) { + ::SelectObject(hdc, penOld); + ::DeleteObject(pen); + penOld = 0; + } + pen = 0; + if (brushOld) { + ::SelectObject(hdc, brushOld); + ::DeleteObject(brush); + brushOld = 0; + } + brush = 0; + if (fontOld) { + // Fonts are not deleted as they are owned by a Font object + ::SelectObject(hdc, fontOld); + fontOld = 0; + } + font =0; + if (bitmapOld) { + ::SelectObject(hdc, bitmapOld); + ::DeleteObject(bitmap); + bitmapOld = 0; + } + bitmap = 0; + if (paletteOld) { + // Fonts are not deleted as they are owned by a Palette object + ::SelectPalette(hdc, paletteOld, TRUE); + paletteOld = 0; + } + if (hdcOwned) { + ::DeleteDC(hdc); + hdc = 0; + hdcOwned = false; + } +} + +bool Surface::Initialised() { + return hdc; +} + +void Surface::Init() { + Release(); + hdc = ::CreateCompatibleDC(NULL); + hdcOwned = true; + ::SetTextAlign(hdc, TA_BASELINE); +} + +void Surface::Init(HDC hdc_) { + Release(); + hdc = hdc_; + ::SetTextAlign(hdc, TA_BASELINE); +} + +void Surface::InitPixMap(int width, int height, Surface *surface_) { + Release(); + hdc = ::CreateCompatibleDC(surface_->hdc); + hdcOwned = true; + bitmap = ::CreateCompatibleBitmap(surface_->hdc, width, height); + bitmapOld = static_cast<HBITMAP>(::SelectObject(hdc, bitmap)); + ::SetTextAlign(hdc, TA_BASELINE); +} + +void Surface::PenColour(Colour fore) { + if (pen) { + ::SelectObject(hdc, penOld); + ::DeleteObject(pen); + pen = 0; + penOld = 0; + } + pen = ::CreatePen(0,1,fore.AsLong()); + penOld = static_cast<HPEN>(::SelectObject(hdc, pen)); +} + +void Surface::BrushColor(Colour back) { + if (brush) { + ::SelectObject(hdc, brushOld); + ::DeleteObject(brush); + brush = 0; + brushOld = 0; + } + // Only ever want pure, non-dithered brushes + Colour colourNearest = ::GetNearestColor(hdc, back.AsLong()); + brush = ::CreateSolidBrush(colourNearest.AsLong()); + brushOld = static_cast<HBRUSH>(::SelectObject(hdc, brush)); +} + +void Surface::SetFont(Font &font_) { + if (font_.GetID() != font) { + if (fontOld) { + ::SelectObject(hdc, font_.GetID()); + } else { + fontOld = static_cast<HFONT>(::SelectObject(hdc, font_.GetID())); + } + font = font_.GetID(); + } +} + +int Surface::LogPixelsY() { + return ::GetDeviceCaps(hdc, LOGPIXELSY); +} + +void Surface::MoveTo(int x_, int y_) { + ::MoveToEx(hdc, x_, y_, 0); +} + +void Surface::LineTo(int x_, int y_) { + ::LineTo(hdc, x_, y_); +} + +void Surface::Polygon(Point *pts, int npts, Colour fore, + Colour back) { + PenColour(fore); + BrushColor(back); + ::Polygon(hdc, reinterpret_cast<POINT *>(pts), npts); +} + +void Surface::RectangleDraw(PRectangle rc, Colour fore, Colour back) { + PenColour(fore); + BrushColor(back); + ::Rectangle(hdc, rc.left, rc.top, rc.right, rc.bottom); +} + +void Surface::FillRectangle(PRectangle rc, Colour back) { + // Using ExtTextOut rather than a FillRect ensures that no dithering occurs. + // There is no need to allocate a brush either. + RECT rcw = RectFromPRectangle(rc); + ::SetBkColor(hdc, back.AsLong()); + ::ExtTextOut(hdc, rc.left, rc.top, ETO_OPAQUE, &rcw, "", 0, NULL); +} + +void Surface::FillRectangle(PRectangle rc, Surface &surfacePattern) { + HBRUSH br = 0; + if (surfacePattern.bitmap) + br = ::CreatePatternBrush(surfacePattern.bitmap); + else // Something is wrong so display in red + br = ::CreateSolidBrush(RGB(0xff, 0, 0)); + RECT rcw = RectFromPRectangle(rc); + ::FillRect(hdc, &rcw, br); + ::DeleteObject(br); +} + +void Surface::RoundedRectangle(PRectangle rc, Colour fore, Colour back) { + PenColour(fore); + BrushColor(back); + ::RoundRect(hdc, + rc.left + 1, rc.top, + rc.right - 1, rc.bottom, + 8, 8 ); +} + +void Surface::Ellipse(PRectangle rc, Colour fore, Colour back) { + PenColour(fore); + BrushColor(back); + ::Ellipse(hdc, rc.left, rc.top, rc.right, rc.bottom); +} + +void Surface::Copy(PRectangle rc, Point from, Surface &surfaceSource) { + ::BitBlt(hdc, rc.left, rc.top, rc.Width(), rc.Height(), + surfaceSource.hdc, from.x, from.y, SRCCOPY); +} + +void Surface::DrawText(PRectangle rc, Font &font_, int ybase, const char *s, int len, Colour fore, Colour back) { + SetFont(font_); + ::SetTextColor(hdc, fore.AsLong()); + ::SetBkColor(hdc, back.AsLong()); + RECT rcw = RectFromPRectangle(rc); + ::ExtTextOut(hdc, rc.left, ybase, ETO_OPAQUE, &rcw, s, len, NULL); +} + +void Surface::DrawTextClipped(PRectangle rc, Font &font_, int ybase, const char *s, int len, Colour fore, Colour back) { + SetFont(font_); + ::SetTextColor(hdc, fore.AsLong()); + ::SetBkColor(hdc, back.AsLong()); + RECT rcw = RectFromPRectangle(rc); + ::ExtTextOut(hdc, rc.left, ybase, ETO_OPAQUE | ETO_CLIPPED, &rcw, s, len, NULL); +} + +int Surface::WidthText(Font &font_, const char *s, int len) { + SetFont(font_); + SIZE sz; + ::GetTextExtentPoint32(hdc, s, len, &sz); + return sz.cx; +} + +void Surface::MeasureWidths(Font &font_, const char *s, int len, int *positions) { + SetFont(font_); + SIZE sz; + int fit = 0; + ::GetTextExtentExPoint(hdc, s, len, 30000, &fit, positions, &sz); +} + +int Surface::WidthChar(Font &font_, char ch) { + SetFont(font_); + SIZE sz; + ::GetTextExtentPoint32(hdc, &ch, 1, &sz); + return sz.cx; +} + +int Surface::Ascent(Font &font_) { + SetFont(font_); + TEXTMETRIC tm; + ::GetTextMetrics(hdc, &tm); + return tm.tmAscent; +} + +int Surface::Descent(Font &font_) { + SetFont(font_); + TEXTMETRIC tm; + ::GetTextMetrics(hdc, &tm); + return tm.tmDescent; +} + +int Surface::InternalLeading(Font &font_) { + SetFont(font_); + TEXTMETRIC tm; + ::GetTextMetrics(hdc, &tm); + return tm.tmInternalLeading; +} + +int Surface::ExternalLeading(Font &font_) { + SetFont(font_); + TEXTMETRIC tm; + ::GetTextMetrics(hdc, &tm); + return tm.tmExternalLeading; +} + +int Surface::Height(Font &font_) { + SetFont(font_); + TEXTMETRIC tm; + ::GetTextMetrics(hdc, &tm); + return tm.tmHeight; +} + +int Surface::AverageCharWidth(Font &font_) { + SetFont(font_); + TEXTMETRIC tm; + ::GetTextMetrics(hdc, &tm); + return tm.tmAveCharWidth; +} + +int Surface::SetPalette(Palette *pal, bool inBackGround) { + if (paletteOld) { + ::SelectPalette(hdc,paletteOld,TRUE); + } + paletteOld = 0; + int changes = 0; + if (pal->allowRealization) { + paletteOld = ::SelectPalette(hdc, pal->hpal, inBackGround); + changes = ::RealizePalette(hdc); + } + return changes; +} + +void Surface::SetClip(PRectangle rc) { + ::IntersectClipRect(hdc, rc.left, rc.top, rc.right, rc.bottom); +} + +void Surface::FlushCachedState() { + pen = 0; + brush = 0; + font = 0; +} + +Window::~Window() { +} + +void Window::Destroy() { + if (id) + ::DestroyWindow(id); + id = 0; +} + +bool Window::HasFocus() { + return ::GetFocus() == id; +} + +PRectangle Window::GetPosition() { + RECT rc; + ::GetWindowRect(id, &rc); + return PRectangle(rc.left, rc.top, rc.right, rc.bottom); +} + +void Window::SetPosition(PRectangle rc) { + ::SetWindowPos(id, 0, rc.left, rc.top, rc.Width(), rc.Height(), 0); +} + +void Window::SetPositionRelative(PRectangle rc, Window) { + SetPosition(rc); +} + +PRectangle Window::GetClientPosition() { + RECT rc; + ::GetClientRect(id, &rc); + return PRectangle(rc.left, rc.top, rc.right, rc.bottom); +} + +void Window::Show(bool show) { + if (show) + ::ShowWindow(id, SW_SHOWNORMAL); + else + ::ShowWindow(id, SW_HIDE); +} + +void Window::InvalidateAll() { + ::InvalidateRect(id, NULL, FALSE); +} + +void Window::InvalidateRectangle(PRectangle rc) { + RECT rcw = RectFromPRectangle(rc); + ::InvalidateRect(id, &rcw, FALSE); +} + +void Window::SetFont(Font &font) { + SendMessage(WM_SETFONT, + reinterpret_cast<WPARAM>(font.GetID()), 0); +} + +static HINSTANCE hinstPlatformRes = 0; + +void Window::SetCursor(Cursor curs) { + switch (curs) { + case cursorText: + ::SetCursor(::LoadCursor(NULL,IDC_IBEAM)); + break; + case cursorArrow: + ::SetCursor(::LoadCursor(NULL,IDC_ARROW)); + break; + case cursorUp: + ::SetCursor(::LoadCursor(NULL,IDC_UPARROW)); + break; + case cursorWait: + ::SetCursor(::LoadCursor(NULL,IDC_WAIT)); + break; + case cursorHoriz: + ::SetCursor(::LoadCursor(NULL,IDC_SIZEWE)); + break; + case cursorVert: + ::SetCursor(::LoadCursor(NULL,IDC_SIZENS)); + break; + case cursorReverseArrow: { + if (!hinstPlatformRes) + hinstPlatformRes = GetModuleHandle("Scintilla"); + if (!hinstPlatformRes) + hinstPlatformRes = GetModuleHandle("SciLexer"); + if (!hinstPlatformRes) + hinstPlatformRes = GetModuleHandle(NULL); + ::SetCursor(::LoadCursor(hinstPlatformRes, MAKEINTRESOURCE(IDC_MARGIN))); + } + break; + } +} + +void Window::SetTitle(const char *s) { + ::SetWindowText(id, s); +} + +LRESULT Window::SendMessage(UINT msg, WPARAM wParam, LPARAM lParam) { + return ::SendMessage(id, msg, wParam, lParam); +} + +int Window::GetDlgCtrlID() { + return ::GetDlgCtrlID(id); +} + +HINSTANCE Window::GetInstance() { + return reinterpret_cast<HINSTANCE>( + ::GetWindowLong(id,GWL_HINSTANCE)); +} + +ListBox::ListBox() { +} + +ListBox::~ListBox() { +} + +void ListBox::Create(Window &parent, int ctrlID) { + id = ::CreateWindowEx( + WS_EX_CLIENTEDGE, "listbox", "", + WS_CHILD|WS_BORDER|WS_VSCROLL|LBS_SORT|LBS_NOTIFY, + 100,100, 150,80, parent.GetID(), reinterpret_cast<HMENU>(ctrlID), + parent.GetInstance(), 0); +} + +void ListBox::Clear() { + SendMessage(LB_RESETCONTENT); +} + +void ListBox::Append(char *s) { + SendMessage(LB_ADDSTRING, 0, reinterpret_cast<LPARAM>(s)); +} + +int ListBox::Length() { + return SendMessage(LB_GETCOUNT); +} + +void ListBox::Select(int n) { + SendMessage(LB_SETCURSEL, n); +} + +int ListBox::GetSelection() { + return SendMessage(LB_GETCURSEL); +} + +int ListBox::Find(const char *prefix) { + return SendMessage(LB_FINDSTRING, 0, reinterpret_cast<LPARAM>(prefix)); +} + +void ListBox::GetValue(int n, char *value, int len) { + int lenText = SendMessage(LB_GETTEXTLEN, n); + if ((len > 0) && (lenText > 0)){ + char *text = new char[len+1]; + if (text) { + SendMessage(LB_GETTEXT, n, reinterpret_cast<LPARAM>(text)); + strncpy(value, text, len); + value[len-1] = '\0'; + delete []text; + } else { + value[0] = '\0'; + } + } else { + value[0] = '\0'; + } +} + +void ListBox::Sort() { + // Windows keeps sorted so no need to sort +} + +Menu::Menu() : id(0) { +} + +void Menu::CreatePopUp() { + Destroy(); + id = ::CreatePopupMenu(); +} + +void Menu::Destroy() { + if (id) + ::DestroyMenu(id); + id = 0; +} + +void Menu::Show(Point pt, Window &w) { + ::TrackPopupMenu(id, 0, pt.x - 4, pt.y, 0, w.GetID(), NULL); + Destroy(); +} + +Colour Platform::Chrome() { + return ::GetSysColor(COLOR_3DFACE); +} + +Colour Platform::ChromeHighlight() { + return ::GetSysColor(COLOR_3DHIGHLIGHT); +} + +const char *Platform::DefaultFont() { + return "Verdana"; +} + +int Platform::DefaultFontSize() { + return 8; +} + +unsigned int Platform::DoubleClickTime() { + return ::GetDoubleClickTime(); +} + +void Platform::DebugDisplay(const char *s) { + ::OutputDebugString(s); +} + +bool Platform::IsKeyDown(int key) { + return ::GetKeyState(key) & 0x80000000; +} + +long Platform::SendScintilla(WindowID w, unsigned int msg, unsigned long wParam, long lParam) { + return ::SendMessage(w, msg, wParam, lParam); +} + +// These are utility functions not really tied to a platform + +int Platform::Minimum(int a, int b) { + if (a < b) + return a; + else + return b; +} + +int Platform::Maximum(int a, int b) { + if (a > b) + return a; + else + return b; +} + +//#define TRACE + +void Platform::DebugPrintf(const char *format, ...) { +#ifdef TRACE + char buffer[2000]; + va_list pArguments; + va_start(pArguments, format); + vsprintf(buffer,format,pArguments); + va_end(pArguments); + Platform::DebugDisplay(buffer); +#endif +} + +int Platform::Clamp(int val, int minVal, int maxVal) { + if (val > maxVal) + val = maxVal; + if (val < minVal) + val = minVal; + return val; +} diff --git a/win32/ScintRes.rc b/win32/ScintRes.rc index 9bb988169..27e1c78a4 100644 --- a/win32/ScintRes.rc +++ b/win32/ScintRes.rc @@ -1,40 +1,40 @@ -// Resource file for Scintilla
-// Copyright 1998-2000 by Neil Hodgson <neilh@scintilla.org>
-// The License.txt file describes the conditions under which this software may be distributed.
-
-#ifndef __BORLANDC__
-#include <windows.h>
-#endif
-
-#include "PlatformRes.h"
-
-VS_VERSION_INFO VERSIONINFO
-FILEVERSION 1, 2, 4, 0
-PRODUCTVERSION 1, 2, 4, 0
-FILEFLAGSMASK 0x3fL
-FILEFLAGS 0
-FILEOS VOS_NT_WINDOWS32
-FILETYPE VFT_APP
-FILESUBTYPE VFT2_UNKNOWN
-BEGIN
- BLOCK "VarFileInfo"
- BEGIN
- VALUE "Translation", 0x409, 1200
- END
- BLOCK "StringFileInfo"
- BEGIN
- BLOCK "040904b0"
- BEGIN
- VALUE "CompanyName", "Neil Hodgson neilh@scintilla.org\0"
- VALUE "FileDescription", "Scintilla.DLL - a Source Editing Component\0"
- VALUE "FileVersion", "1.24\0"
- VALUE "InternalName", "Scintilla\0"
- VALUE "LegalCopyright", "Copyright 1998-2000 by Neil Hodgson\0"
- VALUE "OriginalFilename", "Scintilla.DLL\0"
- VALUE "ProductName", "Scintilla\0"
- VALUE "ProductVersion", "1.24\0"
- END
- END
-END
-
-IDC_MARGIN CURSOR DISCARDABLE "Margin.cur"
+// Resource file for Scintilla +// Copyright 1998-2000 by Neil Hodgson <neilh@scintilla.org> +// The License.txt file describes the conditions under which this software may be distributed. + +#ifndef __BORLANDC__ +#include <windows.h> +#endif + +#include "PlatformRes.h" + +VS_VERSION_INFO VERSIONINFO +FILEVERSION 1, 2, 4, 0 +PRODUCTVERSION 1, 2, 4, 0 +FILEFLAGSMASK 0x3fL +FILEFLAGS 0 +FILEOS VOS_NT_WINDOWS32 +FILETYPE VFT_APP +FILESUBTYPE VFT2_UNKNOWN +BEGIN + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x409, 1200 + END + BLOCK "StringFileInfo" + BEGIN + BLOCK "040904b0" + BEGIN + VALUE "CompanyName", "Neil Hodgson neilh@scintilla.org\0" + VALUE "FileDescription", "Scintilla.DLL - a Source Editing Component\0" + VALUE "FileVersion", "1.24\0" + VALUE "InternalName", "Scintilla\0" + VALUE "LegalCopyright", "Copyright 1998-2000 by Neil Hodgson\0" + VALUE "OriginalFilename", "Scintilla.DLL\0" + VALUE "ProductName", "Scintilla\0" + VALUE "ProductVersion", "1.24\0" + END + END +END + +IDC_MARGIN CURSOR DISCARDABLE "Margin.cur" diff --git a/win32/makefile_vc b/win32/makefile_vc index d78add8ea..c7a31347f 100644 --- a/win32/makefile_vc +++ b/win32/makefile_vc @@ -17,11 +17,13 @@ LEXCOMPONENT = $(DIR_BIN)\SciLexer.dll LDFLAGS = KERNEL32.lib USER32.lib GDI32.lib COMDLG32.lib WINMM.lib COMCTL32.lib ADVAPI32.lib IMM32.lib SHELL32.LIB OLE32.LIB INCLUDEDIRS=-I ../include -I ../src -CXXFLAGS = /TP /MD /Ox +CXXFLAGS = /TP !IFDEF DEBUG -CXXFLAGS=$(CXXFLAGS) /Zi +CXXFLAGS=$(CXXFLAGS) /Zi /Od /MDd LDFLAGS=/DEBUG $(LDFLAGS) +!ELSE +CXXFLAGS=$(CXXFLAGS) /Ox /MD !ENDIF #.cxx.obj: |