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

Fix one critical AV, part of bug #580 . Loading a PNGImage from a TPNGImagelist onto a TSpeedbuttons seems buggy. Instead, assign icons at designtime. Ugly fix as we now have redundant icons, anyway, we should look after not using TPNGSpeedbutton in too many places.

Browse Source
This commit is contained in:
Ansgar Becker
2008-07-02 22:21:04 +00:00
parent 450edab57c
commit 94822c33fa
14 changed files with 448 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
source/fieldeditor.pas
View File

@ -56,7 +56,6 @@ type
btnDatatypeHelp: TButton;
lblComment: TLabel;
EditComment: TEdit;
procedure FormCreate(Sender: TObject);
procedure btnDatatypeHelpClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ComboBoxTypeChange(Sender: TObject);
@ -135,19 +134,6 @@ begin
end;
{**
FormCreate
}
procedure TFieldEditForm.FormCreate(Sender: TObject);
begin
// Assign images from main imagelist to speedbuttons
btnAddAllColumnsToIndex.PngImage := Mainform.PngImageListMain.PngImages[78].PngImage;
btnAddColumnToIndex.PngImage := Mainform.PngImageListMain.PngImages[76].PngImage;
btnDeleteAllColumnsFromIndex.PngImage := Mainform.PngImageListMain.PngImages[79].PngImage;
btnDeleteColumnFromIndex.PngImage := Mainform.PngImageListMain.PngImages[77].PngImage;
end;
{***
Init Field-Editor
}