Changeset 39 for trunk/LocalPlayer
- Timestamp:
- Jan 9, 2017, 7:58:25 PM (8 years ago)
- Location:
- trunk/LocalPlayer
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Help.pas
r38 r39 41 41 42 42 THyperText = class(TStringList) 43 public 43 44 procedure AddLine(s: String = ''; Format: integer = 0; Picpix: integer = 0; 44 45 LinkCategory: integer = 0; LinkIndex: integer = 0); -
trunk/LocalPlayer/PVSB.pas
r38 r39 8 8 Windows, 9 9 {$ENDIF} 10 LCLIntf, LCLType, LMessages, Messages, SysUtils;10 Forms, LCLIntf, LCLType, LMessages, Messages, SysUtils; 11 11 12 12 type 13 13 TPVScrollbar = record 14 14 h: integer; 15 si: TScrollInfo end; 15 si: TScrollInfo; 16 Form: TForm; 17 end; 16 18 17 18 19 20 21 22 23 19 procedure CreatePVSB(var sb: TPVScrollbar; Handle, y0, x1, y1: integer); 20 procedure InitPVSB(var sb: TPVScrollbar; max, Page: integer); 21 function ProcessPVSB(var sb: TPVScrollbar; const m: TMessage): boolean; 22 function ProcessMouseWheel(var sb: TPVScrollbar; const m: TMessage) 23 : boolean; 24 procedure ShowPVSB(var sb: TPVScrollbar; Visible: boolean); 25 procedure EndPVSB(var sb: TPVScrollbar); 24 26 25 27 implementation … … 28 30 Count: integer = 0; 29 31 30 procedure CreatePVSB ;32 procedure CreatePVSB(var sb: TPVScrollbar; Handle, y0, x1, y1: integer); 31 33 begin 32 34 inc(Count); 35 {$IFDEF LINUX} 36 sb.Form := TForm.Create(nil); 37 sb.h := sb.Form.Handle; 38 {$ENDIF} 33 39 {$IFDEF WINDOWS} 34 40 sb.h := CreateWindowEx(0, 'SCROLLBAR', pchar('PVSB' + IntToStr(Count)), … … 39 45 end; 40 46 41 procedure InitPVSB ;47 procedure InitPVSB(var sb: TPVScrollbar; max, Page: integer); 42 48 begin 43 49 {$IFDEF WINDOWS} … … 58 64 end; 59 65 60 function ProcessPVSB ;66 function ProcessPVSB(var sb: TPVScrollbar; const m: TMessage): Boolean; 61 67 var 62 68 NewPos: integer; … … 101 107 end; 102 108 103 function ProcessMouseWheel ;109 function ProcessMouseWheel(var sb: TPVScrollbar; const m: TMessage): Boolean; 104 110 var 105 111 NewPos: integer;
Note:
See TracChangeset
for help on using the changeset viewer.