opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Issue #448: Apply 192 new icons mainly from Icons8 gallery, with an OpenSource permission (talked to Eugenie from Icons8)

Browse Source
This commit is contained in:
Ansgar Becker
2019-01-26 19:15:25 +01:00
parent 181940cf8d
commit aa0540921c
27 changed files with 12205 additions and 6798 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/about.dfm
View File

@ -1403,7 +1403,7 @@ object AboutBox: TAboutBox
Height = 25 Height = 25
Action = MainForm.actUpdateCheck Action = MainForm.actUpdateCheck
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 0 TabOrder = 0
end end
object editDonated: TEdit object editDonated: TEdit
@ -1426,7 +1426,7 @@ object AboutBox: TAboutBox
OnClick = btnDonatedOKClick OnClick = btnDonatedOKClick
end end
object popupLabels: TPopupMenu object popupLabels: TPopupMenu
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
Left = 32 Left = 32
Top = 144 Top = 144
object menuCopyLabel: TMenuItem object menuCopyLabel: TMenuItem

180
source/apphelpers.pas
View File

@ -350,9 +350,6 @@ type
function GetUwpFullName: String; function GetUwpFullName: String;
function RunningAsUwp: Boolean; function RunningAsUwp: Boolean;
function DpiScaleFactor(Form: TForm): Double; function DpiScaleFactor(Form: TForm): Double;
procedure ScaleImageList(const ImgList: TImageList; ScaleFactor: Real);
procedure LoadPNGFromImageList(AImageList: TCustomImageList; AIndex: Integer; var ADestPNG: TPngImage);
procedure ResizePngImage(aPng: TPNGImage; NewWidth, NewHeight: Integer);
function GetThemeColor(Color: TColor): TColor; function GetThemeColor(Color: TColor): TColor;
function ThemeIsDark(ThemeName: String): Boolean; function ThemeIsDark(ThemeName: String): Boolean;
@ -1986,7 +1983,7 @@ begin
Continue; Continue;
popup := TPopupMenu.Create(Self); popup := TPopupMenu.Create(Self);
popup.Images := MainForm.ImageListMain; popup.Images := MainForm.VirtualImageListMain;
Item := TMenuItem.Create(popup); Item := TMenuItem.Create(popup);
Item.Action := MainForm.actCopy; Item.Action := MainForm.actCopy;
@ -2982,181 +2979,6 @@ begin
end; end;
procedure ScaleImageList(const ImgList: TImageList; ScaleFactor: Real);
var
ResizedImages: TImageList;
i: integer;
BitmapCopy: Graphics.TBitmap;
PngOrig: TPngImage;
ResizedWidth: Integer;
begin
// Upscale image list for high-dpi mode
if ScaleFactor = 1 then
Exit;
ResizedWidth := Round(imgList.Width * ScaleFactor);
// Create new list with resized icons
ResizedImages := TImageList.Create(ImgList.Owner);
ResizedImages.Width := ResizedWidth;
ResizedImages.Height := ResizedWidth;
ResizedImages.ColorDepth := ImgList.ColorDepth;
ResizedImages.DrawingStyle := ImgList.DrawingStyle;
ResizedImages.Clear;
for i:=0 to ImgList.Count-1 do begin
PngOrig := TPngImage.CreateBlank(COLOR_RGBALPHA, 8, ImgList.Width, ImgList.Height);
LoadPNGFromImageList(ImgList, i, PngOrig);
ResizePngImage(PngOrig, ResizedWidth, ResizedWidth);
BitmapCopy := Graphics.TBitmap.Create;
PngOrig.AssignTo(BitmapCopy);
BitmapCopy.AlphaFormat := afIgnored;
ImageList_Add(ResizedImages.Handle, BitmapCopy.Handle, 0);
end;
// Assign images to original instance
ImgList.Assign(ResizedImages);
end;
procedure LoadPNGFromImageList(AImageList: TCustomImageList; AIndex: Integer; var ADestPNG: TPngImage);
const
PixelsQuad = MaxInt div SizeOf(TRGBQuad) - 1;
type
TRGBAArray = Array [0..PixelsQuad - 1] of TRGBQuad;
PRGBAArray = ^TRGBAArray;
var
ContentBmp: Graphics.TBitmap;
RowInOut: PRGBAArray;
RowAlpha: PByteArray;
x: Integer;
y: Integer;
begin
// Extract PNG image with alpha transparency from an imagelist
// Code taken from https://stackoverflow.com/a/52811869/4110077
if not Assigned(AImageList) or (AIndex < 0)
or (AIndex > AImageList.Count - 1) or not Assigned(ADestPNG)
then
Exit;
ContentBmp := Graphics.TBitmap.Create;
try
ContentBmp.SetSize(ADestPNG.Width, ADestPNG.Height);
ContentBmp.PixelFormat := pf32bit;
// Allocate zero alpha-channel
for y:=0 to ContentBmp.Height - 1 do begin
RowInOut := ContentBmp.ScanLine[y];
for x:=0 to ContentBmp.Width - 1 do
RowInOut[x].rgbReserved := 0;
end;
ContentBmp.AlphaFormat := afDefined;
// Copy image
AImageList.Draw(ContentBmp.Canvas, 0, 0, AIndex, true);
// Now ContentBmp has premultiplied alpha value, but it will
// make bitmap too dark after converting it to PNG. Setting
// AlphaFormat property to afIgnored helps to unpremultiply
// alpha value of each pixel in bitmap.
ContentBmp.AlphaFormat := afIgnored;
// Copy graphical data and alpha-channel values
ADestPNG.Assign(ContentBmp);
ADestPNG.CreateAlpha;
for y:=0 to ContentBmp.Height - 1 do begin
RowInOut := ContentBmp.ScanLine[y];
RowAlpha := ADestPNG.AlphaScanline[y];
for x:=0 to ContentBmp.Width - 1 do
RowAlpha[x] := RowInOut[x].rgbReserved;
end;
finally
ContentBmp.Free;
end;
end;
procedure ResizePngImage(aPng: TPNGImage; NewWidth, NewHeight: Integer);
var
xscale, yscale: Single;
sfrom_y, sfrom_x: Single;
ifrom_y, ifrom_x: Integer;
to_y, to_x: Integer;
weight_x, weight_y: array[0..1] of Single;
weight: Single;
new_red, new_green: Integer;
new_blue, new_alpha: Integer;
new_colortype: Integer;
total_red, total_green: Single;
total_blue, total_alpha: Single;
IsAlpha: Boolean;
ix, iy: Integer;
bTmp: TPNGImage;
sli, slo: pRGBLine;
ali, alo: PByteArray;
begin
// Code taken from PNGDelphi component snippets, published by Gustavo Daud in 2006
// on SourceForge, now downloadable on https://cc.embarcadero.com/Item/25631 .
// Slightly but carefully modified for readability.
if not (aPng.Header.ColorType in [COLOR_RGBALPHA, COLOR_RGB]) then
Raise Exception.Create('Only COLOR_RGBALPHA and COLOR_RGB formats are supported');
IsAlpha := aPng.Header.ColorType in [COLOR_RGBALPHA];
if IsAlpha then
new_colortype := COLOR_RGBALPHA
else
new_colortype := COLOR_RGB;
bTmp := TPNGImage.CreateBlank(new_colortype, 8, NewWidth, NewHeight);
xscale := bTmp.Width / (aPng.Width-1);
yscale := bTmp.Height / (aPng.Height-1);
for to_y:=0 to bTmp.Height-1 do begin
sfrom_y := to_y / yscale;
ifrom_y := Trunc(sfrom_y);
weight_y[1] := sfrom_y - ifrom_y;
weight_y[0] := 1 - weight_y[1];
for to_x := 0 to bTmp.Width-1 do begin
sfrom_x := to_x / xscale;
ifrom_x := Trunc(sfrom_x);
weight_x[1] := sfrom_x - ifrom_x;
weight_x[0] := 1 - weight_x[1];
total_red := 0.0;
total_green := 0.0;
total_blue := 0.0;
total_alpha := 0.0;
for ix := 0 to 1 do begin
for iy := 0 to 1 do begin
sli := aPng.Scanline[ifrom_y + iy];
if IsAlpha then
ali := aPng.AlphaScanline[ifrom_y + iy];
new_red := sli[ifrom_x + ix].rgbtRed;
new_green := sli[ifrom_x + ix].rgbtGreen;
new_blue := sli[ifrom_x + ix].rgbtBlue;
if IsAlpha then
new_alpha := ali[ifrom_x + ix];
weight := weight_x[ix] * weight_y[iy];
total_red := total_red + new_red * weight;
total_green := total_green + new_green * weight;
total_blue := total_blue + new_blue * weight;
if IsAlpha then
total_alpha := total_alpha + new_alpha * weight;
end;
end;
slo := bTmp.ScanLine[to_y];
if IsAlpha then
alo := bTmp.AlphaScanLine[to_y];
slo[to_x].rgbtRed := Round(total_red);
slo[to_x].rgbtGreen := Round(total_green);
slo[to_x].rgbtBlue := Round(total_blue);
if isAlpha then
alo[to_x] := Round(total_alpha);
end;
end;
aPng.Assign(bTmp);
bTmp.Free;
end;
function GetThemeColor(Color: TColor): TColor; function GetThemeColor(Color: TColor): TColor;
begin begin
// Not required with vcl-style-utils: // Not required with vcl-style-utils:

2
source/bineditor.dfm
View File

@ -52,7 +52,7 @@ object frmBinEditor: TfrmBinEditor
Align = alNone Align = alNone
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'tlbStandard' Caption = 'tlbStandard'
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 1 TabOrder = 1

6
source/change_password.dfm
View File

@ -60,7 +60,7 @@ object frmPasswordChange: TfrmPasswordChange
Width = 302 Width = 302
Height = 21 Height = 21
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.DropDownMenu = popupPassword RightButton.DropDownMenu = popupPassword
RightButton.ImageIndex = 75 RightButton.ImageIndex = 75
RightButton.Visible = True RightButton.Visible = True
@ -76,7 +76,7 @@ object frmPasswordChange: TfrmPasswordChange
Width = 302 Width = 302
Height = 21 Height = 21
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
PasswordChar = '*' PasswordChar = '*'
TabOrder = 1 TabOrder = 1
TextHint = 'Retype password' TextHint = 'Retype password'
@ -114,7 +114,7 @@ object frmPasswordChange: TfrmPasswordChange
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'Copy' Caption = 'Copy'
ImageIndex = 3 ImageIndex = 3
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 4 TabOrder = 4
OnClick = btnCopyToClipboardClick OnClick = btnCopyToClipboardClick
end end

2
source/column_selection.dfm
View File

@ -79,7 +79,7 @@ object ColumnSelectionForm: TColumnSelectionForm
Width = 113 Width = 113
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
LeftButton.ImageIndex = 146 LeftButton.ImageIndex = 146
LeftButton.Visible = True LeftButton.Visible = True
RightButton.ImageIndex = 26 RightButton.ImageIndex = 26

24
source/connections.dfm
View File

@ -86,7 +86,7 @@ object connform: Tconnform
Header.PopupMenu = MainForm.popupListHeader Header.PopupMenu = MainForm.popupListHeader
Header.SortColumn = 0 Header.SortColumn = 0
HintMode = hmTooltip HintMode = hmTooltip
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
IncrementalSearch = isAll IncrementalSearch = isAll
PopupMenu = popupSessions PopupMenu = popupSessions
TabOrder = 0 TabOrder = 0
@ -178,7 +178,7 @@ object connform: Tconnform
Margins.Bottom = 40 Margins.Bottom = 40
ActivePage = tabStart ActivePage = tabStart
Align = alClient Align = alClient
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 7 TabOrder = 7
object tabStart: TTabSheet object tabStart: TTabSheet
Caption = 'Start' Caption = 'Start'
@ -391,7 +391,7 @@ object connform: Tconnform
Width = 294 Width = 294
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.ImageIndex = 75 RightButton.ImageIndex = 75
RightButton.Visible = True RightButton.Visible = True
TabOrder = 9 TabOrder = 9
@ -521,7 +521,7 @@ object connform: Tconnform
Width = 294 Width = 294
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.ImageIndex = 51 RightButton.ImageIndex = 51
RightButton.Visible = True RightButton.Visible = True
TabOrder = 0 TabOrder = 0
@ -558,7 +558,7 @@ object connform: Tconnform
Width = 294 Width = 294
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.ImageIndex = 51 RightButton.ImageIndex = 51
RightButton.Visible = True RightButton.Visible = True
TabOrder = 7 TabOrder = 7
@ -665,7 +665,7 @@ object connform: Tconnform
Width = 294 Width = 294
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.ImageIndex = 51 RightButton.ImageIndex = 51
RightButton.Visible = True RightButton.Visible = True
TabOrder = 1 TabOrder = 1
@ -680,7 +680,7 @@ object connform: Tconnform
Width = 294 Width = 294
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.ImageIndex = 51 RightButton.ImageIndex = 51
RightButton.Visible = True RightButton.Visible = True
TabOrder = 2 TabOrder = 2
@ -695,7 +695,7 @@ object connform: Tconnform
Width = 294 Width = 294
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.ImageIndex = 51 RightButton.ImageIndex = 51
RightButton.Visible = True RightButton.Visible = True
TabOrder = 3 TabOrder = 3
@ -733,7 +733,7 @@ object connform: Tconnform
Width = 294 Width = 294
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.ImageIndex = 51 RightButton.ImageIndex = 51
RightButton.Visible = True RightButton.Visible = True
TabOrder = 5 TabOrder = 5
@ -878,7 +878,7 @@ object connform: Tconnform
OnClick = btnMoreClick OnClick = btnMoreClick
end end
object popupSessions: TPopupMenu object popupSessions: TPopupMenu
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
Left = 23 Left = 23
Top = 83 Top = 83
object menuRename: TMenuItem object menuRename: TMenuItem
@ -930,7 +930,7 @@ object connform: Tconnform
Top = 35 Top = 35
end end
object popupNew: TPopupMenu object popupNew: TPopupMenu
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
Left = 109 Left = 109
Top = 82 Top = 82
object menuNewSessionInRoot: TMenuItem object menuNewSessionInRoot: TMenuItem
@ -955,7 +955,7 @@ object connform: Tconnform
end end
end end
object popupMore: TPopupMenu object popupMore: TPopupMenu
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
Left = 24 Left = 24
Top = 144 Top = 144
object Preferences1: TMenuItem object Preferences1: TMenuItem

2
source/copytable.dfm
View File

@ -89,7 +89,7 @@ object CopyTableForm: TCopyTableForm
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.MainColumn = -1 Header.MainColumn = -1
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 2 TabOrder = 2
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes, toAutoChangeScale] TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes, toAutoChangeScale]
TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]

8
source/data_sorting.dfm
View File

@ -33,7 +33,7 @@ object DataSortingForm: TDataSortingForm
Caption = 'OK' Caption = 'OK'
Default = True Default = True
Enabled = False Enabled = False
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
ModalResult = 1 ModalResult = 1
TabOrder = 0 TabOrder = 0
OnClick = btnOKClick OnClick = btnOKClick
@ -46,7 +46,7 @@ object DataSortingForm: TDataSortingForm
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
ModalResult = 2 ModalResult = 2
TabOrder = 1 TabOrder = 1
OnClick = btnCancelClick OnClick = btnCancelClick
@ -58,7 +58,7 @@ object DataSortingForm: TDataSortingForm
Height = 25 Height = 25
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'Add Col' Caption = 'Add Col'
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 2 TabOrder = 2
OnClick = btnAddColClick OnClick = btnAddColClick
end end
@ -69,7 +69,7 @@ object DataSortingForm: TDataSortingForm
Height = 25 Height = 25
Action = MainForm.actDataResetSorting Action = MainForm.actDataResetSorting
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
ModalResult = 2 ModalResult = 2
TabOrder = 3 TabOrder = 3
end end

10
source/data_sorting.pas
View File

@ -134,10 +134,10 @@ begin
btnOrder.Glyph.Transparent := True; btnOrder.Glyph.Transparent := True;
btnOrder.Glyph.AlphaFormat := afDefined; btnOrder.Glyph.AlphaFormat := afDefined;
if OrderColumns[i].SortDirection = ORDER_DESC then begin if OrderColumns[i].SortDirection = ORDER_DESC then begin
MainForm.ImageListMain.GetBitmap(110, btnOrder.Glyph); MainForm.VirtualImageListMain.GetBitmap(110, btnOrder.Glyph);
btnOrder.Down := True; btnOrder.Down := True;
end else begin end else begin
MainForm.ImageListMain.GetBitmap(109, btnOrder.Glyph); MainForm.VirtualImageListMain.GetBitmap(109, btnOrder.Glyph);
end; end;
btnOrder.Hint := _('Toggle the sort direction for this column.'); btnOrder.Hint := _('Toggle the sort direction for this column.');
btnOrder.Tag := i+1; btnOrder.Tag := i+1;
@ -150,7 +150,7 @@ begin
btnDelete.Height := comboColumns.Height; btnDelete.Height := comboColumns.Height;
btnDelete.Left := btnOrder.Left + btnOrder.Width + Margin; btnDelete.Left := btnOrder.Left + btnOrder.Width + Margin;
btnDelete.Top := TopPos; btnDelete.Top := TopPos;
btnDelete.Images := MainForm.ImageListMain; btnDelete.Images := MainForm.VirtualImageListMain;
btnDelete.ImageIndex := 26; btnDelete.ImageIndex := 26;
btnDelete.Hint := _('Drops sorting by this column.'); btnDelete.Hint := _('Drops sorting by this column.');
btnDelete.Tag := i+1; btnDelete.Tag := i+1;
@ -219,10 +219,10 @@ begin
btn := Sender as TSpeedButton; btn := Sender as TSpeedButton;
btn.Glyph := nil; btn.Glyph := nil;
if OrderColumns[btn.Tag-1].SortDirection = ORDER_ASC then begin if OrderColumns[btn.Tag-1].SortDirection = ORDER_ASC then begin
MainForm.ImageListMain.GetBitmap(110, btn.Glyph); MainForm.VirtualImageListMain.GetBitmap(110, btn.Glyph);
OrderColumns[btn.Tag-1].SortDirection := ORDER_DESC; OrderColumns[btn.Tag-1].SortDirection := ORDER_DESC;
end else begin end else begin
MainForm.ImageListMain.GetBitmap(109, btn.Glyph); MainForm.VirtualImageListMain.GetBitmap(109, btn.Glyph);
OrderColumns[btn.Tag-1].SortDirection := ORDER_ASC; OrderColumns[btn.Tag-1].SortDirection := ORDER_ASC;
end; end;

2
source/event_editor.dfm
View File

@ -87,7 +87,7 @@ object frmEventEditor: TfrmEventEditor
Height = 166 Height = 166
ActivePage = tabSettings ActivePage = tabSettings
Align = alTop Align = alTop
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 0 TabOrder = 0
OnChange = PageControlMainChange OnChange = PageControlMainChange
object tabSettings: TTabSheet object tabSettings: TTabSheet

12
source/exportgrid.dfm
View File

@ -123,7 +123,7 @@ object frmExportGrid: TfrmExportGrid
Width = 264 Width = 264
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
LeftButton.DropDownMenu = popupRecentFiles LeftButton.DropDownMenu = popupRecentFiles
LeftButton.ImageIndex = 75 LeftButton.ImageIndex = 75
LeftButton.Visible = True LeftButton.Visible = True
@ -201,7 +201,7 @@ object frmExportGrid: TfrmExportGrid
Width = 93 Width = 93
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.DisabledImageIndex = 107 RightButton.DisabledImageIndex = 107
RightButton.ImageIndex = 108 RightButton.ImageIndex = 108
RightButton.Visible = True RightButton.Visible = True
@ -216,7 +216,7 @@ object frmExportGrid: TfrmExportGrid
Width = 93 Width = 93
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.DisabledImageIndex = 107 RightButton.DisabledImageIndex = 107
RightButton.ImageIndex = 108 RightButton.ImageIndex = 108
RightButton.Visible = True RightButton.Visible = True
@ -230,7 +230,7 @@ object frmExportGrid: TfrmExportGrid
Width = 93 Width = 93
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.DisabledImageIndex = 107 RightButton.DisabledImageIndex = 107
RightButton.ImageIndex = 108 RightButton.ImageIndex = 108
RightButton.Visible = True RightButton.Visible = True
@ -262,7 +262,7 @@ object frmExportGrid: TfrmExportGrid
Width = 93 Width = 93
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.DisabledImageIndex = 107 RightButton.DisabledImageIndex = 107
RightButton.ImageIndex = 108 RightButton.ImageIndex = 108
RightButton.Visible = True RightButton.Visible = True
@ -279,7 +279,7 @@ object frmExportGrid: TfrmExportGrid
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'Save clipboard settings' Caption = 'Save clipboard settings'
ImageIndex = 4 ImageIndex = 4
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 6 TabOrder = 6
OnClick = btnSetClipboardDefaultsClick OnClick = btnSetClipboardDefaultsClick
end end

4
source/insertfiles.dfm
View File

@ -98,7 +98,7 @@ object frmInsertFiles: TfrmInsertFiles
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
EditDelay = 0 EditDelay = 0
Header.AutoSizeIndex = 2 Header.AutoSizeIndex = 2
Header.Images = MainForm.ImageListMain Header.Images = MainForm.VirtualImageListMain
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible] Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
Header.PopupMenu = MainForm.popupListHeader Header.PopupMenu = MainForm.popupListHeader
TabOrder = 2 TabOrder = 2
@ -220,7 +220,7 @@ object frmInsertFiles: TfrmInsertFiles
Align = alNone Align = alNone
ButtonWidth = 66 ButtonWidth = 66
Caption = 'ToolBarFiles' Caption = 'ToolBarFiles'
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1

6
source/insertfiles.pas
View File

@ -225,9 +225,9 @@ begin
ImageIndex := 128 ImageIndex := 128
else else
ImageIndex := 127; ImageIndex := 127;
X := CellRect.Left + (Grid.Header.Columns[Column].Width div 2) - (MainForm.ImageListMain.Width div 2); X := CellRect.Left + (Grid.Header.Columns[Column].Width div 2) - (MainForm.VirtualImageListMain.Width div 2);
Y := CellRect.Top + Integer(Grid.NodeHeight[Node] div 2) - (MainForm.ImageListMain.Height div 2); Y := CellRect.Top + Integer(Grid.NodeHeight[Node] div 2) - (MainForm.VirtualImageListMain.Height div 2);
MainForm.ImageListMain.Draw(TargetCanvas, X, Y, ImageIndex); MainForm.VirtualImageListMain.Draw(TargetCanvas, X, Y, ImageIndex);
end; end;
end; end;

4
source/loaddata.dfm
View File

@ -76,7 +76,7 @@ object loaddataform: Tloaddataform
Width = 395 Width = 395
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.ImageIndex = 51 RightButton.ImageIndex = 51
RightButton.Visible = True RightButton.Visible = True
TabOrder = 0 TabOrder = 0
@ -357,7 +357,7 @@ object loaddataform: Tloaddataform
AutoSize = True AutoSize = True
ButtonWidth = 58 ButtonWidth = 58
Caption = 'ToolBarColMove' Caption = 'ToolBarColMove'
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
List = True List = True
ParentShowHint = False ParentShowHint = False
ShowCaptions = True ShowCaptions = True

2
source/loginform.pas
View File

@ -38,7 +38,7 @@ procedure TfrmLogin.FormCreate(Sender: TObject);
begin begin
TranslateComponent(Self); TranslateComponent(Self);
Caption := APPNAME + ' - Login'; Caption := APPNAME + ' - Login';
MainForm.ImageListMain.GetBitmap(144, imgIcon.Picture.Bitmap); MainForm.VirtualImageListMain.GetBitmap(144, imgIcon.Picture.Bitmap);
lblPrompt.Font.Size := 10; lblPrompt.Font.Size := 10;
lblPrompt.Font.Color := GetThemeColor(clHotlight); lblPrompt.Font.Color := GetThemeColor(clHotlight);
lblPrompt.Font.Style := lblPrompt.Font.Style + [fsBold]; lblPrompt.Font.Style := lblPrompt.Font.Style + [fsBold];

18614
source/main.dfm
View File

File diff suppressed because it is too large Load Diff

29
source/main.pas
View File

@ -18,7 +18,8 @@ uses
TableTools, View, Usermanager, SelectDBObject, connections, sqlhelp, dbconnection, TableTools, View, Usermanager, SelectDBObject, connections, sqlhelp, dbconnection,
insertfiles, searchreplace, loaddata, copytable, VirtualTrees.HeaderPopup, Cromis.DirectoryWatch, SyncDB, gnugettext, insertfiles, searchreplace, loaddata, copytable, VirtualTrees.HeaderPopup, Cromis.DirectoryWatch, SyncDB, gnugettext,
JumpList, System.Actions, System.UITypes, pngimage, JumpList, System.Actions, System.UITypes, pngimage,
System.ImageList, Vcl.Styles.UxTheme, Vcl.Styles.Utils.Menus, Vcl.Styles.Utils.Forms; System.ImageList, Vcl.Styles.UxTheme, Vcl.Styles.Utils.Menus, Vcl.Styles.Utils.Forms,
Vcl.VirtualImageList, Vcl.BaseImageCollection, Vcl.ImageCollection;
type type
@ -216,7 +217,6 @@ type
N8a: TMenuItem; N8a: TMenuItem;
tlbSep6: TToolButton; tlbSep6: TToolButton;
menuUpdateCheck: TMenuItem; menuUpdateCheck: TMenuItem;
ImageListMain: TImageList;
actCreateView: TAction; actCreateView: TAction;
ToolButton3: TToolButton; ToolButton3: TToolButton;
actDataFirst: TAction; actDataFirst: TAction;
@ -636,6 +636,8 @@ type
Copyselectedrows1: TMenuItem; Copyselectedrows1: TMenuItem;
actClearQueryLog: TAction; actClearQueryLog: TAction;
ControlBarMain: TControlBar; ControlBarMain: TControlBar;
ImageCollectionMain: TImageCollection;
VirtualImageListMain: TVirtualImageList;
procedure actCreateDBObjectExecute(Sender: TObject); procedure actCreateDBObjectExecute(Sender: TObject);
procedure menuConnectionsPopup(Sender: TObject); procedure menuConnectionsPopup(Sender: TObject);
procedure actExitApplicationExecute(Sender: TObject); procedure actExitApplicationExecute(Sender: TObject);
@ -1281,8 +1283,8 @@ begin
PanelRect := Rect; PanelRect := Rect;
StatusBar.Canvas.FillRect(PanelRect); StatusBar.Canvas.FillRect(PanelRect);
if ImageIndex > -1 then begin if ImageIndex > -1 then begin
ImageListMain.Draw(StatusBar.Canvas, PanelRect.Left, PanelRect.Top, ImageIndex, true); VirtualImageListMain.Draw(StatusBar.Canvas, PanelRect.Left, PanelRect.Top, ImageIndex, true);
OffsetRect(PanelRect, ImageListMain.Width+2, 0); OffsetRect(PanelRect, VirtualImageListMain.Width+2, 0);
end; end;
DrawText(StatusBar.Canvas.Handle, PChar(Panel.Text), -1, PanelRect, DT_SINGLELINE or DT_VCENTER); DrawText(StatusBar.Canvas.Handle, PChar(Panel.Text), -1, PanelRect, DT_SINGLELINE or DT_VCENTER);
end; end;
@ -1601,8 +1603,7 @@ begin
TP_GlobalIgnoreClass(TFont); TP_GlobalIgnoreClass(TFont);
TranslateComponent(Self); TranslateComponent(Self);
FixDropDownButtons(Self); FixDropDownButtons(Self);
ScaleImageList(ImageListMain, DpiScaleFactor(Self)); MainMenu1.Images := VirtualImageListMain;
MainMenu1.Images := ImageListMain;
// Translate menu items // Translate menu items
menuQueryHelpersGenerateSelect.Caption := f_('Generate %s ...', ['SELECT']); menuQueryHelpersGenerateSelect.Caption := f_('Generate %s ...', ['SELECT']);
menuQueryHelpersGenerateInsert.Caption := f_('Generate %s ...', ['INSERT']); menuQueryHelpersGenerateInsert.Caption := f_('Generate %s ...', ['INSERT']);
@ -1870,7 +1871,7 @@ begin
SetMainTab(tabHost); SetMainTab(tabHost);
FBtnAddTab := TSpeedButton.Create(PageControlMain); FBtnAddTab := TSpeedButton.Create(PageControlMain);
FBtnAddTab.Parent := PageControlMain; FBtnAddTab.Parent := PageControlMain;
ImageListMain.GetBitmap(actNewQueryTab.ImageIndex, FBtnAddTab.Glyph); VirtualImageListMain.GetBitmap(actNewQueryTab.ImageIndex, FBtnAddTab.Glyph);
FBtnAddTab.Height := PageControlMain.TabRect(0).Bottom - PageControlMain.TabRect(0).Top - 2; FBtnAddTab.Height := PageControlMain.TabRect(0).Bottom - PageControlMain.TabRect(0).Top - 2;
FBtnAddTab.Width := FBtnAddTab.Height; FBtnAddTab.Width := FBtnAddTab.Height;
FBtnAddTab.Flat := True; FBtnAddTab.Flat := True;
@ -1878,7 +1879,7 @@ begin
FBtnAddTab.OnClick := actNewQueryTab.OnExecute; FBtnAddTab.OnClick := actNewQueryTab.OnExecute;
// Filter panel // Filter panel
ImageListMain.GetBitmap(134, btnCloseFilterPanel.Glyph); VirtualImageListMain.GetBitmap(134, btnCloseFilterPanel.Glyph);
if AppSettings.ReadBool(asFilterPanel) then if AppSettings.ReadBool(asFilterPanel) then
actFilterPanelExecute(nil); actFilterPanelExecute(nil);
lblFilterVTInfo.Caption := ''; lblFilterVTInfo.Caption := '';
@ -8769,7 +8770,7 @@ begin
RowNum := Sender.GetNodeData(Node); RowNum := Sender.GetNodeData(Node);
Results.RecNo := RowNum^; Results.RecNo := RowNum^;
if Results.Modified(Column) then if Results.Modified(Column) then
ImageListMain.Draw(TargetCanvas, CellRect.Left, CellRect.Top, 111); VirtualImageListMain.Draw(TargetCanvas, CellRect.Left, CellRect.Top, 111);
end; end;
@ -10246,7 +10247,7 @@ begin
QueryTab.CloseButton.Width := 16; QueryTab.CloseButton.Width := 16;
QueryTab.CloseButton.Height := 16; QueryTab.CloseButton.Height := 16;
QueryTab.CloseButton.Flat := True; QueryTab.CloseButton.Flat := True;
ImageListMain.GetBitmap(134, QueryTab.CloseButton.Glyph); VirtualImageListMain.GetBitmap(134, QueryTab.CloseButton.Glyph);
QueryTab.CloseButton.OnMouseDown := CloseButtonOnMouseDown; QueryTab.CloseButton.OnMouseDown := CloseButtonOnMouseDown;
QueryTab.CloseButton.OnMouseUp := CloseButtonOnMouseUp; QueryTab.CloseButton.OnMouseUp := CloseButtonOnMouseUp;
SetTabCaption(QueryTab.TabSheet.PageIndex, ''); SetTabCaption(QueryTab.TabSheet.PageIndex, '');
@ -10532,7 +10533,7 @@ begin
Edit := Sender as TButtonedEdit; Edit := Sender as TButtonedEdit;
Menu := TPopupMenu.Create(Edit); Menu := TPopupMenu.Create(Edit);
Menu.AutoHotkeys := maManual; Menu.AutoHotkeys := maManual;
Menu.Images := ImageListMain; Menu.Images := VirtualImageListMain;
AppSettings.SessionPath := ''; AppSettings.SessionPath := '';
if Edit = editDatabaseFilter then if Edit = editDatabaseFilter then
Setting := asDatabaseFilter Setting := asDatabaseFilter
@ -11279,9 +11280,9 @@ begin
Obj := Sender.GetNodeData(Node); Obj := Sender.GetNodeData(Node);
if Obj.NodeType in [lntTable..lntEvent] then begin if Obj.NodeType in [lntTable..lntEvent] then begin
if Obj.Connection.Favorites.IndexOf(Obj.Path) > -1 then if Obj.Connection.Favorites.IndexOf(Obj.Path) > -1 then
ImageListMain.Draw(TargetCanvas, CellRect.Left, CellRect.Top, 168) VirtualImageListMain.Draw(TargetCanvas, CellRect.Left, CellRect.Top, 168)
else if Node = Sender.HotNode then else if Node = Sender.HotNode then
ImageListMain.Draw(TargetCanvas, CellRect.Left, CellRect.Top, 183); VirtualImageListMain.Draw(TargetCanvas, CellRect.Left, CellRect.Top, 183);
end; end;
end; end;
@ -11296,7 +11297,7 @@ begin
// Watch out for clicks on favorite icon // Watch out for clicks on favorite icon
// Add or remove object path from favorite list on click // Add or remove object path from favorite list on click
Node := DBtree.GetNodeAt(X, Y); Node := DBtree.GetNodeAt(X, Y);
if (Button = mbLeft) and (X < ImageListMain.Width) and Assigned(Node) then begin if (Button = mbLeft) and (X < VirtualImageListMain.Width) and Assigned(Node) then begin
Obj := DBtree.GetNodeData(Node); Obj := DBtree.GetNodeData(Node);
if Obj.NodeType in [lntTable..lntEvent] then begin if Obj.NodeType in [lntTable..lntEvent] then begin
idx := Obj.Connection.Favorites.IndexOf(Obj.Path); idx := Obj.Connection.Favorites.IndexOf(Obj.Path);

10
source/options.dfm
View File

@ -24,7 +24,7 @@ object optionsform: Toptionsform
Height = 427 Height = 427
ActivePage = tabMisc ActivePage = tabMisc
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 4 TabOrder = 4
OnChange = pagecontrolMainChange OnChange = pagecontrolMainChange
OnChanging = pagecontrolMainChanging OnChanging = pagecontrolMainChanging
@ -195,7 +195,7 @@ object optionsform: Toptionsform
Width = 515 Width = 515
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.ImageIndex = 51 RightButton.ImageIndex = 51
RightButton.Visible = True RightButton.Visible = True
TabOrder = 10 TabOrder = 10
@ -222,7 +222,7 @@ object optionsform: Toptionsform
Width = 515 Width = 515
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.ImageIndex = 51 RightButton.ImageIndex = 51
RightButton.Visible = True RightButton.Visible = True
TabOrder = 11 TabOrder = 11
@ -453,7 +453,7 @@ object optionsform: Toptionsform
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Enabled = False Enabled = False
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.ImageIndex = 51 RightButton.ImageIndex = 51
RightButton.Visible = True RightButton.Visible = True
TabOrder = 5 TabOrder = 5
@ -1235,7 +1235,7 @@ object optionsform: Toptionsform
Align = alLeft Align = alLeft
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.MainColumn = -1 Header.MainColumn = -1
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 0 TabOrder = 0
OnFocusChanged = TreeShortcutItemsFocusChanged OnFocusChanged = TreeShortcutItemsFocusChanged
OnGetText = TreeShortcutItemsGetText OnGetText = TreeShortcutItemsGetText

8
source/routine_editor.dfm
View File

@ -121,7 +121,7 @@ object frmRoutineEditor: TfrmRoutineEditor
ActivePage = tabOptions ActivePage = tabOptions
Align = alTop Align = alTop
Constraints.MinHeight = 166 Constraints.MinHeight = 166
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 0 TabOrder = 0
object tabOptions: TTabSheet object tabOptions: TTabSheet
Caption = 'Options' Caption = 'Options'
@ -291,7 +291,7 @@ object frmRoutineEditor: TfrmRoutineEditor
Header.AutoSizeIndex = 1 Header.AutoSizeIndex = 1
Header.MainColumn = 1 Header.MainColumn = 1
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoVisible] Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoVisible]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
NodeDataSize = 0 NodeDataSize = 0
TabOrder = 0 TabOrder = 0
TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
@ -340,7 +340,7 @@ object frmRoutineEditor: TfrmRoutineEditor
AutoSize = True AutoSize = True
ButtonWidth = 82 ButtonWidth = 82
Caption = 'tlbParameters' Caption = 'tlbParameters'
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
@ -424,7 +424,7 @@ object frmRoutineEditor: TfrmRoutineEditor
Height = 25 Height = 25
Action = MainForm.actRunRoutines Action = MainForm.actRunRoutines
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 5 TabOrder = 5
end end
end end

2
source/selectdbobject.dfm
View File

@ -41,7 +41,7 @@ object frmSelectDBObject: TfrmSelectDBObject
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs] Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
Indent = 16 Indent = 16
Margin = 2 Margin = 2
TabOrder = 0 TabOrder = 0

6
source/sqlhelp.dfm
View File

@ -22,7 +22,7 @@ object frmSQLhelp: TfrmSQLhelp
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'Search online' Caption = 'Search online'
ImageIndex = 69 ImageIndex = 69
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 0 TabOrder = 0
OnClick = ButtonOnlinehelpClick OnClick = ButtonOnlinehelpClick
end end
@ -78,7 +78,7 @@ object frmSQLhelp: TfrmSQLhelp
Margins.Right = 0 Margins.Right = 0
Margins.Bottom = 0 Margins.Bottom = 0
Align = alTop Align = alTop
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
LeftButton.Hint = 'Search' LeftButton.Hint = 'Search'
LeftButton.ImageIndex = 53 LeftButton.ImageIndex = 53
LeftButton.Visible = True LeftButton.Visible = True
@ -100,7 +100,7 @@ object frmSQLhelp: TfrmSQLhelp
Align = alClient Align = alClient
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.MainColumn = -1 Header.MainColumn = -1
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 1 TabOrder = 1
TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed] TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed]
OnFocusChanged = treeTopicsFocusChanged OnFocusChanged = treeTopicsFocusChanged

10
source/syncdb.dfm
View File

@ -40,7 +40,7 @@ object frmSyncDB: TfrmSyncDB
Anchors = [akLeft, akTop, akBottom] Anchors = [akLeft, akTop, akBottom]
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs] Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 0 TabOrder = 0
TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toGhostedIfUnfocused, toUseExplorerTheme, toHideTreeLinesIfThemed] TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toGhostedIfUnfocused, toUseExplorerTheme, toHideTreeLinesIfThemed]
@ -131,7 +131,7 @@ object frmSyncDB: TfrmSyncDB
Cancel = True Cancel = True
Caption = 'Close' Caption = 'Close'
ImageIndex = 26 ImageIndex = 26
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
ModalResult = 2 ModalResult = 2
TabOrder = 2 TabOrder = 2
end end
@ -144,7 +144,7 @@ object frmSyncDB: TfrmSyncDB
Caption = 'Apply' Caption = 'Apply'
Enabled = False Enabled = False
ImageIndex = 120 ImageIndex = 120
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 3 TabOrder = 3
OnClick = btnApplyClick OnClick = btnApplyClick
end end
@ -156,7 +156,7 @@ object frmSyncDB: TfrmSyncDB
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'Analyze' Caption = 'Analyze'
ImageIndex = 146 ImageIndex = 146
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 4 TabOrder = 4
OnClick = btnAnalyzeClick OnClick = btnAnalyzeClick
end end
@ -197,7 +197,7 @@ object frmSyncDB: TfrmSyncDB
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.MainColumn = -1 Header.MainColumn = -1
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 6 TabOrder = 6
TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] TreeOptions.MiscOptions = [toAcceptOLEDrop, toCheckSupport, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toGhostedIfUnfocused, toUseExplorerTheme, toHideTreeLinesIfThemed] TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowRoot, toShowTreeLines, toThemeAware, toUseBlendedImages, toGhostedIfUnfocused, toUseExplorerTheme, toHideTreeLinesIfThemed]

18
source/table_editor.dfm
View File

@ -28,7 +28,7 @@ object frmTableEditor: TfrmTableEditor
Margins.Bottom = 0 Margins.Bottom = 0
ActivePage = tabBasic ActivePage = tabBasic
Align = alTop Align = alTop
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 0 TabOrder = 0
OnChange = PageControlMainChange OnChange = PageControlMainChange
object tabBasic: TTabSheet object tabBasic: TTabSheet
@ -273,7 +273,7 @@ object frmTableEditor: TfrmTableEditor
EditDelay = 0 EditDelay = 0
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible] Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
PopupMenu = popupIndexes PopupMenu = popupIndexes
TabOrder = 1 TabOrder = 1
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoTristateTracking, toAutoChangeScale] TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoTristateTracking, toAutoChangeScale]
@ -320,7 +320,7 @@ object frmTableEditor: TfrmTableEditor
AutoSize = True AutoSize = True
ButtonWidth = 66 ButtonWidth = 66
Caption = 'tlbIndexes' Caption = 'tlbIndexes'
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
@ -382,7 +382,7 @@ object frmTableEditor: TfrmTableEditor
AutoSize = True AutoSize = True
ButtonWidth = 66 ButtonWidth = 66
Caption = 'tlbForeignKeys' Caption = 'tlbForeignKeys'
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
@ -434,7 +434,7 @@ object frmTableEditor: TfrmTableEditor
EditDelay = 0 EditDelay = 0
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible] Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 0 TabOrder = 0
TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick] TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed] TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed]
@ -614,7 +614,7 @@ object frmTableEditor: TfrmTableEditor
AutoSize = True AutoSize = True
ButtonWidth = 66 ButtonWidth = 66
Caption = 'Columns:' Caption = 'Columns:'
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
@ -666,7 +666,7 @@ object frmTableEditor: TfrmTableEditor
Header.AutoSizeIndex = -1 Header.AutoSizeIndex = -1
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoVisible] Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoVisible]
Header.PopupMenu = MainForm.popupListHeader Header.PopupMenu = MainForm.popupListHeader
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
IncrementalSearch = isAll IncrementalSearch = isAll
PopupMenu = popupColumns PopupMenu = popupColumns
TabOrder = 2 TabOrder = 2
@ -800,7 +800,7 @@ object frmTableEditor: TfrmTableEditor
OnClick = btnHelpClick OnClick = btnHelpClick
end end
object popupIndexes: TPopupMenu object popupIndexes: TPopupMenu
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
Left = 344 Left = 344
Top = 360 Top = 360
object menuAddIndex: TMenuItem object menuAddIndex: TMenuItem
@ -841,7 +841,7 @@ object frmTableEditor: TfrmTableEditor
end end
end end
object popupColumns: TPopupMenu object popupColumns: TPopupMenu
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
OnPopup = popupColumnsPopup OnPopup = popupColumnsPopup
Left = 312 Left = 312
Top = 360 Top = 360

10
source/tabletools.dfm
View File

@ -68,7 +68,7 @@ object frmTableTools: TfrmTableTools
Align = alLeft Align = alLeft
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs] Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
IncrementalSearch = isInitializedOnly IncrementalSearch = isInitializedOnly
PopupMenu = popupTree PopupMenu = popupTree
TabOrder = 0 TabOrder = 0
@ -113,7 +113,7 @@ object frmTableTools: TfrmTableTools
Height = 156 Height = 156
Align = alClient Align = alClient
Header.AutoSizeIndex = -1 Header.AutoSizeIndex = -1
Header.Images = MainForm.ImageListMain Header.Images = MainForm.VirtualImageListMain
Header.MainColumn = -1 Header.MainColumn = -1
Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible] Header.Options = [hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
IncrementalSearch = isAll IncrementalSearch = isAll
@ -136,7 +136,7 @@ object frmTableTools: TfrmTableTools
Height = 180 Height = 180
ActivePage = tabSQLexport ActivePage = tabSQLexport
Align = alTop Align = alTop
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 1 TabOrder = 1
OnChange = ValidateControls OnChange = ValidateControls
object tabMaintenance: TTabSheet object tabMaintenance: TTabSheet
@ -412,7 +412,7 @@ object frmTableTools: TfrmTableTools
Hint = 'Browse filesystem' Hint = 'Browse filesystem'
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
ImageIndex = 51 ImageIndex = 51
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 9 TabOrder = 9
OnClick = btnExportOutputTargetSelectClick OnClick = btnExportOutputTargetSelectClick
end end
@ -647,7 +647,7 @@ object frmTableTools: TfrmTableTools
OnClick = btnSeeResultsClick OnClick = btnSeeResultsClick
end end
object popupTree: TPopupMenu object popupTree: TPopupMenu
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
Left = 144 Left = 144
Top = 352 Top = 352
object menuCheckNone: TMenuItem object menuCheckNone: TMenuItem

6
source/texteditor.dfm
View File

@ -51,7 +51,7 @@ object frmTextEditor: TfrmTextEditor
Align = alLeft Align = alLeft
AutoSize = True AutoSize = True
Caption = 'tlbStandard' Caption = 'tlbStandard'
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
@ -122,7 +122,7 @@ object frmTextEditor: TfrmTextEditor
end end
end end
object popupLinebreaks: TPopupMenu object popupLinebreaks: TPopupMenu
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
Left = 8 Left = 8
Top = 16 Top = 16
object menuWindowsLB: TMenuItem object menuWindowsLB: TMenuItem
@ -152,7 +152,7 @@ object frmTextEditor: TfrmTextEditor
end end
end end
object ActionList1: TActionList object ActionList1: TActionList
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
Left = 64 Left = 64
Top = 16 Top = 16
object actSearchFind: TSearchFind object actSearchFind: TSearchFind

4
source/trigger_editor.dfm
View File

@ -24,7 +24,7 @@ object frmTriggerEditor: TfrmTriggerEditor
Height = 132 Height = 132
ActivePage = tabOptions ActivePage = tabOptions
Align = alTop Align = alTop
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 4 TabOrder = 4
object tabOptions: TTabSheet object tabOptions: TTabSheet
Caption = 'Options' Caption = 'Options'
@ -234,7 +234,7 @@ object frmTriggerEditor: TfrmTriggerEditor
item item
ColumnWidth = 100 ColumnWidth = 100
end> end>
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
OnExecute = SynCompletionProposalStatementExecute OnExecute = SynCompletionProposalStatementExecute
ShortCut = 16416 ShortCut = 16416
Editor = SynMemoBody Editor = SynMemoBody

18
source/usermanager.dfm
View File

@ -55,7 +55,7 @@ object UserManagerForm: TUserManagerForm
Cancel = True Cancel = True
Caption = 'Close' Caption = 'Close'
ImageIndex = 26 ImageIndex = 26
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
ModalResult = 2 ModalResult = 2
TabOrder = 4 TabOrder = 4
end end
@ -68,7 +68,7 @@ object UserManagerForm: TUserManagerForm
Caption = 'Save' Caption = 'Save'
Default = True Default = True
ImageIndex = 10 ImageIndex = 10
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 2 TabOrder = 2
OnClick = btnSaveClick OnClick = btnSaveClick
end end
@ -105,7 +105,7 @@ object UserManagerForm: TUserManagerForm
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible] Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoHotTrack, hoShowSortGlyphs, hoVisible]
Header.SortColumn = 0 Header.SortColumn = 0
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
IncrementalSearch = isAll IncrementalSearch = isAll
TabOrder = 0 TabOrder = 0
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed] TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages, toUseExplorerTheme, toHideTreeLinesIfThemed]
@ -141,7 +141,7 @@ object UserManagerForm: TUserManagerForm
AutoSize = True AutoSize = True
ButtonWidth = 58 ButtonWidth = 58
Caption = 'ToolBar1' Caption = 'ToolBar1'
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
@ -191,7 +191,7 @@ object UserManagerForm: TUserManagerForm
AutoSize = True AutoSize = True
ButtonWidth = 79 ButtonWidth = 79
Caption = 'tlbObjects' Caption = 'tlbObjects'
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
List = True List = True
ParentShowHint = False ParentShowHint = False
ShowCaptions = True ShowCaptions = True
@ -225,7 +225,7 @@ object UserManagerForm: TUserManagerForm
Align = alClient Align = alClient
Header.AutoSizeIndex = 0 Header.AutoSizeIndex = 0
Header.MainColumn = -1 Header.MainColumn = -1
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
IncrementalSearch = isAll IncrementalSearch = isAll
TabOrder = 2 TabOrder = 2
TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking, toAutoDeleteMovedNodes, toAutoChangeScale] TreeOptions.AutoOptions = [toAutoDropExpand, toAutoTristateTracking, toAutoDeleteMovedNodes, toAutoChangeScale]
@ -300,7 +300,7 @@ object UserManagerForm: TUserManagerForm
Width = 96 Width = 96
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
PasswordChar = '*' PasswordChar = '*'
RightButton.DropDownMenu = menuPassword RightButton.DropDownMenu = menuPassword
RightButton.Hint = 'Select random password' RightButton.Hint = 'Select random password'
@ -315,7 +315,7 @@ object UserManagerForm: TUserManagerForm
Width = 96 Width = 96
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
RightButton.DropDownMenu = menuHost RightButton.DropDownMenu = menuHost
RightButton.ImageIndex = 75 RightButton.ImageIndex = 75
RightButton.Visible = True RightButton.Visible = True
@ -549,7 +549,7 @@ object UserManagerForm: TUserManagerForm
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'Discard' Caption = 'Discard'
ImageIndex = 40 ImageIndex = 40
Images = MainForm.ImageListMain Images = MainForm.VirtualImageListMain
TabOrder = 3 TabOrder = 3
OnClick = btnDiscardClick OnClick = btnDiscardClick
end end