"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "app/proc_customdialog_dummy.pas" between
CudaText-1.92.0.tar.gz and CudaText-1.93.0.tar.gz

About: CudaText is a cross-platform text editor (written in Lazarus).

proc_customdialog_dummy.pas  (CudaText-1.92.0):proc_customdialog_dummy.pas  (CudaText-1.93.0)
skipping to change at line 40 skipping to change at line 40
type type
TAppCtlMouseEvent = ( TAppCtlMouseEvent = (
cControlEventMouseEnter, cControlEventMouseEnter,
cControlEventMouseExit, cControlEventMouseExit,
cControlEventMouseDown, cControlEventMouseDown,
cControlEventMouseUp cControlEventMouseUp
); );
var var
CustomDialog_DoPyCallback: TAppPyCommonCallback = nil; CustomDialog_DoPyCallback: TAppPyCommonCallback = nil;
CustomDialogs: TList; CustomDialogs: TFPList;
type type
{ TAppControlProps } { TAppControlProps }
TAppControlProps = class TAppControlProps = class
public public
FName: string; FName: string;
FTypeString: string; FTypeString: string;
FActive: boolean; FActive: boolean;
FTagString: string; FTagString: string;
skipping to change at line 113 skipping to change at line 113
FEventOnKeyDown: string; FEventOnKeyDown: string;
FEventOnKeyUp: string; FEventOnKeyUp: string;
FEventOnResize: string; FEventOnResize: string;
FEventOnActivate: string; FEventOnActivate: string;
FEventOnDeactivate: string; FEventOnDeactivate: string;
FEventOnMouseEnter: string; FEventOnMouseEnter: string;
FEventOnMouseExit: string; FEventOnMouseExit: string;
FEventOnShow: string; FEventOnShow: string;
FEventOnHide: string; FEventOnHide: string;
TagString: string; TagString: string;
PrevForms: TList; PrevForms: TFPList;
PrevBorderStyle: TFormBorderStyle; PrevBorderStyle: TFormBorderStyle;
BlockedOnChange: boolean; BlockedOnChange: boolean;
BlockedOnSelect_Listview: boolean; BlockedOnSelect_Listview: boolean;
BlockedOnSelect_Treeview: boolean; BlockedOnSelect_Treeview: boolean;
BlockedOnFold: boolean; BlockedOnFold: boolean;
BlockedOnUnfold: boolean; BlockedOnUnfold: boolean;
function IdFocused: integer; function IdFocused: integer;
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure DoOnResize; override; procedure DoOnResize; override;
skipping to change at line 263 skipping to change at line 263
OnClose:= @DoOnFormClose; OnClose:= @DoOnFormClose;
OnCloseQuery:= @DoOnFormCloseQuery; OnCloseQuery:= @DoOnFormCloseQuery;
OnKeyDown:= @DoOnFormKeyDown; OnKeyDown:= @DoOnFormKeyDown;
OnKeyUp:= @DoOnFormKeyUp; OnKeyUp:= @DoOnFormKeyUp;
OnActivate:= @DoOnFormActivate; OnActivate:= @DoOnFormActivate;
OnDeactivate:= @DoOnFormDeactivate; OnDeactivate:= @DoOnFormDeactivate;
OnMouseEnter:= @DoOnFormMouseEnter; OnMouseEnter:= @DoOnFormMouseEnter;
OnMouseLeave:= @DoOnFormMouseLeave; OnMouseLeave:= @DoOnFormMouseLeave;
PrevBorderStyle:= BorderStyle; PrevBorderStyle:= BorderStyle;
PrevForms:= TList.Create; PrevForms:= TFPList.Create;
CustomDialogs.Add(Self); CustomDialogs.Add(Self);
end; end;
destructor TFormDummy.Destroy; destructor TFormDummy.Destroy;
var var
n: integer; n: integer;
begin begin
n:= CustomDialogs.IndexOf(Self); n:= CustomDialogs.IndexOf(Self);
if n>=0 then if n>=0 then
skipping to change at line 927 skipping to change at line 927
IdControl:= FindControlIndexByOurObject(Sender); IdControl:= FindControlIndexByOurObject(Sender);
if DoEvent(IdControl, Props.FEventOnEditorPaste, if DoEvent(IdControl, Props.FEventOnEditorPaste,
Format('{ "keep_caret": %s, "sel_then": %s }', [ Format('{ "keep_caret": %s, "sel_then": %s }', [
cPyFalseTrue[AKeepCaret], cPyFalseTrue[AKeepCaret],
cPyFalseTrue[ASelectThen] cPyFalseTrue[ASelectThen]
])) = cPyFalse then ])) = cPyFalse then
AHandled:= true; AHandled:= true;
end; end;
initialization initialization
CustomDialogs:= TList.Create; CustomDialogs:= TFPList.Create;
finalization finalization
CustomDialogs.Free; CustomDialogs.Free;
end. end.
 End of changes. 4 change blocks. 
4 lines changed or deleted 4 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)