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

Draw various icons in status bar.

Browse Source
This commit is contained in:
Ansgar Becker
2010-05-26 23:58:30 +00:00
parent f3a9265775
commit e9063271f1
5 changed files with 248 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
source/main.pas
View File

@ -774,6 +774,7 @@ type
procedure tabsetQueryGetImageIndex(Sender: TObject; TabIndex: Integer; var ImageIndex: Integer);
procedure tabsetQueryMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure tabsetQueryMouseLeave(Sender: TObject);
procedure StatusBarDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
private
LastResultTabMousepos: TPoint;
LastResultTabNrHint: Integer;
@ -979,6 +980,33 @@ begin
StatusBar.Repaint;
end;
procedure TMainForm.StatusBarDrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;
const Rect: TRect);
var
TextRect: TRect;
ImageIndex: Integer;
begin
ImageIndex := -1;
case Panel.Index of
2: ImageIndex := 149;
3: ImageIndex := 1;
6: begin
if Panel.Text = STATUS_MSG_READY then
ImageIndex := 151
else
ImageIndex := 150;
end;
end;
if ImageIndex > -1 then begin
ImageListMain.Draw(StatusBar.Canvas, Rect.Left, Rect.Top, ImageIndex, true);
TextRect := Rect;
OffsetRect(TextRect, ImageListMain.Width+2, 0);
DrawText(StatusBar.Canvas.Handle, PChar(Panel.Text), -1, TextRect, dt_singleline or dt_vcenter);
end;
end;
procedure TMainForm.actExitApplicationExecute(Sender: TObject);
begin
Close;